الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

القضاء على هذا الميساج رقم 03 في الصور

مغلقمُجاب
بدأه كريمو2 في 27 ديسمبر 2013 · 3 رد · 377 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اساتذة

لقد إتبعت طريقة عملتها الأستاذة زهرة بإحدى الأمثلة

وحاولت تطبيقها على برنامجي فظهر هذا الميساج طبقا للصورة 

post-237625-0-14351200-1388140751_thumb.

علما أنه لما إضغط على debug يتحول مباشرة الى الوحدة النمطية كالتالي :

Private Sub cmdDiscountDetail_Montadab_Click()
If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then
    MsgBox "Error !! SELECT A VALID Date."
    txtMonth.SetFocus
    Exit Sub

End If

    'DoCmd.OpenReport "rptDiscountDetail", acPreview, , "(TheSum > 0) AND (detach ='منتدب')", , OpenArgs:="منتدب"
    Me.Report_Title = "المنتدبين"
    DoCmd.OpenReport "rptDiscountDetail", acPreview, , , , OpenArgs:="qry_rptDD_4"
Exit_cmdDiscountDetail_Montadab_Click:
Exit Sub

Err_cmdDiscountDetail_Montadab_Click:
If Err = 2501 Then
Resume Exit_cmdDiscountDetail_Montadab_Click
End If

End Sub

post-237625-0-92509200-1388141093_thumb.

 

ماهو التصحيح وفقا للوحدة النمطية

تم تعديل هذه المشاركة بواسطة كريمو2 في 27 ديسمبر 2013 في 13:52

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#2 أفضل إجابة

اخي الفاضل

 

قم بتجربة هذا الكود واستبداله بالقديم لديك

 

 

Private Sub cmdDiscountDetail_Montadab_Click()
If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then
    MsgBox "Error !! SELECT A VALID Date."
    txtMonth.SetFocus
    Exit Sub
 
End If
 
On Error GoTo Err_cmdDiscountDetail_Montadab_Click
DoCmd.OpenReport "rptTransfer", acPreview
 
Exit_cmdDiscountDetail_Montadab_Click:
Exit Sub
 
Err_cmdDiscountDetail_Montadab_Click:
If Err.Number = 2501 Then
Resume Exit_cmdDiscountDetail_Montadab_Click
Else
    MsgBox Err.Description
    Resume Exit_cmdDiscountDetail_Montadab_Click
End If
End Sub
 

 

 

 

 

بالتوفيق

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

شكرا أستاذة على المحاولة


هل يمكن التعديل دون الإستغناء عن هذا 


    'DoCmd.OpenReport "rptDiscountDetail", acPreview, , "(TheSum > 0) AND (detach ='منتدب')", , OpenArgs:="منتدب"

    Me.Report_Title = "المنتدبين"

    DoCmd.OpenReport "rptDiscountDetail", acPreview, , , , OpenArgs:="qry_rptDD_4"

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#4

شكرا كثير أستاذة

تم إزالة المشكل والحمد لله

Private Sub cmdDiscountDetail_Montadab_Click()
If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then
    MsgBox "Error !! SELECT A VALID Date."
    txtMonth.SetFocus
    Exit Sub
 
End If
 
On Error GoTo Err_cmdDiscountDetail_Montadab_Click
    'DoCmd.OpenReport "rptDiscountDetail", acPreview, , "(TheSum > 0) AND (detach ='منتدب')", , OpenArgs:="منتدب"
    Me.Report_Title = "المنتدبين"
    DoCmd.OpenReport "rptDiscountDetail", acPreview, , , , OpenArgs:="qry_rptDD_4"
Exit_cmdDiscountDetail_Montadab_Click:
Exit Sub
 
Err_cmdDiscountDetail_Montadab_Click:
If Err.Number = 2501 Then
Resume Exit_cmdDiscountDetail_Montadab_Click
Else
    MsgBox Err.Description
    Resume Exit_cmdDiscountDetail_Montadab_Click
End If
End Sub

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…