يوسف أحمد

تسلم استاذنا الغالي بارك الله فيك لعمل ذلك بداية يتم تنسيق مربعات النصوص a1 و a2 الى رقم عام و ذلك من الخصائص ثم في مصدر مربع النص sa1 نضع التعبير التالي : =IIf(IsNull([a1]) Or IsNull([a2]);0;DCount("id";"[tblNames]";"year(date())-[Brithyear] between " & [a1] & " and [a2] ")) ثم نقوم بوضع كود وليكن باجراء خاص ليقوم بإعادة تهئية مربع النص sa1 للحصول على النتائج بوقتها Private Sub setAgeRange() Me.sa1.Requery End Sub و نقوم باستدعائه بحدث بعد التحديث لمربعي النصوص a1 و a2 تفضل المرفق بعد التعديل بالتوفيق db2.rar

و عليكم السلام اهلا باستاذنا الغالي ابو خليل استخدمت الدالة dCount ارجو ان تكون هي المقصود باقصر طريق بالتوفيق db1.rar

السلام عليكم اخي العزيز محمد هناك طريقة لعمل ذلك و هي كالتالي : اولاً : نعمل استعلام توحيد ( qryUnionMain ) جملته كالتالي : SELECT Table1.eName, Table1.cod_pn, Table1.cut, Table1.cut_no FROM Table1 UNION SELECT Table1.eName, Table1.cod_pn, Table1.cut1, Table1.cut_no1 FROM Table1; و ذلك لتتم عملية الدمج ثانياً : نعمل استعلام تجميعي ( qryMain ) ليقوم بجمع قيم السجلات المتطابقة بالرقم تفضل المرفق بعد التعديل بالتوفيق tb.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز ممكن ان يتغير لون مربع النص للحقل باستخدام التنسيق الشرطي باستخدام التعبير التالي : IsNull([textBoxName]) حيث textBoxName هو اسم مربع النص للحقل تفضل مثال على ذلك بالتوفيق color.rar

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

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

و فيك بارك اخي العزيزي احمد من الافضل ان تذكر اسم النموذج المراد العمل عليه ... و ايضاً هل رقم الشيك فقط المراد اخفاؤه او رقم الشيك و قيمة الشيك ؟ الرجاء التوضيح اكثر مع الشكر

و عليكم السلام اخي العزيز احمد ان كنت فهمت قصدك فأن الكود التالي سيؤدي المطلوب ان شاء الله Select Case Me.test Case "نقدي" DoCmd.Close DoCmd.OpenForm "s22" Case "شيك" DoCmd.Close DoCmd.OpenForm "s2" End Select تفضل المرفق بعد التعديل بالتوفيق برنامج شيكات .rar

سلمك الله من كل مكروه اخي العزيز محمد اذا ممكن ات تضع كل الاحتمالات حتى يتم معالجتها دفعة واحدة عموماً في هذه الحالة سيتغير التعبير للحقل الثاني cod الى التالي : cod: IIf(IsNull([cut]);0;IIf(IsNull([sco]);0;1)) تفضل المرفق بعد التعديل بالتوفيق dt.rar

سلمك الله من كل مكروه اخي العزيز محمد بإمكانك تعيين قيمة افتراضية للحقل sco بصفر حتى لا يترك الحقل فارغاً . اذا كنت تريد عملية الطرح تتم في حالة كان الحقل sco فارغاً فاستبدل التعبير بالتالي : cut: IIf([slr]>[sco];[slr]-[sco];IIf(IsNull([sco]);[slr];Null)) بالتوفيق

قد يتم حذف سجل و في هذه الحالة لا يمكن الاعتماد على اعلى قيمة للحقل id لذا اقدم لك حل آخر Me.combo1.Value = Me.combo1.ItemData(Me.combo1.ListCount - 1) بالتوفيق

و عليكم السلام اخي العزيز محمد سيتم ذلك في حقول محسوبة باستعلام تحديد سميته qry1 التعبير للحقل المحسوب cut هو : cut: IIf([slr]>[sco];[slr]-[sco];Null) و التعبير للحقل المحسوب cod هو : cod: IIf(IsNull([cut]);0;1) مع ملاحظة انه تم حذف الحقلين cut و cod من الجدول و استبدالهما بالحقلين المحسوبين بالاستعلام كما هو موضح اعلاه تفضل المرفق بعد التعديل بالتوفيق dt.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز جيلاني لعمل ذلك ضع الكود التالي في حدث عند الفتح للنموذج Me.combo1.Value = Me.combo1.ItemData(DMax("id", "list4") - 1) حيث combo1 هو اسم مربع التحرير و السرد بالتوفيق

بارك الله فيك اخي العزيز ايمن و شكراً لك على التوضيح ارجو ان يكون هو المطلوب Function ColorFun(X As Variant) As Field Dim Db As Database Dim Rst As Recordset Set Db = CurrentDb Set Rst = Db.OpenRecordset("GList_T") Rst.Index = "PrimaryKey" Rst.Seek "=", Me.GName With Rst If Not Rst.NoMatch Then .Edit .Fields(X) = "12" .Update .Close End If End With Me(Trim(X)).BackColor = "123" End Function تفضل المرفق بعد التعديل بالتوفيق GAPP (1).rar

بارك الله فيك اخي العزيز ايمن السؤال غير واضح و غير مفصل و يفضل ان تشرح بالتفصيل ما تريده من الفكرة حتى يتمكن الجميع من المساهمة في الحل مع الشكر

السلام عليكم مشاركة مع الاستاذ العزيز شيفان الاجراء سيكون كالتالي : Sub changeBtnColor(btn1 As Control, btn2 As Control, btn3 As Control) btn1.BackColor = "9243047" btn2.BackColor = RGB(0, 183, 239) btn3.BackColor = RGB(0, 183, 239) End Sub استدعاؤه في الزر a1 سيكون كالتالي : Call changeBtnColor(A1, A2, A3) و في الزر الثاني a2 سيكون كالتالي : Call changeBtnColor(A2, A1, A3) و في الزر الثالث a3 سيكون كالتالي : Call changeBtnColor(A3, A1, A2) تفضل المرفق بعد التعديل بالتوفيق للجميع GAPP.rar

لا شكر على واجب اخي العزيز حيدر سيتم تغيير التعبير في التنسيق الشرطي ليصبح كالتالي : [name_h]<>"استئذان" تفضل المرفق بعد التعديل بالتوفيق -اجازات - نسخة.rar

السلام عليكم اخي العزيز حيدر استخدمت لك التنسيق الشرطي ليتم عدم تفعيل الخانات عند اختيار الاستئذان و تم الغاء علامات الصح عند اغلاق النموذج ملاحظة : يوجد لديك حقل باسم : Time و هذا الاسم يعتبر محجوز من قبل النظام و استخدامه قد يتسبب لك في مشاكل تفضل المرفق بعد التعديل بالتوفيق -اجازات - نسخة.rar

و يمكن ايضاً تعديل التسميات لتناسب اسماء الحقول المعنية ... سيتغير الكود الى التالي : Select Case Forms!frm1.Form!Cmd.Tag Case 0 Me.aa = DLookup("aa", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("aaa", "tbl1", "id= " & Me.ID) Me.lbl1.Caption = "aa" Me.lbl2.Caption = "aaa" Case 1 Me.aa = DLookup("bb", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("bbb", "tbl1", "id= " & Me.ID) Me.lbl1.Caption = "bb" Me.lbl2.Caption = "bbb" Case 2 Me.aa = DLookup("cc", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("ccc", "tbl1", "id= " & Me.ID) Me.lbl1.Caption = "cc" Me.lbl2.Caption = "ccc" End Select تفضل المرفق بعد التعديل بالتوفيق Tapages2.rar

جزاك الله خير اخي العزيز محمد على دعواتك ... و لك بمثل ما دعوت به و زيادة لعمل ذلك قم بوضع الكود التالي بحدث عند التنسيق لمنطقة تفصيل التقرير Select Case Forms!frm1.Form!Cmd.Tag Case 0 Me.aa = DLookup("aa", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("aaa", "tbl1", "id= " & Me.ID) Case 1 Me.aa = DLookup("bb", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("bbb", "tbl1", "id= " & Me.ID) Case 2 Me.aa = DLookup("cc", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("ccc", "tbl1", "id= " & Me.ID) End Select مع ضرورة حذف مصدر البيانات لمربعات النص على التقرير ( aa و aaa ) لأنه يتم التحكم بمحتواهما بالكود اعلاه ثم تضع سطر الكود التالي لفتح التقرير بحدث عند النقر لزر الامر DoCmd.OpenReport "Rpt1a", acViewPreview تفضل ملفك بعد التعديل بالتوفيق Tapages2.rar

بارك الله فيك و اكثر من امثالك اخي العزيز محمد ممكن ان تستخدم زر امر واحد فقط .... سا شرح لك الطريقة ان اردت تنفيذها سيتم ذلك بتعيين قيمة مختلفة لخاصية زر الامر ( علامة او بالانجليزية Tag ) عند اختيار تبويب معين من علامة الجدولة .. ثم بعد ذلك تقوم بعمل ما تريد فعله من زر الامر بناءً على قيمة هذه الخاصية . سيتغير الاجراء ليكون كالتالي Select Case Me.TabCtl0 Case 0 Me.Cmd.Tag = 0 MsgBox "aaa" Case 1 Me.Cmd.Tag = 1 MsgBox "bbb" Case 2 Me.Cmd.Tag = 2 MsgBox "ccc" End Select ثم في حدث عند النقر لزر الامر سنقوم بتنفيذ الاوامر حسب قيمة الخاصية ... هنا قمت انا بعرض رسائل و الكود لزر الامر سيكون كالتالي : Select Case Me.Cmd.Tag Case 0 MsgBox "This is aaa" Case 1 MsgBox "This is bbb" Case 2 MsgBox "This is ccc" End Select تفضل الملف به الفكرة بالتوفيق Tapages.rar

لا شكر على واجب اخي العزيز محمد استبدل الاجراء بالتالي : Select Case Me.TabCtl0 Case 0 Me.Cmdaaa.Visible = True Me.cmdbbb.Visible = flase Me.cmdccc.Visible = flase MsgBox "aaa" Case 1 Me.cmdbbb.Visible = True Me.Cmdaaa.Visible = flase Me.cmdccc.Visible = flase MsgBox "bbb" Case 2 Me.cmdccc.Visible = True Me.Cmdaaa.Visible = flase Me.cmdbbb.Visible = flase MsgBox "ccc" End Select تفضل المرفق بعد التعديل بالتوفيق Tapages.rar

اخي محمد استدراك : الاجراء يتم استدعاؤه بحدث عند الفتح للنموذج ( و ليس بحدث في الحالي للنموذج ) و حدث عند التغيير لعنصر علامة الجدولة ... خطأ غير مقصود

و عليكم السلام كل عام وانت و الجميع بخير و عافية اخي العزيز محمد لعمل ذلك ضع الكود التالي بإجراء خاص و قم بإستدعائه في حدث في الحالي للنموذج و في حدث عند التغيير لعنصر علامة الجدولة If Me.TabCtl0.Value = 1 Then Me.Cmd4.Visible = True MsgBox "bbbbbbbbbbbbbbbb" Else Me.Cmd4.Visible = False End If تفضل مثالك بعد التعديل بالتوفيق Tapages.rar

السلام عليكم اخي العزيز احمد الرجاء اختيار عنوان مناسب لمشاركتك حتى يسهل الرجوع لها و الاستفادة منها تفضل الحل ان شاء الله يكون هو المطلوب .... بالتوفيق __www_download_gg___اضافة.rar