Kiểm tra sự tồn tại của table trong Access

đăng 19:52, 6 thg 6, 2012 bởi Hai Yen   [ đã cập nhật 07:36, 16 thg 9, 2014 ]
Code Kiểm tra sự tồn tại của table trong Access 
Option Compare Database
Option Explicit

Function isTableExists(sTableName As String, db As DAO.Database) As Boolean
    Dim i As Integer
    For i = 0 To db.TableDefs.Count - 1
        If db.TableDefs(i).Name = sTableName Then
            isTableExists = True
            Exit For
        End If
    Next i
End Function

Private Sub test_Click()
    'Kiem tra bang tbNhanvien co ton tai hay khong
    Dim db As DAO.Database
    Dim blKetqua As Boolean
    Set db = CurrentDb
    blKetqua = isTableExists("tbNhanvien", db)
    If blKetqua Then
        MsgBox "Bang ton tai"
    Else
        MsgBox "Bang khong ton tai"
    End If
End Sub
Comments