إضافة شرط ثاني لكود فتح تقرير

[RAIANESAMI]

السلام عليكم

اريد إضافة شرط ثاني  لفتح تفرير

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "'"
End Sub

 

[moho58]

محاولة بسيطة في انتظار  الاخوة

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' OR [Type_Item]='" & Me.Type_Item & "'"
End Sub

 

[Foksh]

2 ساعات مضت, RAIANESAMI said:

السلام عليكم

 

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

مشاركة مع أخي @moho58 .
أخي الكريم .. الواجب والأصل أن تحدد الشرط الثاني ما إذا كان رقمي أم نصي أم تاريخ . لأن لكل حالة تحتلف صيغة الكود . فعلى سبيل المثال  :-

• اذا كان الحقل نصي :-

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]='" & Me.RAIANESAMI & "'"
End Sub

 

• اذا كان الحقل رقمي :-

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=" & Me.RAIANESAMI
End Sub

 

• أما اذا كان الحقل تاريخ على سبيل المثال :-

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=#" & Format(Me.RAIANESAMI, "dd/mm/yyyy") & "#"
End Sub

 

لاحظ أنني استخدمت اسمك بدلاً من اسم الحقل والمطابق لشرطه ( مربع النص ) = RAIANESAMI

[RAIANESAMI]

مشكورين