اخفاء اكواد الفيجول بيسك

[JAMAL SINANI]

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

ابارك لادارة المنتدى اطلاق الستايل الجديد الذي اتمنى ان يكون الاجمل

اساتذتي واخواني الاعزاء

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

 

ما هو العمل بحيث اجعل المستخدم لا يضغط ( debug ) وتظهر له اكواد الفيجول بيسك  ... اذا هذا الامر ممكن

 

وفقنا الله واياكم ..

 

[عبد الله قدور]

حول قاعدة البيانات الى accdeفي نسخ اكسس ما فوق 2007والى mde في نسخة 2003 ولتجاهل الاخطاء ضع في بداية الكود 

on error resume next

[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

وفقنا الله واياك

 

تم تعديل أغسطس 1, 2015 بواسطه JAMAL SINANI
لضبط تنسيق الكود

[JAMAL SINANI]

تم الحل ولله الحمد

وهذا الكود بعد التعديل

On Error Resume Next
Dim x As Integer
x = MsgBox("للمعاينة سجل المادة والصف المناسب ... للاستمرار ..نعم.. للخروج ..لا..", vbYesNo, "معلومة ")
If x = vbYes Then
Me.Visible = False
DoCmd.Maximize
DoCmd.OpenReport "اسم التقرير", acViewPreview
موافق = False
MsgBox "انت الان في وضع المعاينة", vbOKOnly, "انجزت المهمة "

Else
Cancel = True
MsgBox "لم تنجز المهمة", vbOKOnly, "تنوية "

End If

 

 

تم تعديل أغسطس 1, 2015 بواسطه JAMAL SINANI