كود يسأل هل الجدول موجود ام لا؟ قبل الاستيراد

موضوع منقول من المنتدي القديم

الكاتب : صابر

كود يسأل هل الجدول موجود ام لا؟

السلام عليكم ورحمة الله وبركاته

عندي قاعدة بيانات أقوم باستيراد جداول منهاالى قاعدة بيانات أخرى والسؤال هو الآتي:

كيف يمكن معرفة إن الجدول الذي أقوم باستيراده موجود أم لا فأنا أريد كود وظيفته استيراد الجدول ان لم يكن موجودا و أما إذا كان الجدول موجود فيلغى العملية وتظهر رسالة تخبرني ان الجدول موجود

الرجاء الإفادة بمثال عملي ولكم الشكر

أخوكم صابر

--------------------------------------------------------------------------------

الكاتب: SABER_EDP بتاريخ: 8/31/2002 12:31:32 PM

--------------------------------------------------------------------------------

إجابة

في الوحدة النمطية الخاصة بالنموذج ضع :

Private Function ImportDb(TableName As String, strPath As String) As Boolean
On Error Resume Next

Dim db As Database
Dim td As TableDef

Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, True)

For Each td In db.TableDefs
    If td.Name = TableName Then
    DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, _
    TableName, TableName, False
    End If
Next

db.Close
Set db = Nothing
End Function


Public Function ExistsTableDBInternal(TName As String, DBName As String) As Boolean
  Dim db As Database
  Dim Test As String
  Const NAME_NOT_IN_COLLECTION = 3265
On Error Resume Next
  Set db = CurrentDb()
  Test = db.TableDefs(TName).Name
  ExistsTableDBInternal = (Err.Number <> NAME_NOT_IN_COLLECTION)
End Function

وفي حدث عند نقر زر الأمر :

If ExistsTableDBInternal("اسم الجدول", Application.CodeDb.Name) Then
MsgBox "الجدول موجود"
Else
ImportDb "اسم الجدول الذي نرغب في استيراده", "المسار إلى قاعدة البيانات مع اسم قاعدة البيانات"
End If
End Sub

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 8/31/2002 9:38:48 PM

الكاتب: ابوحمود. بتاريخ: 8/31/2002 9:39:53 PM

--------------------------------------------------------------------------------

ملاحظة

اسم الجدول الأولى غيرها باسم الجدول الذي ترغب في البحث عنه في قاعدة البيانات الحالية .

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 8/31/2002 9:41:16 PM

--------------------------------------------------------------------------------

شكرا ابو حمود

شكرا على ردك اخى الفاضل ابو حمود

الكود لم يعمل معى الرجاء التكرم بمثال مشروح مع ملاحظة ان الجداول كثيرة ويتم اختيارها من مربع تحرير وسرد

ارجو الافادة وشكرا لك

اخوكم صابر

--------------------------------------------------------------------------------

الكاتب: SABER_EDP بتاريخ: 9/1/2002 2:25:59 PM

--------------------------------------------------------------------------------

إجابة

هذا مثال بما طلبته :

http://www.msaccess4arab.com/temp/FondTabl...leAndImport.zip

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود.