كود لزر أمر يحتاج تعديلكم

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

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

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

مسارها كماهو واضح في الكود هو 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