کنترل وجود تیبل

[vafadar]

با سلام
آیا راهی وجود داره که از درون یک برنامه اکسس به وجود تیبل با نام خاص در یک بانک اطلاعاتی اکسس دیکر پی برد با تشکر

[مهدی قربانی]

سلام
پاسخ مثبته ;


Dim strExtDb As DAO.Database
Dim I As Integer
Dim strMsg As String
Set strExtDb = OpenDatabase("D:\Documents and Settings\geust\Desktop\FileName.mdb")

For I = 0 To strExtDb.TableDefs.Count - 1
If strExtDb.TableDefs(I).Name = "TbName" Then
strMsg = "جدول مورد نظر موجود است"

Else
strMsg = "جدول مورد نظر موجود نيست"
End If
Next I
MsgBox strMsg


بجاي موارد رنگي نامهاي مورد نظرتون رو جايگزين كنيد