جستجوی Table

[smderfan]

سلام
از طریق کدنویسی به چه صورت می تونم یک عملیات جستجو صادر نموده تا بتونه 2 کار زیر رو انجام بده :
1- بتونه وجود یک Table رو تشخیص بده و در صورت وجود نداشتن اون Table در برنامه پیام خطایی رو صادر کنه.
2- بتونه وجود یک فایل که در کنار برنامه وجود داره رو تشخیص بده مثلا وقتی یک Table از یک بانک خارج از برنامه لینک داره.

با سپاس

[smderfan]

از اساتید محترم کسی نیست نمونه ای در مورد سوال بالا برام ارائه بده ....

[moustafa]

جدوال وکلیه ابجکتها در جدول سیستمی ذخیره میشند که با تابع dlookup می تونی وجود اون بررسی کنی :
tools/option/viwe/systemobject
جدول msysobject
برای کار با فایلها از قبیل بررسی وجود ، حذف ، کپی ،انتقال
از object file system استفاده کن در راهنمای اکسس جستجو کنی متدهای ان رو با ذکر مثل گذاشته

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

سلام
در مورد سئوال اول ببین نمونه های موجود در تاپیکهای زیر به کارت می خوره :
http://barnamenevis.org/forum/showthread.php?t=87063&highlight=%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C+table

http://barnamenevis.org/forum/showthread.php?t=86173&highlight=%D9%81%D8%B1%D9%85%D9%88%D9%84+%D9%86%D9 %88%DB%8C%D8%B3%DB%8C

[smderfan]

با تشکر از مهدی و مصطفی عزیز
کدهای زیر رو با توجه به دو سوال مطرح شده استفاده کردم و جواب داد.
جهت جستجوی یک Table

StrLookup = DLookup("name", "MSysObjects", "name='" & "TableName" & "'")
If Not (IsNull(StrLookup)) Then
MsgBox "Table Found"
Else
MsgBox "Table NOT Found"
End If

جهت جستجوی یک فایل در کنار برنامه

Dim strAddress As String
strAddress = Application.CurrentProject.Path + "\"

Set fs = Application.FileSearch
With fs
.LookIn = strAddress
.FileName = "Tables.mdb"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "File Found"
Else
MsgBox "File NOT Found"
End If
End With