سلام خدمت همه دوستان و کاربران محترم بخش Microsoft Access
با توجه به نیاز روزمره کاربران محترم در ارتباط با انتقال و تبادل اطلاعات در زمینه کدنویسی VBA و همینطور جلوگیری از پراکندگی موارد ، دوستانی که مطلب یا نمونه کدهای مرتبط با موضوع این تاپیک ( در قالب کاربردی و آموزشی ) دارن لطف کنن مطالبشون رو برای استفاده سایرین در این تاپیک قرار بدن .
---------------------------------------------------------------------------------------------------------------------------------
بازیافت جداول حذف شده
Function RecoverDeletedTable()
On Error GoTo ExitHere
'*Declarations*
Dim db As DAO.Database
Dim strTableName As String
Dim strSQL As String
Dim intCount As Integer
Dim blnRestored As Boolean
'*Init*
Set db = CurrentDb()
'*Procedure*
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 Function
ErrorHandler:
MsgBox Err.Description
Resume ExitHere
End Function
پاسخ با نقل قول
نوشته شده توسط مهدی قربانی
جدا کردن اعداد سه رقم سه رقم جهت نرم افزار های مالی یا مالیاتی
نقل قول: Hide/Unhide Navigation Pane with code
سوال
