jo_2010 قام بنشر أغسطس 31, 2020 مشاركة قام بنشر أغسطس 31, 2020 الخبراء الاعزاء ارجو افادتى مرفق القاعدة وصورة توضيحية لكم الشكر APE.accdb رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر أغسطس 31, 2020 مشاركة قام بنشر أغسطس 31, 2020 (معدل) تفضل لعلة المطلوب APE.accdb تم تعديل أغسطس 31, 2020 بواسطه ازهر عبد العزيز 1 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 31, 2020 مشاركة قام بنشر أغسطس 31, 2020 وعليكم السلام 🙂 في التقرير ، في حدث No Data ، اكتب هذا الكود (طبعا يمكنك حذف سطر الرسالة، ولكني افضل ان يعرف المستخدم ان البرنامج يعمل وان التقرير فارغ) : Private Sub Report_NoData(Cancel As Integer) MsgBox "لا توجد بيانات" Cancel = True End Sub جعفر 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر أغسطس 31, 2020 مشاركة قام بنشر أغسطس 31, 2020 6 دقائق مضت, jjafferr said: وعليكم السلام 🙂 في التقرير ، في حدث No Data ، اكتب هذا الكود (طبعا يمكنك حذف سطر الرسالة، ولكني افضل ان يعرف المستخدم ان البرنامج يعمل وان التقرير فارغ) : Private Sub Report_NoData(Cancel As Integer) MsgBox "لا توجد بيانات" Cancel = True End Sub جعفر شكرا استاذي ومعلمي على المعلومة القيمة رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر أغسطس 31, 2020 أفضل إجابة مشاركة قام بنشر أغسطس 31, 2020 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 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر أغسطس 31, 2020 مشاركة قام بنشر أغسطس 31, 2020 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 تنزيلات ملك الاكواد وبجدارة رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر سبتمبر 1, 2020 الكاتب مشاركة قام بنشر سبتمبر 1, 2020 الخبراء الافاضل ازهر عبد العزيز _ jjafferr خالص الشكر لحل مشكلتى عن طريق الكود مرة وعن طريق الماكرو مرة شكرا جزيلا لكما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان