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

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

جديد ورائع جدا استاذ موسى والأجمل هذا الأداء في الشرح والصوت الجميل كتب الله اجرك وبارك فيك وفي عملك

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

السلام عليكم معلومات قيمة عن استعلام التوحيد ، تستحق موضوعا مستقلا .. بارك الله فيك استاذنا وبارك في جهودك انا اعتقد ان السائل يمكنه اظهار الغياب والاضافي ابتداءً في استعلام واحد

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

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

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

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

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

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

السلام عليكم من تجربتي ، وبسبب اختلاف اعدادات الوندوز ولغاته ، توصلت لعمل جدول خاص للاشهر tbl_Months ، ممكن اعدادات الوندوز تظهر الشهر بصيغة December ، او ديسمبر ، او كانون الاول . . ولكنك تريد ان يظهر عندك الشهر بأحد هذه الصيغ ، بغض النظر نظام اي كمبيوتر يعمل عليه برنامجك ، فيمكنك قراءة الطريقة التي تريدها من الجدول ، كما هو واضح في المثال . وهذا الكود كمثال فقط ، عن طريقة مناداة الحقول من الجدول: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1_System = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2_System = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") ' 'use the following Functions to get the integer number of: 'Today= 22 December 2017 'Day(Today) = 22 'Weekday(Today) = 6 'Friday 'Month(Today) = 12 'December 'Year(Today) = 2017 ' Me.Day_table_Arabic = DLookup("[Days_Arabic]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Day_table_English = DLookup("[Days_English]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Month_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = Day(Me.myDate) & " " & Me.Date_Table_Georgian & " " & Year(Me.myDate) Me.Date_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Iraqi = Day(Me.myDate) & " " & Me.Date_Table_Iraqi & " " & Year(Me.myDate) Me.Date_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_English = Day(Me.myDate) & " " & Me.Date_Table_English & " " & Year(Me.myDate) End Sub وبعدها توسعت في الجدول واستفدت منه لأشياء اخرى جعفر tbl_Months.mdb.zip

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

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

وعليكم السلام 🙂 الطريقة هي عمل استعلام توحيد ، بهذه الطريقة : 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% 🙂 جعفر

مبارك علينا ابا الجود وأعانكم الله ووفقكم لكل خير والي ما يحبه الله ويرضاه من امور الدنيا والأخرة نفع الله بكم اينما حللتم أو ارتحلتم وجمعني بكم وبسائر أساتذتنا الأكارم الأفاضل في مستقر رحمته مع النبيين والصديقين والشهداء والصالحين - وحسن اولئك رفيقا - آمين

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

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

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

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في العامود 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 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

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

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

ماشاء الله شغل جميل.. لكنه يفتقر لكثير من الأمور.. ابرزها لا يدعم خاصية 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 تقريبا عشر سنين ونص انت فعلا حد محترم جدا وصريح وامين دا غير انى لاحظت كرم في محاولة مساعدتك وبحس انك مش بتبخل على حد بمعلوماتك بجد شكرا والف شكرا الله يبارك لوالديك على تربيتهم لك