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 |