سوال عن طريقة استيراد جدول من قاعدة اخري

تفضل أخي الكريم

Sel_Databse.rar

fehme كتب:

تفضل أخي الكريم

بارك الله فيك اخي فهمي ووصلت المعلومة ..

سوال اخر : لو حبيت الغي مربع نص tt ( اسم الجدول وادمجة في زر الاستيراد حيث ان اسم الجدول دائما ثابت ))ولااحتاج كل مرة اكتب فيها اسم الجدول

أخي لكريم يمكنك ذلك

قم بالتعديل على الكود

الكود القديم

DoCmd.SetWarnings False
Dim e As String
Dim tabel As String
If IsNull(Me.ff) Then
MsgBox "لم تقم بإختيار قاعدة البيانات", , ""
ElseIf IsNull(Me.tt) Then
MsgBox "لم تكتب اسم الجدول", , ""
Else
e = Me.ff.Value
tabel = Me.tt.Value
DoCmd.TransferDatabase acImport, "Microsoft Access", e, acTable, tabel, tabel, False
MsgBox "تم إستيراد الجدول بنجاح", , ""
End If

الكود الجديد

DoCmd.SetWarnings False
Dim e As String
If IsNull(Me.ff) Then
MsgBox "لم تقم بإختيار قاعدة البيانات", , ""
Else
e = Me.ff.Value
DoCmd.TransferDatabase acImport, "Microsoft Access", e, acTable, "اكتب هنا اسم الجدول", tabel, False
MsgBox "تم إستيراد الجدول بنجاح", , ""

أرفقت لك مثالين الأول حسب ماطلبت أدخل على الكود وعدل اسم الجدول

الملف الثاني ربما تحتاجه مع الوقت يظهر لك تلقائياً أسماء الجداول لقاعدة البيانات المختارة ويتم إختياره ....

السلام عليكم

s.rar

new_ss.rar

بارك الله فيك وزادك علما ...

مداخله اخرى لو تكرمت :

كيف اكتب الكود السابق مع استيراد اكثر من جدول من نفس قاعدة البيانات ترى اخوك ضعيف في الاكواد ...

وشاكر تعاونك وسعت صدرك ..!!

الشقاوي 17 كتب:

مداخله اخرى لو تكرمت :

كيف اكتب الكود السابق مع استيراد اكثر من جدول من نفس قاعدة البيانات ترى اخوك ضعيف في الاكواد ...

وشاكر تعاونك وسعت صدرك ..!!

أخي الكريم أرجوك أن تسامحيني الكود القديم بعد أن طلبت مني أن يكون اسم الجدول ثابت على السرعة كان به خطاً ة لم إنتبه له

الكود الخطأ

DoCmd.TransferDatabase acImport, "Microsoft Access", e, acTable, "اكتب هنا اسم الجدول", tabel, False

الكود الصح

DoCmd.TransferDatabase acImport, "Microsoft Access", e, acTable, "اكتب هنا اسم الجدول", "اكتب هنا اسم الجدول", False

أعتذر جداً

أخي الكريم هذا الملف بعد التعديل فقط نكرر كود الربط ونقوم بتغير اسم الجدول لكي تتمكن من ربط أكثر من جدول مثلما طلبت

تفضل

السلام عليكم ...

s.rar

بارك الله فيك وكتب أجرك ان شاء الله

بارك اللله فيك اخي فهمي

انتا فعلا عضو رائع وتساعد الاخرين

ارجو انا اجد في ذلك جتى مع موضوعي

فالكل يقراه ولا احد يرد وهذا تاني موضوع لي

وهذا رابط الموضوع

/index.php?showtopic=147155

وانا كاتب السم الاخت زهرة لاني تعلمت منها طريقة السبلت وليس فقط لترد هي عالموضوع وشكرا لك

وبالتوفيق للجميع