Kiểm tra xem một bảng đã tồn tại hay chưa
dinhvank19 > 04-11-10, 11:36 PM
Function Ton_tai_bang(Tenbang As String) As Boolean
Dim db As Database
Dim n As Integer
Dim i As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
n = db.TableDefs.Count
For i = 1 To n - 1
If db.TableDefs(i).Name = Tenbang Then
Ton_tai_bang = True
Exit Function
End If
Next i
Ton_tai_bang = False
End Function