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

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

السلام عليكم

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

2020القائمة الفرعية.rar

[jjafferr]

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

 

استخدم هذا الكود قبل كود فتح التقرير :

    If Len(Me.[السنة] & "") = 0 Then
        MsgBox "رجاء ادخال السنه"
        Me.[السنة].SetFocus
        Exit Sub
    
    ElseIf Len(Me.user_name & "") = 0 Then
        MsgBox "رجاء ادخال الشهر"
        Me.user_name.SetFocus
        Exit Sub
        
    End If
    

 

جعفر

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

اخي لم يفتح التقرير

اخي ابن اضع اسم التقرير في الكود

[jjafferr]

8 دقائق مضت, بلال اليامين said:

اخي ابن اضع اسم التقرير في الكود

 

اخبرتك

40 دقائق مضت, jjafferr said:

استخدم هذا الكود قبل كود فتح التقرير

 

هكذا

Private Sub cmd_Preview_Report_Click()
On Error GoTo err_cmd_Preview_Report_Click

    If Len(Me.[السنة] & "") = 0 Then
        MsgBox "رجاء ادخال السنه"
        Me.[السنة].SetFocus
        Exit Sub
    
    ElseIf Len(Me.[الشهر] & "") = 0 Then
        MsgBox "رجاء ادخال الشهر"
        Me.[الشهر].SetFocus
        Exit Sub
        
    End If
    
    
    
    Dim myWhere As String
    
    myWhere = "[السنة]='" & [السنة] & "'"
    myWhere = myWhere & " And"
    myWhere = myWhere & " [الشهر]='" & [الشهر] & "'"
    
    DoCmd.OpenReport "تقرير1", acViewPreview, , myWhere
    
Exit_cmd_Preview_Report_Click:

Exit Sub
err_cmd_Preview_Report_Click:

    If Err.Number = 2501 Then
        'no data, ignor

    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
    Resume Exit_cmd_Preview_Report_Click
    
End Sub

.

ومع انت لم تقل هذا ، ولكني استنتجت انك تريد فتح التقرير للسجلات التي تخص الشهر والسنة 🙂

 

جعفر

1203.2020القائمة الفرعية.accdb.zip

[Hawiii]

13 ساعات مضت, jjafferr said:

If Len(Me.[السنة] & "") = 0 Then

مع الاعتذار للسيد jjafferr
ويمكن استخدام دالة Nz كالتالي:
 

If Nz(Me.[السنة], "") = "" Then

 

[Hawiii]

14 دقائق مضت, Hawiii said:

If Nz(Me.[السنة], "") = "" Then

ويمكن استخدام دالة IsNull كالتالي:
 

If IsNull(Me.[السنة]) Then