عدم فتح ايقونة الطباعة حتى يتم الاخيار من قائمة مربع تحرير و سرد

[بلال اليامين]

السلام عليكم

لدية ايقونة طباعة التقرير ولدي خانة مربع تحرير وسرد 

اريد عدم فتح التقرير حتى يتم الاختيار من القائمة

[ahmed draz]

أخي الكريم بلال اليامين

مرحباً بك مرة أخرى

من فضلك أرفق القاعدة حتى يتمكن الجميع من المشاركة وحل المشكلة و تلبية طلبك.

وشكرأجزيلا لك

[Foksh]

2 ساعات مضت, بلال اليامين said:

السلام عليكم

لدية ايقونة طباعة التقرير ولدي خانة مربع تحرير وسرد 

اريد عدم فتح التقرير حتى يتم الاختيار من القائمة

على افتراض ان الكومبوبوكس اسمه Foksh :-

 

Private Sub btnPrintReport_Click()
    If IsNull(Me.Foksh) Or Me.Foksh = "" Then
        MsgBox "يرجى اختيار قيمة من القائمة قبل طباعة التقرير.", vbExclamation, "تحذير"
    Else
        DoCmd.OpenReport "أكتب هنا اسم التقرير", acViewPreview
    End If
End Sub

 

هذا تصور اخي الكريم ، على افتراض أيضاً أن اسم ايقونة الطباعة btnPrintReport