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 1 ساعه مضت, Gamal.Saad said: .Modal غير صحيحة ليس له أوبجيكت استبدله بالتالي وجرب Forms(Frm.Name).Modal = False بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج ! ولك جزيل الشكر . 1
Gamal.Saad قام بنشر يونيو 8, 2017 قام بنشر يونيو 8, 2017 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, acSaveYesNext لاحظ أول سطر وآخر سطر 1
king5star قام بنشر يونيو 8, 2017 الكاتب قام بنشر يونيو 8, 2017 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, acSaveYesNext لاحظ أول سطر وآخر سطر تمام اخى اشتغل تمام الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج
Gamal.Saad قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم DoCmd.OpenForm Name_Frm, acViewDesign أوك هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة 1
Shivan Rekany قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 (معدل) استأذن من السيد @Gamal.Saad حسب فهمي لسؤالك هذا الان, king5star said: الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج ما هو السبب تريد ان تضع الكود في كل النموذج حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟ م.2011.شفان ريكاني تم تعديل يونيو 9, 2017 بواسطه Shivan Rekany 1
king5star قام بنشر يونيو 9, 2017 الكاتب قام بنشر يونيو 9, 2017 35 دقائق مضت, Shivan Rekany said: استأذن من السيد @Gamal.Saad حسب فهمي لسؤالك هذا ما هو السبب تريد ان تضع الكود في كل النموذج حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟ م.2011.شفان ريكاني شكرا اخى شيفان لاهتمامك هذه الداله تقوم بتغير الالوان فى كافه النماذج ويجب إضافتها فى حدث عند التحميل فى النموذج كل نموذج على حدي وهذا ما فى الامر اما جعل النموذج منبثق أو مشروط فهذا لعرض اخر .
Gamal.Saad قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 13 hours ago, king5star said: للرفع هههههههه لا أعلم من الذي يجب عليه أن يقولها أنا أم أنت On ٩/٦/٢٠١٧ at 11:09 AM, Gamal.Saad said: في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم DoCmd.OpenForm Name_Frm, acViewDesign أوك هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة للرفع + up 1
king5star قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 ليس هؤلاء انظر اخى انا اقوم بفتح كل نموذج على حدي فى وضع التصميم واقوم بوضح حدث عن التحميل ما اريده كود يضيف هذا الحدث لكل النماذج دفعه واحدة بدون ان اقوم بوضعه لكل نموذج لوحده اتمنى ان اكون اضحت ما اريد .
Gamal.Saad قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 أهااا تريد أن تكتب داخل vba لكل نموذج وليس أن يعمل الكود لكل النماذج ! يبدو أن النماذج لديك كثيرة للغاية على العموم سأجرب لك [Event Procedure] ولو توصلت لنتيجة سأوافيك إن شاء الله 1
ابوخليل قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 السلام عليكم مشاركة معكم احبتي الكود الذي تفضلت بعرضه ثم قام بالتعديل عليه الاستاذ جمال يعمل بكفاءة حسب الطلب في المثال : انقر على الزر فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح db1.rar 3
king5star قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 10 ساعات مضت, Gamal.Saad said: أهااا تريد أن تكتب داخل vba لكل نموذج وليس أن يعمل الكود لكل النماذج ! يبدو أن النماذج لديك كثيرة للغاية على العموم سأجرب لك [Event Procedure] ولو توصلت لنتيجة سأوافيك إن شاء الله تمام هذا هو المطلوب . وفى انتظارك . 10 ساعات مضت, ابوخليل said: السلام عليكم مشاركة معكم احبتي الكود الذي تفضلتوا بعرضه ثم التعديل عليه يعمل بكفاءة حسب الطلب في المثال : انقر على الزر فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح db1.rar شكراً استاذى @ابو خليل على المشاركو الطيبة وقد توصلت مع استاذى @Gama.saad لهذا النتيجة وتبقى الجزء الثانى وهو وضع حدث لكل النماذج .
أبو إبراهيم الغامدي قام بنشر يونيو 12, 2017 قام بنشر يونيو 12, 2017 السلام عليكم جميعا يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية Object.[event]="=MsgBox('Say Something')" يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد! إليك مرفق الاستاذ أبو خليل بعد التعديل db1.zip 3 1
king5star قام بنشر يونيو 12, 2017 الكاتب قام بنشر يونيو 12, 2017 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 قام بنشر يونيو 12, 2017 قام بنشر يونيو 12, 2017 اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته اشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي 3
king5star قام بنشر يونيو 12, 2017 الكاتب قام بنشر يونيو 12, 2017 2 minutes ago, Shivan Rekany said: اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته اشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي شكراً استاذى شيفان وسوف اقوم بوضع موضوع جيد لهذا الجزء .
king5star قام بنشر يونيو 12, 2017 الكاتب قام بنشر يونيو 12, 2017 (معدل) تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي تم تعديل يونيو 12, 2017 بواسطه king5star
Shivan Rekany قام بنشر يونيو 13, 2017 قام بنشر يونيو 13, 2017 الان, king5star said: تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي لذلك انا قلت لك افتح موضوع جديد اها تم الوصول الى النتيجة اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك تقبل تحياتي 1
ابوخليل قام بنشر يونيو 13, 2017 قام بنشر يونيو 13, 2017 17 ساعات مضت, Shivan Rekany said: ااشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي شكرا لكم جميعا ولا يحتاج تاخذون رأي احد لانكم انتم اهل المنتدى واعرف بالفائدة والمصلحة العامة 2
king5star قام بنشر يونيو 13, 2017 الكاتب قام بنشر يونيو 13, 2017 6 hours ago, Shivan Rekany said: لذلك انا قلت لك افتح موضوع جديد اها تم الوصول الى النتيجة اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك تقبل تحياتي بالفعل كان الحل فى شكراً اخي شيفان وسوف اقوم بوضع القاعدتين اليوم لتعم الفائده وشكراً جزيلا لك .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.