king5star قام بنشر يونيو 8, 2017 قام بنشر يونيو 8, 2017 السلام عليكم اخوانى اريد ان اضيف حدث لكل النماذج بحدث عند التحميل والكود الذى اريد اضافتة هو 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 قام بنشر يونيو 8, 2017 تمت الإجابة قام بنشر يونيو 8, 2017 .Modal غير صحيحة ليس له أوبجيكت استبدله بالتالي وجرب Forms(Frm.Name).Modal = False 1
king5star قام بنشر يونيو 8, 2017 الكاتب قام بنشر يونيو 8, 2017 في 8/6/2017 at 18:41, Gamal.Saad said: .Modal غير صحيحة ليس له أوبجيكت استبدله بالتالي وجرب Forms(Frm.Name).Modal = False Expand بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج ! ولك جزيل الشكر . 1
Gamal.Saad قام بنشر يونيو 8, 2017 قام بنشر يونيو 8, 2017 في 8/6/2017 at 20:17, king5star said: بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج ! ولك جزيل الشكر . Expand المفترض أنه كذلك بالفعل For Each Frm In DBS.AllForms Name_Frm = Frm.name DoCmd.OpenForm Name_Frm, acViewDesign .Modal = true DoCmd.close acForm, Name_Frm, acSaveYesNext لاحظ أول سطر وآخر سطر 1
king5star قام بنشر يونيو 8, 2017 الكاتب قام بنشر يونيو 8, 2017 في 8/6/2017 at 20:26, 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, acSaveYesNext لاحظ أول سطر وآخر سطر Expand تمام اخى اشتغل تمام الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج
Gamal.Saad قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم DoCmd.OpenForm Name_Frm, acViewDesign أوك هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة 1
Shivan Rekany قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 (معدل) استأذن من السيد @Gamal.Saad حسب فهمي لسؤالك هذا في 8/6/2017 at 23:31, king5star said: الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج Expand ما هو السبب تريد ان تضع الكود في كل النموذج حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟ م.2011.شفان ريكاني تم تعديل يونيو 9, 2017 بواسطه Shivan Rekany 1
king5star قام بنشر يونيو 9, 2017 الكاتب قام بنشر يونيو 9, 2017 في 9/6/2017 at 22:42, Shivan Rekany said: استأذن من السيد @Gamal.Saad حسب فهمي لسؤالك هذا ما هو السبب تريد ان تضع الكود في كل النموذج حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟ م.2011.شفان ريكاني Expand شكرا اخى شيفان لاهتمامك هذه الداله تقوم بتغير الالوان فى كافه النماذج ويجب إضافتها فى حدث عند التحميل فى النموذج كل نموذج على حدي وهذا ما فى الامر اما جعل النموذج منبثق أو مشروط فهذا لعرض اخر .
Gamal.Saad قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 في 11/6/2017 at 03:04, king5star said: للرفع Expand هههههههه لا أعلم من الذي يجب عليه أن يقولها أنا أم أنت في 9/6/2017 at 09:09, Gamal.Saad said: في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم DoCmd.OpenForm Name_Frm, acViewDesign أوك هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة Expand للرفع + up 1
king5star قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 ليس هؤلاء انظر اخى انا اقوم بفتح كل نموذج على حدي فى وضع التصميم واقوم بوضح حدث عن التحميل ما اريده كود يضيف هذا الحدث لكل النماذج دفعه واحدة بدون ان اقوم بوضعه لكل نموذج لوحده اتمنى ان اكون اضحت ما اريد .
Gamal.Saad قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 أهااا تريد أن تكتب داخل vba لكل نموذج وليس أن يعمل الكود لكل النماذج ! يبدو أن النماذج لديك كثيرة للغاية على العموم سأجرب لك [Event Procedure] ولو توصلت لنتيجة سأوافيك إن شاء الله 1
ابوخليل قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 السلام عليكم مشاركة معكم احبتي الكود الذي تفضلت بعرضه ثم قام بالتعديل عليه الاستاذ جمال يعمل بكفاءة حسب الطلب في المثال : انقر على الزر فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح db1.rarFetching info... 3
king5star قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 في 11/6/2017 at 18:28, Gamal.Saad said: أهااا تريد أن تكتب داخل vba لكل نموذج وليس أن يعمل الكود لكل النماذج ! يبدو أن النماذج لديك كثيرة للغاية على العموم سأجرب لك [Event Procedure] ولو توصلت لنتيجة سأوافيك إن شاء الله Expand تمام هذا هو المطلوب . وفى انتظارك . في 11/6/2017 at 18:46, ابوخليل said: السلام عليكم مشاركة معكم احبتي الكود الذي تفضلتوا بعرضه ثم التعديل عليه يعمل بكفاءة حسب الطلب في المثال : انقر على الزر فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح db1.rarFetching info... Expand شكراً استاذى @ابو خليل على المشاركو الطيبة وقد توصلت مع استاذى @Gama.saad لهذا النتيجة وتبقى الجزء الثانى وهو وضع حدث لكل النماذج .
أبو إبراهيم الغامدي قام بنشر يونيو 12, 2017 قام بنشر يونيو 12, 2017 السلام عليكم جميعا يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية Object.[event]="=MsgBox('Say Something')" يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد! إليك مرفق الاستاذ أبو خليل بعد التعديل db1.zipFetching info... 3 1
king5star قام بنشر يونيو 12, 2017 الكاتب قام بنشر يونيو 12, 2017 في 12/6/2017 at 02:18, أبو إبراهيم الغامدي said: السلام عليكم جميعا يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية Object.[event]="=MsgBox('Say Something')" يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد! إليك مرفق الاستاذ أبو خليل بعد التعديل db1.zipFetching info... Expand شكراً أخى @أبو إبراهيم الغامدي لمشاركتك الطيبه انظر لدى هذه الداله وقد قام بوضعها استاذى صالح حمادى فى برنامج انشاء شريط القوائم وتقريباً تفى بالغرض ولكن لم استطيع تعديلها فها هى : 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 قام بنشر يونيو 12, 2017 قام بنشر يونيو 12, 2017 اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته اشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي 3
king5star قام بنشر يونيو 12, 2017 الكاتب قام بنشر يونيو 12, 2017 في 12/6/2017 at 23:06, Shivan Rekany said: اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته اشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي Expand شكراً استاذى شيفان وسوف اقوم بوضع موضوع جيد لهذا الجزء .
king5star قام بنشر يونيو 12, 2017 الكاتب قام بنشر يونيو 12, 2017 (معدل) تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي تم تعديل يونيو 12, 2017 بواسطه king5star
Shivan Rekany قام بنشر يونيو 13, 2017 قام بنشر يونيو 13, 2017 في 12/6/2017 at 23:53, king5star said: تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي Expand لذلك انا قلت لك افتح موضوع جديد اها تم الوصول الى النتيجة اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك تقبل تحياتي 1
ابوخليل قام بنشر يونيو 13, 2017 قام بنشر يونيو 13, 2017 في 12/6/2017 at 23:06, Shivan Rekany said: ااشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي Expand شكرا لكم جميعا ولا يحتاج تاخذون رأي احد لانكم انتم اهل المنتدى واعرف بالفائدة والمصلحة العامة 2
king5star قام بنشر يونيو 13, 2017 الكاتب قام بنشر يونيو 13, 2017 في 13/6/2017 at 00:40, Shivan Rekany said: لذلك انا قلت لك افتح موضوع جديد اها تم الوصول الى النتيجة اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك تقبل تحياتي Expand بالفعل كان الحل فى شكراً اخي شيفان وسوف اقوم بوضع القاعدتين اليوم لتعم الفائده وشكراً جزيلا لك .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.