(تمت الإجابة) عدم معاينة الطباعة بشرط

[طاهر اوفيسنا]

السلام عليكم إخوتي الكرام

لديا زر أمر "طباعة" المطلوب عند الضغط عليه يظهر ميساج ولايقوم بمعاينة الطباعة الا إذا تم الضغط على مربع إختيار نعم/لا

Private Sub إجازة_سنوية_Click()
On Error GoTo Err_إجازة_سنوية_Click

Dim stLinkCriteria As String
stLinkCriteria = "[IDmozf] =" & Me![IDmozf]
    stDocName = "إجازة سنوية"
    DoCmd.OpenReport stDocName, acPreview
Exit_إجازة_سنوية_Click:
    Exit Sub

Err_إجازة_سنوية_Click:
    If err = 2501 Then
    Resume Exit_إجازة_سنوية_Click
End If
End Sub

 

[jjafferr]

وعليكم السلام اخي كريمو 

 

تفضل:

On Error GoTo Err_إجازة_سنوية_Click


if me.Field_Yes_No<>-1 then
msgbox "Please select the Yes/No field first"
exit sub
endif


Dim stLinkCriteria As String

 

 

جعفر

[طاهر اوفيسنا]

شكرا استاذي الكريم ... جعفر

لقد جربت ماتفضلت به وكانت النتيجة :

 

[jjafferr]

وعليكم السلام 

 

لم اكن اعرف اسم حقل نعم/لا ، فاسميته Field_Yes_No 

رجاء غيّره باسم الحقل الاصلي في النموذج 

 

 

جعفر

[طاهر اوفيسنا]

وهو كذالك استاذي الكريم

شكرا لك

الله مايحرمنا من تواجدك معنا دائما ومد يد العون ستجدها في ميزان حساناتك ان شاء الله

[jjafferr]

حياك الله