التعديل على كود استيراد من الأكسل

[الموسى1423]

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

لدي كود استيراد من الأكسل من عمل الأخواة الكرام في المنتدى

أضفت عليه السطر التالي ليتم حذف البيانات السابقة  وإضافة المستوردة  بدلا من استعلام الحذف

 

                   DoCmd.runsql "DELETE tbl1.*FROM tbl1;"

 

يعمل تمام في حالة إتمام عملية الاستيراد لكن في حالة إلغاء العملية إريد أن  يلغي عملية الحذف

 

أرجو  إجراء التعديل اللازم مشكورين

ExToAx.rar

[عبدالله المجرب]

السلام عليكم 

فقط غير موقع السطر 

 DoCmd.runsql "DELETE tbl1.*FROM tbl1;"

 

في حدث النقر على زر الاستيراد الى بعد هذا السطر 

If strPathFile = "" Then
            MsgBox "تم الغاء العملية", vbOK, "No Selection"
              Exit Sub
        End If

 

 

ليصبح هكذا 

If strPathFile = "" Then
            MsgBox "تم الغاء العملية", vbOK, "No Selection"
              Exit Sub
        End If
         DoCmd.runsql "DELETE tbl1.*FROM tbl1;"

 

 

والله اعلم

[الموسى1423]

أخي الكريم عبدالله المجرب

بارك الله فيك ورفع قدرك

 

غيرت مكان السطر ولكن المشكلة عندما أوفق على الاستيراد ثم ألغي بعد رسالة الحذف ينقلني لصفحة الأوامر

 

بارك الله فيك  وفي انتظارك

[عبدالله المجرب]

ضع 

هذا السطر 

On Error GoTo 1

 

 

في بداية الكود 

 

هكذا 

Private Sub أمر0_Click()
On Error GoTo 1

 

 

وفي نهاية الكود 

استبدل هذا السطر 

End Sub

 

 

 

بهذا 

 

1 End Sub

 

وبذلك عند الغاء الحذف سيتم الخروج من الاجراء 

والله اعلم

[الموسى1423]

جزاك الله خيرا

 

هل ممكن استبدل رسالة الحذف برسالة أخرى

 

سامحنا ثقلنا عليك بارك الله فيك

[الموسى1423]

للمتابعة