自刪除表以來，資料庫尚未關閉。
自刪除表以來，資料庫尚未被壓縮。
使用 access 使用者介面刪除了表。
表不包含任何多值字段或附件字段。
代 碼：
sub recoverdeletedtable()
on error goto exithere
dim db as dao.database
dim strtablename as string
dim strsql as string
dim intcount as integer
dim blnrestored as boolean
set db = currentdb()
for intcount = 0 to db.tabledefs.count - 1
strtablename = db.tabledefs(intcount).name
if left(strtablename, 4) = "~tmp" then
strsql = "select distinctrow [" & strtablename & "].* into " & mid(strtablename, 5) & " from [" & strtablename & "];"
docmd.setwarnings false
docmd.runsql strsql
msgbox "a deleted table has been restored, using the name '" & mid(strtablename, 5) & "'", vbokonly, "restored"
blnrestored = true
end if
next intcount
if blnrestored = false then
msgbox "no recoverable tables found", vbokonly
end if
'*exit/error*
exithere:
docmd.setwarnings true
set db = nothing
exit sub
errorhandler:
msgbox err.description
resume exithere
end sub
end推薦閱讀
access訓練營從0基礎開始，循序漸進，系統化的訓練營課程，整合作業、課表、社群，為學員提供答疑，獲得更佳的學習效果。【詳情》
快速開發財務管理系統緊密結合職場的乙個課程，參加培訓不僅可提公升開發技能，而且可獲得案例源**，立即投入到實際工作中應用。【詳情》
】access軟體作品十二位access學員對自已開發的軟體進行了介紹並分享開發心得，一起來了解access開發的軟體。【詳情》
從excel到access資料庫為廣大excel使用者了解、學習access資料庫開設的乙個實用課程，側重於資料統計分析。【詳情》
access每天3分鐘】
張志，access資料庫培訓講師，『access軟體網』創始人，服務過的知名企業有北京賓士、立達(中國)紡織儀器、宜家(中國)投資等。 2003~2023年連續10年獲微軟最有價值專家。【詳情》】
聯合刪除兩張表的資料
大家都知道delete後面不能跟多張表，但有時刪除資料時要同時維護多張表的資料，這怎麼辦呢？假設 a，b兩張表，它們通過id進行關聯，a表中有名稱欄位而b表中沒有，現根據時間段刪除資料 sql declare delid table id int delete a output deleted.id...
oracle兩張表的資料比較
資料庫 oracle 在某些情況下，我們會需要比較兩張表的資料是否一樣。假設有兩張表a與表b他的字段相同，但是當中的資料可能不同，而且有些欄位的資料還有可能為空 方法一 手動 把需要比較的兩張表的資料按照某種規則排序後匯出為xls,這裡我直接用pl sql developer匯出 然後用把xls檔案...
oracle兩張表的資料比較
align left align 在某些情況下，我們會需要比較兩張表的資料是否一樣。假設有兩張表a與表b他的字段相同，但是當中的資料可能不同，而且有些欄位的資料還有可能為空 方法一 手動 把需要比較的兩張表的資料按照某種規則排序後匯出為xls,這裡我直接用pl sql developer匯出 然後用...