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

**ابو جودي** · ديسمبر 3, 2016

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

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

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

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

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

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

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

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

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

**jjafferr** · ديسمبر 3, 2016

تفضل :smile:

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


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, 2016

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

تفضل :smile:

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


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** · ديسمبر 3, 2016

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


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

جعفر

**ابو جودي** · ديسمبر 3, 2016

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

:signthankspin:

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

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

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

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

**jjafferr** · ديسمبر 3, 2016

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

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

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

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

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

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

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

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

الان, 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** · ديسمبر 3, 2016

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

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

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

جعفر

**ابو جودي** · ديسمبر 3, 2016

الان, jjafferr said:

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

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

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

جعفر

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

**jjafferr** · ديسمبر 3, 2016

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

.

الكود


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

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

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

.

الكود



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

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

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

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

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

**jjafferr** · ديسمبر 3, 2016

حياك الله :smile:

**ابو جودي** · ديسمبر 3, 2016

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

حياك الله

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

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

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

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

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

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

Private Sub Form_Open(Cancel As Integer)

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

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

**عمر ضاحى** · أكتوبر 14, 2023

في 4‏/12‏/2016 at 00:57, ابو جودي said:
فى حاجة زعلتنى

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

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

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

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

هل فى طريقة ان لو انا عاوز اضيف كود يتم اضافته تحت السطر
Private Sub Form_Open(Cancel As Integer)
فيتم دمج الكود الجديد مع الاى كود اخر موجود من قبل

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

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

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

**ابو جودي** · أكتوبر 14, 2023

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

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

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

**عمر ضاحى** · أكتوبر 14, 2023

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

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

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

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

**ابو جودي** · أكتوبر 14, 2023

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

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

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

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

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

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

**ابو جودي** · أكتوبر 14, 2023

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

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

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

وانا حبيبت اهز الورد بس يا ورد :yes: :fff: :wink2:

تسجيل الدخول

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

الردود الموصى بها

ابو جودي

jjafferr

ابو جودي

jjafferr

ابو جودي

jjafferr

ابو جودي

jjafferr

ابو جودي

jjafferr

ابو جودي

jjafferr

ابو جودي

عمر ضاحى

ابو جودي

عمر ضاحى

ابو جودي

ابو جودي

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information