عدم فتح تقرير طالما البيانات الخاصة بة فارغة

[jo_2010]

الخبراء الاعزاء 

ارجو افادتى مرفق القاعدة وصورة توضيحية

لكم الشكر

APE.accdb

[ازهر عبد العزيز]

تفضل لعلة المطلوب

 

 

APE.accdb

تم تعديل أغسطس 31, 2020 بواسطه ازهر عبد العزيز

[jjafferr]

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

 

في التقرير ، في حدث No Data ، اكتب هذا الكود (طبعا يمكنك حذف سطر الرسالة، ولكني افضل ان يعرف المستخدم ان البرنامج يعمل وان التقرير فارغ) :

Private Sub Report_NoData(Cancel As Integer)

    MsgBox "لا توجد بيانات"
    Cancel = True
End Sub

 

جعفر

[ازهر عبد العزيز]

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

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

 

في التقرير ، في حدث No Data ، اكتب هذا الكود (طبعا يمكنك حذف سطر الرسالة، ولكني افضل ان يعرف المستخدم ان البرنامج يعمل وان التقرير فارغ) :

Private Sub Report_NoData(Cancel As Integer)

    MsgBox "لا توجد بيانات"
    Cancel = True
End Sub

 

جعفر

شكرا استاذي ومعلمي على المعلومة القيمة

[jjafferr]

5 دقائق مضت, ازهر عبد العزيز said:

شكرا استاذي ومعلمي على المعلومة القيمة

 

بس الظاهر انك فهمت السؤال صح ، بينما انا قرأت رأس الموضوع ، وما لاحظت الملاحظة إلا بعد ان وضعت ملاحظتي !!

على العموم ، هذه طريقتي ، لحدث الزر (طبعا بالاضافة الى الكود في مشاركتي السابقة) :

Private Sub T_m_Click()
On Error GoTo err_T_m_Click

    If Len(Me.FROM & "") = 0 Then
        MsgBox "رجاء تعبئة التاريخ من"
        Me.FROM.SetFocus
        
    ElseIf Len(Me.TO & "") = 0 Then
        MsgBox "رجاء تعبئة التاريخ الى"
        Me.TO.SetFocus
        
    ElseIf Len(Me.PN & "") = 0 Then
        MsgBox "رجاء اختيار اسم المشروع"
        Me.PN.SetFocus
        Me.PN.Dropdown
        
    Else
        DoCmd.OpenReport "All_Proj", acViewPreview
        
    End If
    
Exit_T_m_Click:

    Exit Sub
err_T_m_Click:

    If Err.Number = 2501 Then
        'No data
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
    Resume Exit_T_m_Click
    
    
End Sub

.

جعفر

1253.APE (1).accdb.zip

[ازهر عبد العزيز]

1 دقيقه مضت, jjafferr said:

على العموم ، هذه طريقتي ، لحدث الزر (طبعا بالاضافة الى الكود في مشاركتي السابقة) :

Private Sub T_m_Click()
On Error GoTo err_T_m_Click

    If Len(Me.FROM & "") = 0 Then
        MsgBox "رجاء تعبئة التاريخ من"
        Me.FROM.SetFocus
        
    ElseIf Len(Me.TO & "") = 0 Then
        MsgBox "رجاء تعبئة التاريخ الى"
        Me.TO.SetFocus
        
    ElseIf Len(Me.PN & "") = 0 Then
        MsgBox "رجاء اختيار اسم المشروع"
        Me.PN.SetFocus
        Me.PN.Dropdown
        
    Else
        DoCmd.OpenReport "All_Proj", acViewPreview
        
    End If
    
Exit_T_m_Click:

    Exit Sub
err_T_m_Click:

    If Err.Number = 2501 Then
        'No data
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
    Resume Exit_T_m_Click
    
    
End Sub

.

جعفر

1253.APE (1).accdb.zip 132.48 kB · 0 تنزيلات

ملك الاكواد وبجدارة  

[jo_2010]

الخبراء الافاضل

 ازهر عبد العزيز  _  jjafferr

خالص الشكر لحل مشكلتى عن طريق الكود مرة وعن طريق الماكرو مرة شكرا جزيلا لكما