Форумы HiProg.com - MS ACCESS, VBA, VB

ник: alecks_lp

Public Function fTable(strTableName As String, _     Optional strPath As String = "C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb") As Boolean fTable = False On Error GoTo ErrorHandler DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM [" & strTableName & "] IN '" & strPath & "' WHERE 1=0;" DoCmd.SetWarnings True fTable = True ErrorHandler: Select Case Err.Number     Case 0         MsgBox "Есть <<" & strTableName & ">> такая таблица!"     Case 3078         MsgBox "Нет <<" & strTableName & ">> такой таблицы!"     Case Else         MsgBox Err.Number & ">>--" & Err.Description      End Select End Function