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

[ابو جودي]

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

فكرة المرفق الاتى كود برمجى يتم وضعه فى الجدول   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‏/12‏/2016 at 19:37, 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.zipFetching info...

Expand  

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

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

[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]

  في 3‏/12‏/2016 at 20:08, ابا جودى said:

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

 

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

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

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

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

Expand  

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

 

واذا تريد تاخذ القيمة من مربع نص اسمه 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

 

جعفر

[ابو جودي]

  في 3‏/12‏/2016 at 20:13, 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

 

جعفر

Expand  

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

 

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

 

button create

[jjafferr]

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

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

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

 

جعفر

[ابو جودي]

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

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

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

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

 

جعفر

Expand  

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

[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

[ابو جودي]

  في 3‏/12‏/2016 at 21:08, 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.zipFetching info...

Expand  

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

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

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

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

[jjafferr]

حياك الله 

[ابو جودي]

  في 3‏/12‏/2016 at 21:19, jjafferr said:

حياك الله 

Expand  

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

 

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

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

 

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

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

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

Private Sub Form_Open(Cancel As Integer)

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


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

[عمر ضاحى]

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

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

 

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

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

 

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

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

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

Private Sub Form_Open(Cancel As Integer)

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


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

Expand  

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

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

[ابو جودي]

  في 14‏/10‏/2023 at 04:46, عمر ضاحى said:

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

Expand  

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

[عمر ضاحى]

  في 14‏/10‏/2023 at 05:58, ابو جودي said:

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

Expand  

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

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

[ابو جودي]

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

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

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

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

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

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

Expand  

 

[ابو جودي]

  في 14‏/10‏/2023 at 06:36, عمر ضاحى said:

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

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

Expand  

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