قاعدة بياناتي فيها خطأ بسيط في الكود

بســم الله الـرحمــن الرحيــم

لقد وفقت في الوصول لهذا الكود بالمحاولة والخط

وهو كود مناسب للوظيفة التي اريدها للزر بحيث بالضغط عليه يربط جدولين من قاعدة بيانات

مسارها كماهو واضح في الكود هو C:\maar95\maaref.mdb

إلى قاعدة بياناتي الجديدة المرفقة في المشاركة bank

ثم يقوم مباشرة بتشغيل الاستعلامين Qry1 - Qry2

لكن الخطأ انه كلما انضغط على الزر كرر الجداول يكرر يكرر باستمرار

والتصحيح المطلوب تعديل الكود بحيث يربط الجداول لمره واحده ويرفض العملية لو انضغط الزر بعدها

Private Sub link_Click()

DoCmd.SetWarnings False

DoCmd.TransferDatabase acLink, "Microsoft Access", "C:\maar95\maaref.mdb", acTable, "em_empolyee", "em_empolyee", False

DoCmd.TransferDatabase acLink, "Microsoft Access", "C:\maar95\maaref.mdb", acTable, "em_dawrat", "em_dawrat", False

MsgBox "تم استيراد البيانات بنجاح", vbOKOnly

DoCmd.SetWarnings True

On Error Resume Next

DoCmd.SetWarnings (False)

DoCmd.OpenQuery "Qry1"

DoCmd.OpenQuery "Qry2"

End Sub

bank.rar