نجوم المشاركات

السلام عليكم ورحمة الله وبركاته درسنا اليوم عبارة عن فكرة فريدة وهي أن تجعل الأكسس يقرأ أي عبارة تريدها ، هذه الميزة تعمل مع النصوص الإنجليزية، وللأسف لا تعمل على النصوص العربية، ولعل هناك طريقة أخرى لا أعلمها فليفدنا من له علم بذلك 🙂 ولا تنسوني من صالح دعواتكم .. ونصائحكم وتوجيهاتكم .. 🙂 ومع ملف الشرح للتطبيق : الأكسس يتكلم.accdb

وعليكم السلام ورحمة الله لتقسيم الكود يتم استخدام مسافة (فراغ) ثم هذه العلامة ( _ ) بعد الفراغ كالمثال CurrentDb.Execute "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement,designation,marque, _ reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3,prixRETENU,devise2,TotalEUR, _ fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS,PRODUCTIVITE,devise3,ProdEnEUR) " _ & "VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" & Me.NumBesoin & "','" & Me.Demandeur & "','" & _ Me.Commande & "','" & Me.imputation & "','" & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & _ "','" & Me!T_REFRENCE.Form.marque & "','" & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & _ "','" & Me!T_REFRENCE.Form.FRS1 & "','" & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & _ Me!T_REFRENCE.Form.FRS2 & "','" & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & _ Me!T_REFRENCE.Form.FRS3 & "','" & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & _ Me!T_REFRENCE.PRIXretenu & "','" & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & _ Me!T_REFRENCE.fournisseur & "','" & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & _ Me!T_REFRENCE.NonMisEnCON & "','" & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & _ Me!T_REFRENCE.productivite & "','" & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" أو يمكنك تقطيع الكود علي عدة اسطر في متغير نصي وتمرير قيمته الي دالة تنفيذ الاستعلام مثل: Dim SQLStr as String SQLStr = "INSERT INTO TEAM(DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement," SQLStr = SQLStr & "designation,marque,reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3," SQLStr = SQLStr & "prixRETENU,devise2,TotalEUR,fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS," SQLStr = SQLStr & "PRODUCTIVITE,devise3,ProdEnEUR) VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" SQLStr = SQLStr & Me.NumBesoin & "','" & Me.Demandeur & "','" & Me.Commande & "','" & Me.imputation & "','" SQLStr = SQLStr & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & "','" & Me!T_REFRENCE.Form.marque & "','" SQLStr = SQLStr & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & "','" & Me!T_REFRENCE.Form.FRS1 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & Me!T_REFRENCE.Form.FRS2 & "','" SQLStr = SQLStr & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & Me!T_REFRENCE.Form.FRS3 & "','" SQLStr = SQLStr & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & Me!T_REFRENCE.PRIXretenu & "','" SQLStr = SQLStr & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & Me!T_REFRENCE.fournisseur & "','" SQLStr = SQLStr & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & Me!T_REFRENCE.NonMisEnCON & "','" SQLStr = SQLStr & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & Me!T_REFRENCE.productivite & "','" SQLStr = SQLStr & Me!T_REFRENCE.devise3 & "','" & Me!T_REFRENCE.prodEnEUR & "'" CurrentDb.Execute SQLStr ارجو التجربة وموافاتي بالنتيجة

السلام عليكم اخي الفاضل Sabry309 حضرتك طالب التعديل علي تقرير في قاعدة البيانات ولا الصورة ال pdf اللي باعتها ان كان تقرير في قاعدة البيانات ياريت تبعت الجزء اللي يخص التقرير للتعديل عليه (يعني التقرير مع مصدره جدول - استعلام - .... ) وستجد ان شاء الله المساعدة

السلام عليكم ورحمة الله وبركاته حبيت اضيف معلومة صغيرة ارجو ان يصوب اساتذتي خطأها ان كانت خطأ احب دوما أعوض عن القيم النصية بقيم رقمية بالأكواد كلما كان ذلك متاحا تجنبا لمشكلات الترجمة واختلاف اللغة بالأجهزة التي سيعمل عليها البرنامج وهذا مثال تعديلا بسيطا علي كود استاذا جعفر لنتفادي وجود اسم اليوم داخل الكود وارجو التجربة مع تغير اعدادات الويندوز للغة العربية والانجليزية بعد التعديل. If Weekday(TD) = 6 Then fOver_Time = DateDiff("n", DS, DE) \ 60 & ":" & DateDiff("n", DS, DE) Mod 60 ElseIf Weekday(TD) = 5 Then fOver_Time = DateDiff("n", STO2, DE) \ 60 & ":" & DateDiff("n", STO2, DE) Mod 60 ElseIf Weekday(TD) < 5 Or Weekday(TD) > 6 Then 'Or you can say Else Only Here fOver_Time = DateDiff("n", STO1, DE) \ 60 & ":" & DateDiff("n", STO1, DE) Mod 60 End If مجرد معلومة افدتها من اساتذتي بالمنتدي واحببت مشاركتها معهم (هذه بضاعتكم ردت اليكم) تمنياتي بالتوفيق

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

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

السلام عليكم 🙂 زميلنا واخونا @ابو جودي بالاضافة الى كونه خبير ، اصبح احد اعضاء فريق عمل الموقع 🙂 1. شاركونا في تهنئته ، 2. وخلينا نساعده في مهمته الجديدة 🙂 ابو جودي ، اهلا وسهلا بك معنا مرة اخرى 🙂 جعفر

اما انا ، فكنت اول واحد يدخل في الموضوع ، وانزلت المرفق لأستمع وارى الكود 🙂 الكود جدا بسيط ونظيف ، عمل جميل 🙂 في اعتقادي @ابو جودي قام بمثل هذا العمل سابقا ، ولكني لا اتذكر التفاصيل 🙂 جعفر

ما شاء الله تبارك الله ... فكرة جديرة بالتجربة .... اشكرك اخي الكريم

فكرة جميلة استاذ / موسى جزالك الله عنا خيرا

Sub Test() Dim r As Long Application.ScreenUpdating = False For r = 5 To Cells(Rows.Count, 3).End(xlUp).Row Cells(r, 37).Value = JoinIf("-", Range("F4:AJ4"), Range("F" & r & ":AJ" & r)) Next r Application.ScreenUpdating = True End Sub Function JoinIf(del As String, rngJoin As Range, rngCrit As Range) As String Dim c As Range, n As Long For Each c In rngCrit n = n + 1 If c <> Empty And rngJoin.Cells(n) <> "" Then JoinIf = JoinIf & del & Day(rngJoin.Cells(n)) Next c JoinIf = "'" & Mid(JoinIf, Len(del) + 1, Len(JoinIf)) End Function

عند البحث بالموقع وجدت هذا التعليق بالصدفة وهذا ما قمت به بالفعل بدون علم اسف على تخطى قوانين الموقع

الف مبروك . . و يستاهل كل خير . . صاحب همة وعطاء لا محدود

وعليكم السلام 🙂 جوابي فقط على الجزئية: جربي هذا: Dim StrFlter as String StrFlter = "DateDA,DateCmd,NumBesoin,demandeur,commande,imputation,acheteur,departement,designation,marque,reference,devise,QTEcommande,QTE,frs1,PU1,PT1,frs2,PU2,PT2,frs3,PU3,PT3,prixRETENU,devise2,TotalEUR,fournisseur,CONTRAT,FABRICANT,NonMisEnCON,REGULE,SEMAINE,MOIS,PRODUCTIVITE,devise3,ProdEnEUR" CurrentDb.Execute "INSERT INTO TEAM(" & StrFlter & ")VALUES('" & Me.DateDA & "','" & Me.DateCmd & "','" & Me.NumBesoin & "','" & Me.Demandeur & "','" & Me.Commande & "','" & Me.imputation & "','" & Me.Acheteur & "','" & Me.Departement & "','" & Me.TXTdesign & "','" & Me!T_REFRENCE.Form.marque & "','" & Me.txtREF & "','" & Me!T_REFRENCE.Form.devise & "','" & Me.Qte & "','" & Me!T_REFRENCE.Form.FRS1 & "','" & Me!T_REFRENCE.Form.PU1 & "','" & Me!T_REFRENCE.Form.PT1 & "','" & Me!T_REFRENCE.Form.FRS2 & "','" & Me!T_REFRENCE.Form.PU2 & "','" & Me!T_REFRENCE.Form.PT2 & "','" & Me!T_REFRENCE.Form.FRS3 & "','" & Me!T_REFRENCE.PU3 & "','" & Me!T_REFRENCE.PT3 & "','" & Me!T_REFRENCE.PRIXretenu & "','" & Me!T_REFRENCE.Devise2 & "','" & Me!T_REFRENCE.TotalEUR & "','" & Me!T_REFRENCE.fournisseur & "','" & Me!T_REFRENCE.CONTRAT & "','" & Me!T_REFRENCE.Fabricant & "','" & Me!T_REFRENCE.NonMisEnCON & "','" & Me!T_REFRENCE.Regule & "','" & Me.Semaine & "','" & Me.Mois & "','" & Me!T_REFRENCE.productivite & "','" & Me!T_REFRENCE.devis . جعفر

مبارك عليك ياااااااا أبا جودى صاحب الهمة العالية . وأحسن استاذنا الفاضل / جعفر الاختيار . الرجل المناسب في المكان المناسب . وأعانك الله على المهمة القادمة وأنت أهل لها بإذن الله .

السلام عليكم يرجى الالتزام بقواعد المنتدى الكريم وبما أنك جديد هنا نرحب بك أخي الكريم إليك الحل كما فهمت يرجى ملاحظة تفعيل الحساب التكراري لتثبيت الوقت والتاريخ. 123.xlsx

يجب اختيار هذه الايقونه ، حتى ترى بقية الاوامر

بارك الله بك ووفقك لما يحب ويرضى.

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

أعتقد من خلال جواب الأخ نبيل @nabilalibibo أن الحل يكمن في تقسيم قاعدة البيانات كما ذكر الأخ عمر @Amr Ashraf . وهناك الكثير من المواضيع التي تحدثت عن هذا الموضوع يمكن الرجوع إليها ..

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

ما فهمت🥺 الظاهر ان القهوة بو شربتها الصبح بعدها ما داقه فراسي ، فياريت تشرح القصد من هذا الطلب 🙂 جعفر

وعليكم السلام 🙂 الطريقة هي عمل استعلام توحيد ، بهذه الطريقة : Select ID, Full_Name, Income, Position From tbl_Directors union all Select ID, Full_Name, Income , P:"" From tbl_Players union Select I:0, Full_Name, Income:"" , Pos:"Not applicable" From tbl_Others union SELECT "", tblSection.sname, Sum(tblSection.Allowances) AS SumOfshead, "مدراء" As P FROM tblSection WHERE (((tblSection.snumber1)<>123)) GROUP BY tblSection.sname ORDER BY tblSection.sname; . هنا جمعت 4 استعلامات (نسميها استعلامات اولية) (اعمل كل استعلام بالطريقة العادية ، وبعد التأكد انه يعمل بطريقة صحيحة ، وان حقول الاستعلام في نفس ترتيب حقول بقية الاستعلامات (كذلك يمكنك اضافة هذه الحقول في استعلام التوحيد مباشرة) ، ضع الاستعلام في وضع SQL ، ثم انسخ الجملة كاملة وضعها في استعلام التوحيد ، هذا اللي عملته في الاستعلام الرابع اعلاه) ، الشرط الوحيد في استعلام التوحيد هو ، ان يكون عدد الحقول نفسها لجميع الاستعلامات ، فإذا احد الاستعلامات ما فيه هذه الحقل ، يجب ان تضع قيمة معينة له ، سواء صفر او "" (فراغ) او "المدراء" ، وطبعا الحقول التي تريدها لنفس العمود يجب ان تكون بنفس ترتيبها في الاستعلام (انا تركت مسافات بين الحقول في المثال اعلاه فقط لتوضيح هذه النقطة) ، يجب الانتباه في الحقول الاضافية ، فإذا اردت ان تجمع هذا الحقل لاحقا ، فاعطيه القيمة 0 ، اسم الحقل يُؤخذ من اول استعلام (بغض النظر عن تغيّر اسماء الحقول في الاستعلامات لنفس العمود) ، والفرز يُؤخذ من آخر استعلام ، union all معناها ، اضف جميع السجلات ، مع المتكررات بين الاستعلامات ، union معناها ، اضف جميع السجلات ، بدون المتكررات بين الاستعلامات. وهناك اوقات اخرى ، حيث الاستعلامات الاولية لإستعلام التوحيد ، فيها نفس عدد الحقول وبنفس الترتيب ، فيمكن تسهيل استعلام التوحيد الى: Select * From qry_1 union Select * From qry_2 union all Select * From qry_3 union Select * From qry_4 . او الخلط بين الطريقتين: Select * From qry_1 union Select * From qry_2 union all Select * From qry_3 union Select * From qry_4 union SELECT "", tblSection.sname, Sum(tblSection.Allowances) AS SumOfshead, "مدراء" As P FROM tblSection WHERE (((tblSection.snumber1)<>123)) GROUP BY tblSection.sname ORDER BY tblSection.sname; بعض الاوقات هذه الاستعلام سيعطيك البيانات المطلوبة ، ولكن قد تحتاج الى فرز او تصفية اضافية ، او تجميع سجلات في سجل واحد ، فما عليك إلا ان تعمل استعلام آخر ، ثم تستعمل استعلام التوحيد كمصدر بيانات هذا الاستعلام الجديد ، ثم تعمل فيه المطلوب 🙂 جعفر

مقترح صحيح 100% 🙂 جعفر

الف الف مبروك حبيبنا وأستاذنا القدير @ابو جودي .. مزيداً من التألق والنجاح ..

انا عملته طبقا للصيغة الموجودة فعلا في الجدول وهذه الصيغة هي السائدة ، واستخدم التنسيق ( من اليمين الى اليسار ) في الواجهات

انظر الى نوع حقل التاريخ الهجري في الجدول 🙂 الدالة UmDate_AfterUpdate هي المسؤولة عن طريقة عرض التاريخ ، فاذا اردت تغيير التنسيق ، فلا انصحك ان تغير في الدالة اعلاه ، ولكن خلينا نغير نتيجة الدالة: Private Sub date_h_AfterUpdate() UmDate_AfterUpdate If Not IsNull(date_h) Then 'Debug.Print Right(date_h, 2) 'Debug.Print Mid(date_h, 6, 2) 'Debug.Print Left(date_h, 4) Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4)) ''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2)) 'Me.t_day = Format(Me.date_m, "dddd") Me.date_h = Right(Me.date_h, 2) & "/" & Mid(Me.date_h, 6, 2) & "/" & Mid(Me.date_h, 1, 4) '<== هذا السطر الاضافي لتغيير التنسيق End If End Sub . جعفر

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

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في العامود j واسحب المعادله لاسفل =If(D2="نقدى";H2;G2+H2) وان شاء الله تفي بالمطلوب

مشاركة مع استاذى الحبيب الاستاذ @ناقل انا ايضا ناقل من استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim MyWher As String Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") MyWher = x(0) If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = MyWher * 0.5

Sub Test() Dim arr, v1, v2, coll As New Collection, s As String, max As Long, i As Long, j As Long Application.ScreenUpdating = False arr = Sheets("MP1").Range("A1").CurrentRegion.Value For i = 1 To UBound(arr, 1) s = CStr(arr(i, 1)) On Error Resume Next coll.Add Key:=s, Item:=New Collection On Error GoTo 0 If coll(s).Count = 0 Then coll(s).Add s If arr(i, 5) > 0 Then coll(s).Add CStr(arr(i, 2)) Next i For Each v1 In coll If v1.Count > max Then max = v1.Count Next v1 ReDim arr(1 To coll.Count, 1 To max) i = 0 For Each v1 In coll i = i + 1 j = 0 For Each v2 In v1 j = j + 1 arr(i, j) = v2 Next v2 Next v1 For j = 2 To max arr(1, j) = j - 1 Next j With Sheets("Result").Range("A1") .CurrentRegion.Clear .Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr With .CurrentRegion .EntireColumn.AutoFit .Borders.Value = 1 End With End With Application.ScreenUpdating = True End Sub Create a worksheet and name it "Result" first before running the code

ومشاركة مع احبابى وبدون استخدام اى مكتبات يكون الكود كالاتى Dim FD As Object Dim Path As String Set FD = Access.Application.FileDialog(1) FD.AllowMultiSelect = False FD.Filters.Clear If FD.Show = -1 Then Path = FD.SelectedItems(1) Else: Exit Sub End If FollowHyperlink Path

السلام عليكم ورحمة الله استخدم الكود التالى Sub GetData() Dim ws As Worksheet, Sh As Worksheet Dim C As Range, x As Long, Data Set ws = Sheets("اجمالي") x = 14 For Each C In ws.Range("D3:D" & ws.Range("D" & _ Rows.Count).End(3).Row) For Each Sh In Worksheets If Sh.Name <> ws.Name And Sh.Name = C.Value Then x = WorksheetFunction.CountA(Sh.Range("B14:B" & _ Sh.Range("B" & Rows.Count).End(3).Row)) + 12 C.Offset(0, 1) = Sh.Range("J7") C.Offset(0, 2) = Sh.Range("C" & x) C.Offset(0, 3) = Sh.Range("C" & x + 1) C.Offset(0, 4) = Sh.Range("J" & x) C.Offset(0, 5) = Sh.Range("J" & x + 1) End If Next Next End Sub

السلام عليكم ورحمة الله وبركاته وبها نبدأ مشكلتك ليست في الكود مشكلتك في الويندوز تفضل حل مشكله اللغه العربيه

ومحاولة اخرى للأخ موسى 🙂 جعفر

شكلي ما وضحت لك فكرة الكود بالشكل المطلوب 😅 كتبته بسرعة بدون تفاصيل ، وهذا كان المقصود ( روتين واحد لكل السورس أوبجكت ) : Sub DocmdMnu(FrmName As String) Me.frmSub.SourceObject = FrmName End Sub Sub GoDo(ByRef ActiveControlName As String) Select Case Nz(ActiveControl.Name, "") Case Is = "cmdMnu1": DocmdMnu ("frmEmployees") Case Is = "cmdMnu2": DocmdMnu ("Table.tblStudents") Case Is = "cmdMnu3": DocmdMnu ("Table.tblAdministrativeforms") Case Is = "cmdMnu4": DocmdMnu ("Table.tblStudentOffenses") Case Is = "cmdMnu5": DocmdMnu ("Table.tblStatements") Case Is = "cmdMnu6": DocmdMnu ("Table.tblRecords") Case Is = "cmdMnu7": DocmdMnu ("Table.tblDataimport") Case Is = "cmdMnu8": DocmdMnu ("Table.tblCertifications") Case Is = "cmdMnu9": DocmdMnu ("Table.tblPhoneBook") Case Is = "cmdMnu10": Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" Case Is = "cmdMnu11": Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Select End Sub تم التعديل في المرفق التالي : إبداعات أبا جودي.rar

تحية شكر وإجلال لك اخوي اباجودي ، في الواقع العمل اكثر مما كنت اتوقع 🙂 طريقة عملك لكل زر كحدث مستقل ، شيء ابهرني ، لأنه الآن وبكل بساطة يمكن لأي مستخدم ان يستفيد من عملك 🙂 عملت تعديل بسيط على الكود ، حتى تعم الفكرة بشكل اوسع ، وحتى يعرف المستخدم انه غير مربوبط بالنماذج الفرعية فقط: Sub DocmdMnu10() Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" End Sub Sub DocmdMnu11() Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Sub Public Function BtnClick() On Error GoTo err_BtnClick ClkBtn GoDo (Me.ActiveControl.Name) Me.frmSub.Visible = True Exit_BtnClick: Exit Function err_BtnClick: If Err.Number = 2467 Then 'when closing the Form, cant have the frmSub visible 'so ignore Resume Exit_BtnClick 'or if want to go to the next line: 'resume next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_BtnClick End If End Function . والمدالية اللي فيها اسمي ، لقيتها منين ، انا من زمان ادوّر عليها 🙂 وشكر خاص على المدالية 🙂 جعفر ShowHideSideBareRight (2) Modified.zip

والان المرفق بعد ربط الازرار بالاكواد بناء على طلب واومر استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr احس حالى باختبار وانتظر النتيجة ShowHideSideBareRight (2).zip

ايه يا استاذ @Moosak 🤔 واضح مش عاجبك الشغل واللا ايه لم ارى اى تعليق والله حرااااااام انا كان هايجيلى جنان خلاص يا اخى انا طلع عيونى فى التفكير والتكتيك والـ .... ماشى انا مش راح اعمل شئ تانى خليك ويا البرق والرعد وبانتظار استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لأعرف رأيه فى تلك الافكار المعقدة

السلام عليكم ورحمة الله تعالى وبركاته تعديل فاخر من الاخر ولا اى html يحتوى المرفق على عدد 3 نماذج 1- FormUIBoht هذا النموذج معد لتعمل القائمة من كلا الجانبين للواجهتين العربية او الانجليزية فقط بتغيير شئ بسيط هذا الكود فى هذا السطر من الكود تغير الحروف من ML الى MR يناسب الواجهات العربية وان كانت الواجهة انجليزة يظل كما هو Const strOrientationChk = ML 2- النموذج الثانى FormUILT يتناسب فقط للواجهات الانجليزية 3- النموذج الثالث FormUIRT يتناسب فقط مع الواجهات العربية والمرونة فى التصميم لا يتم تعديل اى شئ حسب الازرار فقط لابد من ان تكون اسماء ازرار القائمة تبدأ بـ cmdMnu وبعد ذلك اضف ما تريد المرفق سريع وخفيف جدا ShowHideSideBareRight.accdb

اتفضل يا استاذ @Moosak اوامر ياباشا طلب تم بفضل الله New Microsoft Access Database (4).accdb

بالفعل، لكن يمكن تطويع الhtml لخدمة الأكسس. انا لم اتكلم عن قوة الأكسس كـ برنامج خدمي وسهل وو.. تكلمت فقط عن امكانياته المحدودة في التصميم مقارنة بالبرامج الاخرى، ومثل ما تفضلت يبقى المصمم هو فارس الميدان في جعل الشكل جذاب ومرتب. وكـ مبادرة صغيرة مني في دعم موضوعك الرائع اقدم لكم واجهة بسيطة قمت بتصميمها في الاكسس واهم مايميزها responsive مع جميع الشاشات، اتمنى لكم الفائدة من هذه الواجهة وبنفس الوقت لا تتوقعو مني الكثير في تصميم الواجهات فأنا لا ازال في بداية الطريق اهلا عزيزي ابا جودي، لك وحشة ياغالي.. بالعكس انا لم اقل الاكسس عاجز وانما قلت ان الاكسس محدود اما عن الresponsive فأنا قمت بشرحها سابقا في هذا الموضوع، ربما طريقتك تختلف عن طريقتي لكن يبقى الجوهر واحد تحياتي لك ابا جودي menu.rar

هل تعتقد يا دكتور حتى الان ان الاكسس عاجز عن تصميم النماذج التى تدعم الـ responsive ام غيرت رأيك الان بعد الاطلاع على المرفق الاتى ؟ فى انتظار رأيك يا دكتور responsive form ☺.mdb

ماشاء الله شغل جميل.. لكنه يفتقر لكثير من الأمور.. ابرزها لا يدعم خاصية responsive لو كانت شاشتي كبيرة او صغيرة تصاميمكم تكون في اطار محدود جدا، مثلا لو طلبت منك تصميم هذا الdashboard لا اضن ان الاكسس لديه هذه الامكانية، لذلك: عن نفسي افضل html والwebbrowser في تصميم الواجهات وهناك دروس كثيرة للأخ أبو ابراهيم الغامدي يشرح هكذا انواع من التصميم

السلام عليكم 🙂 هاي للتصميم الاول والثاني ، عن طريق وحدات نمطية 🙂 بس رجاء الاهتمام بأسماء الزرار ، فهي السر في العمل. بهذه الطريقة ، يمكنك استخدام طريقة الازرار لأي نموذج ، وبأقل عمل برمجي 🙂 تم التعديل للنقر مرة واحدة فقط للإثنين 🙂 شكرا اخوي موسى على هذه الطرق الجميلة 🙂 جعفر صفحة رئيسية مطورة.zip

ولا زالت الإبداعات مستمرة .. 🙂 وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb

حياك الله أخي الحلبي ... لك ما طلبت 🙂 ولكن تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb

وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb لا عدمناك عمي جعفر @jjafferr 🙂🌹 وعاد نقل الكود لموديول عام هذي لعبتك 😅

تفضل 🙂 صفحة رئيسية مطورة.accdb

هذه واحدة من الواجهات التي صممتها بطريقة مميزة نوعا ما : والشكر لك مهندسنا @jjafferr على البرنامج الراااااااااائع 🙂 ومن هنا التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb جعفر صفحة رئيسية مطورة.zip ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb520 kB · 439 downloads ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar