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

السلام عليكم ورحمة الله وبركاته درسنا اليوم عبارة عن فكرة فريدة وهي أن تجعل الأكسس يقرأ أي عبارة تريدها ، هذه الميزة تعمل مع النصوص الإنجليزية، وللأسف لا تعمل على النصوص العربية، ولعل هناك طريقة أخرى لا أعلمها فليفدنا من له علم بذلك 🙂 ولا تنسوني من صالح دعواتكم .. ونصائحكم وتوجيهاتكم .. 🙂 ومع ملف الشرح للتطبيق : الأكسس يتكلم.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. وخلينا نساعده في مهمته الجديدة 🙂 ابو جودي ، اهلا وسهلا بك معنا مرة اخرى 🙂 جعفر

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

وعليكم السلام ورحمة الله وبركاته اضم صوتي الي صوت استاذا @Barna فسؤالك يحتاج الي مزيد من التوضيح ولكن علي قدر فهمي للسؤال ربما ساعدك هذا الكود في حدث عند النقر علي مربع النص او الزر أو التسمية المكتوب عليه الكلمة التي تريد ضع هذا الكود private Sub zer1_Click() txt2 = 0 End Sub وفقط

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

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

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

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

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

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

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

مقترح صحيح 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 . جعفر

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

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

مشاركة مع استاذى الحبيب الاستاذ @ناقل انا ايضا ناقل من استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @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

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

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

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

أهلا بكم جميعا.. هذا مثال مصغر عن إمكانية الويب مع الأكسس وفلسفة التجاوب.. AccessWithWeb.accdb

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

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

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته بحثت عن طريقة لتخفيض أمان الاكسيس برمجيا، فوجدت طريقة للأخت زهرة بارك الله فيها ونفعنا وإياها بما تعلم. ولكن لم أستطع تنفيذ الكود مع الأكسيس ٢٠٠٧ حيث يمنع الاكسيس تنفيذ الملف الخاص بالمثال من العمل. فهل من مساعدة لتنفيذ ذلك على ٢٠٠٧ ولكم جزيل الشكر ومرفق المثال الخاص بها. zaAllAccesVersionAndSecurityLowLevel_Pro.rar

عجبنى جدا الامانه في ذكر مصدر البيانات اللى نقلت منه بالرغم من الاختلاف الكبير في برنامج المصدر والبرنامج بتاعك دا غير ان الناس دى تقريبا محدش يعرفهم لان واضح من تاريخ المثال 24/5/2005 تقريبا عشر سنين ونص انت فعلا حد محترم جدا وصريح وامين دا غير انى لاحظت كرم في محاولة مساعدتك وبحس انك مش بتبخل على حد بمعلوماتك بجد شكرا والف شكرا الله يبارك لوالديك على تربيتهم لك