طلب تعديل على كود _ تعديل خصائص نموذج

[king5star]

السلام عليكم اخوانى

اريد ان اضيف حدث لكل النماذج بحدث عند التحميل والكود الذى اريد اضافتة هو call Test(me)

وتغير خاصية النموذج Modal او منبثق الى true

وقد قمت بصنع هذا الكود ولكنه لم يعمل ولم اعرف طريقة اضافة الحدث كما هو موضح :

Function test()
Dim Frm As AccessObject, DBS As Object

Set DBS = Application.CurrentProject
    Dim Name_Frm As String
    
For Each Frm In DBS.AllForms
Name_Frm = Frm.name

    DoCmd.OpenForm Name_Frm, acViewDesign
    .Modal  = true
   DoCmd.close acForm, Name_Frm, acSaveYes
Next

End Function

 

[Gamal.Saad]

.Modal

غير صحيحة

ليس له أوبجيكت

استبدله بالتالي وجرب

 Forms(Frm.Name).Modal = False

 

[king5star]

1 ساعه مضت, Gamal.Saad said:

.Modal

غير صحيحة

ليس له أوبجيكت

استبدله بالتالي وجرب

 Forms(Frm.Name).Modal = False

 

بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج !

ولك جزيل الشكر .

[Gamal.Saad]

6 minutes ago, king5star said:

بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج !

ولك جزيل الشكر .

المفترض أنه كذلك بالفعل

For Each Frm In DBS.AllForms
Name_Frm = Frm.name

    DoCmd.OpenForm Name_Frm, acViewDesign
    .Modal  = true
   DoCmd.close acForm, Name_Frm, acSaveYes
Next

لاحظ أول سطر وآخر سطر

[king5star]

3 ساعات مضت, Gamal.Saad said:

المفترض أنه كذلك بالفعل

For Each Frm In DBS.AllForms
Name_Frm = Frm.name

    DoCmd.OpenForm Name_Frm, acViewDesign
    .Modal  = true
   DoCmd.close acForm, Name_Frm, acSaveYes
Next

لاحظ أول سطر وآخر سطر

تمام اخى اشتغل تمام

الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج

 

[Gamal.Saad]

في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم

DoCmd.OpenForm Name_Frm, acViewDesign

 

أوك

هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟

أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟

أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟

أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟

 

الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة

[Shivan Rekany]

استأذن من السيد @Gamal.Saad 
حسب فهمي لسؤالك هذا 

الان, king5star said:

الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج

ما هو السبب تريد ان تضع الكود في كل النموذج

حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج 
لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟

م.2011.شفان ريكاني

تم تعديل يونيو 9, 2017 بواسطه Shivan Rekany

[king5star]

35 دقائق مضت, Shivan Rekany said:

استأذن من السيد @Gamal.Saad 
حسب فهمي لسؤالك هذا 

ما هو السبب تريد ان تضع الكود في كل النموذج

حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج 
لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟

م.2011.شفان ريكاني

شكرا اخى شيفان لاهتمامك هذه الداله تقوم بتغير الالوان فى كافه النماذج ويجب إضافتها فى حدث عند التحميل فى النموذج كل نموذج على حدي وهذا ما فى الامر اما جعل النموذج منبثق أو مشروط فهذا لعرض اخر .

[king5star]

للرفع

[Gamal.Saad]

13 hours ago, king5star said:

للرفع

هههههههه

لا أعلم من الذي يجب عليه أن يقولها أنا أم أنت

 

On ٩‏/٦‏/٢٠١٧ at 11:09 AM, Gamal.Saad said:

في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم

DoCmd.OpenForm Name_Frm, acViewDesign

 

أوك

هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟

أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟

أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟

أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟

 

الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة

للرفع

+

up

 

[king5star]

ليس هؤلاء انظر اخى انا اقوم بفتح كل نموذج على حدي فى وضع التصميم واقوم بوضح حدث عن التحميل ما اريده كود يضيف هذا الحدث لكل النماذج دفعه واحدة بدون ان اقوم بوضعه لكل نموذج لوحده اتمنى ان اكون اضحت ما اريد .

[Gamal.Saad]

أهااا

تريد أن تكتب داخل

vba

لكل نموذج

وليس أن يعمل الكود لكل النماذج !

يبدو أن النماذج لديك كثيرة للغاية

على العموم سأجرب لك

[Event Procedure]

ولو توصلت لنتيجة سأوافيك إن شاء الله

[ابوخليل]

السلام عليكم

مشاركة معكم احبتي

الكود الذي تفضلت بعرضه ثم قام بالتعديل عليه الاستاذ جمال يعمل بكفاءة  حسب الطلب

في المثال  : انقر على الزر  فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح

 

 

db1.rar

[king5star]

10 ساعات مضت, Gamal.Saad said:

أهااا

تريد أن تكتب داخل

vba

لكل نموذج

وليس أن يعمل الكود لكل النماذج !

يبدو أن النماذج لديك كثيرة للغاية

على العموم سأجرب لك

[Event Procedure]

ولو توصلت لنتيجة سأوافيك إن شاء الله

تمام هذا هو المطلوب .

وفى انتظارك .

10 ساعات مضت, ابوخليل said:

السلام عليكم

مشاركة معكم احبتي

الكود الذي تفضلتوا بعرضه ثم التعديل عليه يعمل بكفاءة  حسب الطلب

في المثال  : انقر على الزر  فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح

 

 

db1.rar

شكراً استاذى @ابو خليل على المشاركو الطيبة وقد توصلت مع استاذى @Gama.saad لهذا النتيجة وتبقى الجزء الثانى وهو وضع حدث لكل النماذج .

[أبو إبراهيم الغامدي]

السلام عليكم جميعا

يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية

Object.[event]="=MsgBox('Say Something')"

يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا

تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد!

إليك مرفق الاستاذ أبو خليل بعد التعديل

db1.zip

[king5star]

20 hours ago, أبو إبراهيم الغامدي said:

السلام عليكم جميعا

يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية

Object.[event]="=MsgBox('Say Something')"

يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا

تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد!

إليك مرفق الاستاذ أبو خليل بعد التعديل

db1.zip

شكراً أخى @أبو إبراهيم الغامدي لمشاركتك الطيبه انظر لدى هذه الداله وقد قام بوضعها استاذى صالح حمادى فى برنامج انشاء شريط القوائم وتقريباً تفى بالغرض ولكن لم استطيع تعديلها فها هى :

DoCmd.OpenForm new_name, acDesign
   For i1 = 1 To nombre_subliste
      t = 0 + (453.5433070866) * (i1 - 1) ' الأعلى
      L = 0      ' اليسار

      Set crt = CreateControl(new_name, acCommandButton, acDetail, , , L, t, "1700.787401575", "453.5433070866")
      With crt
         .Caption = DLookup("[name_button]", "[tbl_sublist]", "[id_button]=" & i1 & "And[id_list]=" & i)
         .BackColor = 15918812
         .BorderColor = 15918812
         .name = "B" & i1
      End With

      str_code = "Private Sub " & "B" & i1 & "_Click()" & vbCrLf & _
      "forms!" & form_name & "!sublist" & i & ".Height = 0" & vbCrLf & _
      DLookup("[code_button]", "tbl_sublist", "[id_button]=" & i1 & "And[id_list]=" & i) & vbCrLf & _
      "End Sub"
      Forms(new_name).Module.AddFromString str_code
 
      str_code = "Private Sub " & "B" & i1 & "_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)" & vbCrLf & _
      "if me.B" & i1 & ".BackColor = 15918812 then" & vbCrLf & _
      ""
      For i2 = 1 To nombre_subliste
         If i2 = i1 Then
           str_code = str_code & "me.B" & i2 & ".BackColor=15849926" & vbCrLf & _
           ""
         Else
           str_code = str_code & "me.B" & i2 & ".BackColor=15918812" & vbCrLf & _
           ""
         End If
      Next i2
      
      str_code = str_code & "end if" & vbCrLf & _
      "end sub"
      Forms(new_name).Module.AddFromString str_code
   
   Next i1
   DoCmd.close acForm, new_name, acSaveYes

 

[Shivan Rekany]

اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته

اشوف من الاحسن ان تفتح موضوع جديد 

لان في هذه الموضوع 
1 / الخطأ في اسم الموضوع

2/ موضوع داخل موضوع
هذا حسب رأيي والله يعلم 
لذا نريد ان نأخذ الرأي استاذنا @ابوخليل  على هذا

تقبلوا تحياتي

[king5star]

2 minutes ago, Shivan Rekany said:

اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته

اشوف من الاحسن ان تفتح موضوع جديد 

لان في هذه الموضوع 
1 / الخطأ في اسم الموضوع

2/ موضوع داخل موضوع
هذا حسب رأيي والله يعلم 
لذا نريد ان نأخذ الرأي استاذنا @ابوخليل  على هذا

تقبلوا تحياتي

شكراً استاذى شيفان وسوف اقوم بوضع موضوع جيد لهذا الجزء .

[king5star]

تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي

 

تم تعديل يونيو 12, 2017 بواسطه king5star

[Shivan Rekany]

الان, king5star said:

تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي

 

لذلك انا قلت لك افتح موضوع جديد

اها تم الوصول الى النتيجة

اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك

تقبل تحياتي

[ابوخليل]

17 ساعات مضت, Shivan Rekany said:

ااشوف من الاحسن ان تفتح موضوع جديد 

لان في هذه الموضوع 
1 / الخطأ في اسم الموضوع

2/ موضوع داخل موضوع
هذا حسب رأيي والله يعلم 
لذا نريد ان نأخذ الرأي استاذنا @ابوخليل  على هذا

تقبلوا تحياتي

شكرا لكم جميعا

ولا يحتاج تاخذون رأي احد  لانكم انتم اهل المنتدى  واعرف بالفائدة والمصلحة العامة 

[king5star]

6 hours ago, Shivan Rekany said:

لذلك انا قلت لك افتح موضوع جديد

اها تم الوصول الى النتيجة

اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك

تقبل تحياتي

بالفعل كان الحل فى شكراً اخي شيفان وسوف اقوم بوضع القاعدتين اليوم لتعم الفائده وشكراً جزيلا لك .