JAMAL SINANI

اشكرك اخي عبدالله على ردك ومتابعك لكن عند وضع on error resume next في بداية الكود لامر معاينة يختفي الفورم وتبقى لي واجهة الاكسس فقط هذا هو الكود ( ارجو التعديل اذا امكن ) on error resume next Dim x As Integer x = MsgBox("للمعاينة سجل المادة والصف المناسب ... للاستمرار ..نعم.. للخروج ..لا..", vbYesNo, "معلومة ") If x = vbYes Then DoCmd.OpenReport "اسم التقرير", acViewPreview Me.Visible = False DoCmd.Maximize MsgBox "انت الان في وضع المعاينة", vbOKOnly, "انجزت المهمة " Else Cancel = True End If وفقنا الله واياك

السلام عليكم ورحمة الله وبركاته ابارك لادارة المنتدى اطلاق الستايل الجديد الذي اتمنى ان يكون الاجمل اساتذتي واخواني الاعزاء هل من الممكن اغلاق اكواد الفيجول بيسك , فاذا اخطأ المستخدم في امر من الاوامر ( مثل طياعة - معاينة - تصدير ... الخ ) وذلك بعمل الغاء امر فستظهر رسالة كهذه ما هو العمل بحيث اجعل المستخدم لا يضغط ( debug ) وتظهر له اكواد الفيجول بيسك ... اذا هذا الامر ممكن وفقنا الله واياكم ..