السلام عليكم
فجأة عند عمل تعديل في التقرير أصبح لا يعمل حيث عند البداية يعطي الخطأ التالي مع العلم انه في حدث عند الفتح يوجد كود لفتح نموذج "Report Date Range"
Option Compare Database
Private Sub Report_Close()
DoCmd.Close acForm, "Report Date Range"
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Report Date Range", , , , , acDialog, "المعاملات"
If Not IsLoaded("Report Date Range") Then
Cancel = True
End If
End Subارجو المساعدة من فضلكم
"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"
صدق الله العظيم
أخي الكريم
السلام عليكم
ليتك ترفق المثال حتى نعرف المشكلة خاصة أنك لم تذكر ما هو الخطأ
تحياتي
أخي الكريم
السلام عليكم
أضف الكود التالي للوحدة النمطية الموجودة في البرنامج
Function IsLoaded(ByVal strFormName As String) As Boolean Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function
تحياتي
أخوك / أبو هاجر
السلام عليكم
شكرا جزيلا لك ابو هاجر
ولكن ما هي الوحدة النمطية :o سامحني فأنا مبتدأ في الأكسس
تحياتي
"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"
صدق الله العظيم
أخي الكريم
السلام عليكم
الدالة السابقة تقوم بالتأكد مما إذا كان النموذج الممرر لها مفتوحاً أم لا
تحياتي
هذا الموضوع مغلق.