سؤال عن كيفية اضافة كود لاكثر من نموذج من خلال زر امر

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
اساتذتى الكرام 
بعد التحية الطيبة 

فكرة المرفق الاتى كود برمجى يتم وضعه فى الجدول   tbl_secur_add_code  
ويتم استدعاءة من نموذج     frm_secur_add_code
وذلك لاضافة الاوامر البرمجية داخل محرر الاكواد دون فتح التصميم والاضافة بالطريقة اليدوية

 

المشاكل التى واجهتها ولم استطع حلها 

- هذا السطر من الكود يعطى خطأ 

N = M.ProcCountLines("Form_Open", vbext_pk_Proc)

وعندما قمت بتعطيل هذا السطر تم وضع الكود على كل النماذج ولكن حدثت مشكلة اخرى

- المشكلة الثانية عدم وضع الكود على النموذج الاول فقط 
اتمنى على الله تعالى ان اجد حل لتلك المشكلة

جزاكم الله تعالى عنى وعن كل طلاب العلم وعن امة محمد صلى الله عليه وسلم خيرا 


 

اضافة كود فى محرر الاكواد بزر امر.rar

[jjafferr]

تفضل

 

ولكن بكود آخر:

Private Sub Command1_Click()

    Dim str As String, theForm As String

    theForm = Me.form_list.Value
    DoCmd.OpenForm theForm, acDesign, , , , acHidden

        str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str
 
    DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

End Sub

 

جعفر

472.اضافة كود فى محرر الاكواد بزر امر.mdb.zip

[ابو جودي]

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

تفضل

 

ولكن بكود آخر:

Private Sub Command1_Click()

    Dim str As String, theForm As String

    theForm = Me.form_list.Value
    DoCmd.OpenForm theForm, acDesign, , , , acHidden

        str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str
 
    DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

End Sub

 

جعفر

472.اضافة كود فى محرر الاكواد بزر امر.mdb.zip

بس يا استاذ جعفر ده بيضيف الكود على النموذج اللى بيتم اختياره فقط من القائمة وليس على النماج دفعة واحدة

هل يمكن تطبيقه على كل النمذج التى بالقائمة دفعة واحده ؟

[jjafferr]

معلش ، العتب على النظر ، تفضل يا سيدي

Private Sub Command1_Click()

    Dim str As String, theForm As String

    For i = 0 To Me.form_list.ListCount - 1
    
        theForm = Me.form_list.ItemData(i)

        DoCmd.OpenForm theForm, acDesign, , , , acHidden

        str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str

        DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

    Next i

End Sub

 

جعفر

[ابو جودي]

جزاكم الله تعالى كل الخير استاذى الجليل ومعلمى القدير  

 

طيب كرما وفضلا من حضراتكم وطمعا منى ممكن سؤال اخر 

هل يمكن عمل زر امر بجواره مربع نص 
ويتم اختيار نموذج من القائمة 
وعند الضغط على هذا الـ زر الامر يتم يتم انشاء زر امر جديد فى النموذج الذى تم اختياره من القائمة ويكون زر الامر الذى سيتم انشائه سيكون اسمه من مربع النص

يعنى مثلا لو تم كتابة الاتى فى مربع النص     cmd_print

يكون هذا هو اسم زر الامر الجديد الذى سوف يتم انشائه

[jjafferr]

2 دقائق مضت, ابا جودى said:

جزاكم الله تعالى كل الخير استاذى الجليل ومعلمى القدير  

 

طيب كرما وفضلا من حضراتكم وطمعا منى ممكن سؤال اخر 

هل يمكن عمل زر امر بجواره مربع نص 
ويتم اختيار نموذج من القائمة 
وعند الضغط على هذا الـ زر الامر يتم يتم انشاء زر امر جديد فى النموذج الذى تم اختياره من القائمة ويكون زر الامر الذى سيتم انشائه سيكون اسمه من مربع النص

يعنى مثلا لو تم كتابة الاتى فى مربع النص     cmd_print

يكون هذا هو اسم زر الامر الجديد الذى سوف يتم انشائه

اول كود عملته لك يعمل هذا الشئ بالضبط ، إلا انه بدل ان يأخذ قيمته من مربع نص ، فانه يأخذ قيمته من القيمة التي تختارها من مربع السرد 

 

واذا تريد تاخذ القيمة من مربع نص اسمه TextBox1:

Private Sub Command1_Click()

    Dim str As String, theForm As String

    theForm = Me.TextBox1
    DoCmd.OpenForm theForm, acDesign, , , , acHidden

        str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str
 
    DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

End Sub

 

جعفر

[ابو جودي]

الان, jjafferr said:

اول كود عملته لك يعمل هذا الشئ بالضبط ، إلا انه بدل ان يأخذ قيمته من مربع نص ، فانه يأخذ قيمته من القيمة التي تختارها من مربع السرد 

 

واذا تريد تاخذ القيمة من مربع نص اسمه TextBox1:

Private Sub Command1_Click()

    Dim str As String, theForm As String

    theForm = Me.TextBox1
    DoCmd.OpenForm theForm, acDesign, , , , acHidden

        str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str
 
    DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

End Sub

 

جعفر

استاذى الحبيب 
فكرتى هى عمل زر امر جديد داخل احد النماذج

 

هل يمكن انشاء زر امر بالكود ؟
هذا ما اقصده

 

button create

[jjafferr]

طيب ، عرفنا موضوع كود الزر ،

والزر شخصيا ، هل تريد ان تضيفه برمجيا للنموذج كذلك؟ واين في النموذج (س ، ص) ؟

او انه موجود مسبقا؟

 

جعفر

[ابو جودي]

الان, jjafferr said:

طيب ، عرفنا موضوع كود الزر ،

والزر شخصيا ، هل تريد ان تضيفه برمجيا للنموذج كذلك؟ واين في النموذج (س ، ص) ؟

او انه موجود مسبقا؟

 

جعفر

نعم اريد اضافة الزر برمجيا لنموذج يتم اختياره من النماذج الموجوده فى القائمة من المرفق الموجود مثلا فى هذا الموضوع

[jjafferr]

تفضل وتدلل يا باشا 

 

.

الكود

Private Sub cmd_Add_Command_Button_and_Code_Click()

    Dim str As String, theForm As String
    Dim ctl As Control

    theForm = Me.form_list.Value
    DoCmd.OpenForm theForm, acDesign, , , , acHidden
    Set ctl = CreateControl(theForm, acCommandButton, acDetail, , , 1440, 2160, 2880, 600)
    ctl.Name = Me.Button_Name
    ctl.Caption = "للتجربة"
    
        str = "Private Sub " & Me.Button_Name & "_Click" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str
 
    DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

End Sub

جعفر

472.اضافة كود فى محرر الاكواد بزر امر.mdb.zip

[ابو جودي]

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

تفضل وتدلل يا باشا 

 

.

الكود

Private Sub cmd_Add_Command_Button_and_Code_Click()

    Dim str As String, theForm As String
    Dim ctl As Control

    theForm = Me.form_list.Value
    DoCmd.OpenForm theForm, acDesign, , , , acHidden
    Set ctl = CreateControl(theForm, acCommandButton, acDetail, , , 1440, 2160, 2880, 600)
    ctl.Name = Me.Button_Name
    ctl.Caption = "للتجربة"
    
        str = "Private Sub " & Me.Button_Name & "_Click" & vbCrLf & _
              DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _
              "End Sub"
        Forms(theForm).Module.AddFromString str
 
    DoCmd.Close acForm, Forms(theForm).Name, acSaveYes

End Sub

جعفر

472.اضافة كود فى محرر الاكواد بزر امر.mdb.zip

الله يفتح عليك يارب ويزيدك علما ويجازيك عنا كل الخير 
نعم نعم نعم هذا هو المطلوب 

اسال الله تعالى ان يغفر لك ولوالديك ولك من تحبون ولكل المسلمين انشاء الله
شكر الله لكم حسن صنيعكم واحسن اليكم كما تحسنون الينا دائما

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

تم تعديل ديسمبر 3, 2016 بواسطه ابا جودى

[jjafferr]

حياك الله 

[ابو جودي]

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

حياك الله 

فى حاجة زعلتنى

 

لو تم الضغط على الزر اكثر من مرة يتم تكرار الكود مرتين هل من سبيل لايقاف تلك المشكلة

وطبعا تكرار الكود بيعمل خطاء وعدم فتح النموذج

 

امممممممم
فى استفسار كمان لو تكرمت معلش اثقلت على حضرتك

لو اصلا انا عندى حدث على on open

هل فى طريقة ان لو انا عاوز اضيف كود يتم اضافته تحت السطر

Private Sub Form_Open(Cancel As Integer)

فيتم دمج الكود الجديد مع الاى كود اخر موجود من قبل 


ام هذه الافكار غير منطقية برمجيا

[عمر ضاحى]

في 4‏/12‏/2016 at 00:57, ابو جودي said:

فى حاجة زعلتنى

 

لو تم الضغط على الزر اكثر من مرة يتم تكرار الكود مرتين هل من سبيل لايقاف تلك المشكلة

وطبعا تكرار الكود بيعمل خطاء وعدم فتح النموذج

 

امممممممم
فى استفسار كمان لو تكرمت معلش اثقلت على حضرتك

لو اصلا انا عندى حدث على on open

هل فى طريقة ان لو انا عاوز اضيف كود يتم اضافته تحت السطر

Private Sub Form_Open(Cancel As Integer)

فيتم دمج الكود الجديد مع الاى كود اخر موجود من قبل 


ام هذه الافكار غير منطقية برمجيا

ممكن اضافة كود تسجيل عدد النقرات على الزر
اذا كانت النقرات 1 يفعل الكود 

اذا زاد عن 1 لا يفعل شئ اخر وينتظر ظهور النموذج 😅 مثلا

[ابو جودي]

منذ ساعه, عمر ضاحى said:

تسجيل عدد النقرات على الزر

هههههه انت لسه فاكر انا نسيت الموضوع من 6 years later...

[عمر ضاحى]

37 دقائق مضت, ابو جودي said:

هههههه انت لسه فاكر انا نسيت الموضوع من 6 years later...

انت حطيت الرابط 
وانا فتحته وشوفت التعليقات 

فقولت اضيف تعليق ^_^

[ابو جودي]

حتى اسهل على احبابى كثرة التفكير والتجارب وضعت رابط الموضوع 

وما لم انتبه اليه بداية وجعلتنى اصرف نظر عن كل افكارى اللاحقة هى كلمات استاذى الجليلالاستاذ @jjafferr  والتى لم انتبه اليها جيدا فى اول الامر 

في 3‏/12‏/2016 at 22:20, jjafferr said:

طيب ، عرفنا موضوع كود الزر ،

والزر شخصيا ، هل تريد ان تضيفه برمجيا للنموذج كذلك؟ واين في النموذج (س ، ص) ؟

او انه موجود مسبقا؟

 

[ابو جودي]

3 ساعات مضت, عمر ضاحى said:

انت حطيت الرابط 
وانا فتحته وشوفت التعليقات 

فقولت اضيف تعليق ^_^

وانا حبيبت اهز الورد بس يا ورد