توحيد اكواد زرين طباعة في كود واحد

[محمد التميمي]

الاخوة الاعزاء بعد التحية والسلام

عندي تموذجين في القاعدة المرفقة اكسس 2013 الاول باسم (تصفية فواتير البيع) والاخر باسم (تصفية فواتير الشراء) في كل نموذج زرين طباعة الاول خاص بالتصفية برقم الفاتورة والثاني خاص بالتصفيات الاخرى وكما موضح في الصورة المرفقة

لقد حاولت دمج  اكواد ازرار الطباعة بكد واحد ولم افلح ارجوا من جنابكم الكريم المساعدة في دمج الاكواد بكد واحد وزر طباعة واحد لكل نموذج

ولكم فائق شكري واحترامي

 

طباعة.rar

[محمد التميمي]

السلام عليكم هل من مجيب

[Shivan Rekany]

3 ساعات مضت, محمد التميمي said:

السلام عليكم هل من مجيب

اتفضل
استخدمت جملة شرطية
 

Private Sub أمر11_Click()
    If Len(Me.aa1 & vbNullString) = 0 Then
        strcriteria = Replace(strcriteria, " Where ", "")
        'DoCmd.OpenReport "تصفية البيع", acViewPreview, , strcriteria
        DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria
    Else
        Dim RName, FldCriteria As String
        RName = "تصفية البيع"
        FldCriteria = "[رقم الفاتورة]=" & Me![aa1]
        DoCmd.OpenReport RName, acViewNormal, , FldCriteria
End If
End Sub

 

طباعة.rar

[محمد التميمي]

الاخ شفان المحترم السلام عليكم اشكرك الشكر الجزيل 

لقد عملت على نفس الكد المكتوب من جنابكم مسبقا وبسبب زيادة بسيطة لم ينجح اما بعد التعديل منكم ادركت خطأي 

شكراً للمساعدة