اخواني الكرام :
السلام عليكم
في مثالي المرفق يوجد نموذج باسم print يخص ازرار الطباعة .
اريد ان يفتح هذا النموذج عند معاينة اي تقرير ويغلق معه ( وذلك بدل شريط الطباعة المعروف ) / مع تفعيل الازرار للطباعة او اظهار مربع حوار الطابعة طبعاً .
حاولت عمله عند فتح التقرير لكنه لا يفتح .
بارك الله فيكم
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
ان كان الموضوع فتح نموذج واغلاقه فقم بوضع الكود التالي عند حدث عند الفتح للتقرير:
DoCmd.OpenForm "frmname"
على اعتبار ان frmname هو اسم النموذج كذلك ضع في حذث عند الاغلاق للتقرير الكود التالي:
DoCmd.Close acForm, "frmname"
وكرر ذلك لكل تقرير
اخي ابو يوسف
بارك الله بك وجعله في ميزان حسناتك
لقد قمت بتطبيق الطريقة على برنامجي لكن ظهر الخطأ التالي :
ارجو افادتي عن المشكلة
مع العلم بان هذه المشكلة تخرج عند الضغط على زر الخروج في نموذج الطباعة بعد المعاينة للتقرير
جزاك الله خيرا
تم تعديل هذه المشاركة بواسطة malik2010 في 15 مارس 2011 في 22:03
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
للرفع
بارك الله فيكم
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي العزيز ابو يوسف
هل يمكن حل المشكلة ؟
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اقتباسهل قمت بنقل الوحدة النمطية اخى ؟
صحيح قمت بنقل جميع الوحدات النمطية لبرنامجي
هل يمكن ان يكون هناك تشابه في الوحدات النمطية في برنامجي ؟
بارك الله فيك
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي ابو يوسف
لقد اتضح ان هناك وحدتين نمطيتيتن وبها نفس الفنكشن
الاولى :
Function IsLoaded(FrmName As String) As Boolean
Dim I As Integer
IsLoaded = False
For I = 0 To Forms.Count - 1
If Forms(I).Name = FrmName Then
IsLoaded = True
Exit Function
End If
Next I
End Functionوالثانية :
Function IsLoaded(ByVal MyFormName As String) As Integer
' Returns True if the specified form is loaded.
Dim I
IsLoaded = False
For I = 0 To Forms.Count - 1
If Forms(I).FormName = MyFormName Then
IsLoaded = True
Exit Function ' Quit function once form has been found.
End If
Next
End Functionهل هن متاشبهات
ماذا افعل هل اشطب واحدة منها ؟
اخاف ان تؤثر على عمل البرنامج .
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي ابو يوسف
لقد قمت بحذف احد الكودين ولكن بقيت المشكلة كما هي .
وعند البحث في برنامجي وجدة وحدة نمطية اسمها Isloaded
وبها الاكواد التالي :
Option Compare Database 'Use database order for string comparisons
Option Explicit
Function EnableControls(WhichSection As String, State As Integer) As Integer
' Enable or disable controls in specified section of form.
Dim MyForm As Form
Dim MyControl As Control
Dim I As Integer, SelectedSection As Integer
' Use active form. If no form is active, exit
' function without displaying error message.
On Error Resume Next
Set MyForm = Screen.ActiveForm
If Err Then
EnableControls = False
On Error GoTo 0
Exit Function
End If
' Define valid values for WhichSection.
Select Case UCase$(WhichSection)
Case "FORM HEADER"
SelectedSection = 1
Case "PAGE HEADER"
SelectedSection = 3
Case "detail"
SelectedSection = 0
Case "PAGE FOOTER"
SelectedSection = 4
Case "FORM FOOTER"
SelectedSection = 2
Case Else
MsgBox "Invalid argument", , "EnableControls"
EnableControls = False
Exit Function
End Select
' Set state for all controls in specified section.
For I = 0 To MyForm.Count - 1
Set MyControl = MyForm(I)
If MyControl.Section = SelectedSection Then
On Error Resume Next
MyControl.Enabled = State
On Error GoTo 0
End If
Next I
EnableControls = True
End Functionوعند حذفها كليا من البرنامج حلت المشكلة .
ولكني لا اعرف ما اهميتها في برنامجي ، اخاف ان يتسبب حذفها بمشاكل في برنامجي مستقبلا .
ارجو افادتي عن محتوى هذه الوحدة واقتراحاتك
وبارك الله بك وكل الشكر لجهودك +1
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخى الافضل ان تغير اسمها بدل الغاءها
اخي ابو يوسف
مشكور وبارك الله فيك
الف الف شكر +1
ضبط 100% بعد تغيير اسم الوحدة النمطية .
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري