زر الإغلاق لا يقبل الخروج من النموذج

[عفرنس]

أضفت زر إغلاق لهذا النموذج . وأسميت الزر ( command1) كتبت في محرر الأكواد 

Private Sub command1_Click()
    DoCmd.OpenForm "Table_Visitor"
    DoCmd.Close acForm, "data"

End Sub
حتى يعيدني إلى النموذج الرئيسي .. 

لكن عند التنفيذ تظهر هذه الرسالة 

 

 

تم تعديل فبراير 9, 2020 بواسطه emam1424
حذف المرفق

[Khalid Jnb]

السلام عليكم

اخي العزيز  افتح  النموذج في وضع التصميم و قم بازالة التخطيط من - ترتيب - ازالة التخطيط

وسوف يعمل النموذج بصورة طبيعية

تحياتي

 

Library.rar

تم تعديل فبراير 9, 2020 بواسطه خالد سيسكو

[عفرنس]

5 دقائق مضت, خالد سيسكو said:

السلام عليكم

اخي العزيز  اضفط على الجدول و قم بازالة التخطيط من - ترتيب - ازالة التخطيط

وسوف يعمل النموذج بصورة طبيعية

تحياتي

 

الله يرضى عنك ... تم المطلوب ..