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

يا سلام عليّ ، جاوبت في الماضي على سؤال المستقبل 😁 يالله بسرعة اعمل بخور وابخّر عمري قبل ما تجيني عين 🙂 جعفر

السلام عليكم ورحمة الله إضافة الى ماتقدم به الأخ jjafferr هذا مثال قد يفيدك فقط اضغط على (((بحث عام )) عنوان المنوذج يكون شفاف ويمكن تنقلة في أي مكان من الشاشة بالتوفيق إن شاء الله Database99.rar

وعليكم السلام 🙂 الامر هو docmd.MoveSize Right, Down, Width, Height جعفر

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

وعليكم السلام-تفضل المشكلة لديك انك كنت عامل طريقة الحساب يدوياً وليس تلقائياً او الية !!! جدول توزيع النوبتجيات1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(2,1/('تفاصيل الحجز'!$E:$E=$B6)/('تفاصيل الحجز'!$D:$D=$C6)/('تفاصيل الحجز'!$G:$G=D$5),('تفاصيل الحجز'!$A:$A)),"") كشف حجوزات الملاعب -ماكرو.xlsm

جزاكم الله خيرا سأحاول

هذه السالفة ولا حتى تيجي على بالي 😁 الى هنا والكل كان يعرف ، بس انت افشيت السر واشرت بالـ emoji على اصحابنا 😁 جعفر

شكرا لردك اخ ابو محمد جزاك الله خيرا 🌺🌺

احسنت اخي ازهر بالبحث واكتشاف الحل من مشاركات سابقة ولو انك وضعت الكود بعد الحل ليستفيد من يمر بالموضوع على كل حال للحقل النصي فيكون على النحو التالي DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'" او ان نقفز البارمترات ونصرح بالشرط DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'" ماشاء الله عليك يا ابا عبدالله السر في البخور 👻 وكل عام وانت بخير بمناسبة عيدك 🌹

فكرة جميلة 🙂 جعفر

وعليكم السلام 🙂 اسهل لك ان تطبع على طابعة بـ 16 لون 🙂 او انك تعمل على حدث On Print كود ، تخبره اسم الحقل ولون الخلفية الذي تريد تغييره ، ثم تعطيه لون ابيض ، ونعم ، لجميع الحقول 🙂 جعفر

وعليكم السلام 🙂 هذه امكانيات الاكسس ، في آخر نقطة للنماذج تجد الجواب مواصفات Access - Access (microsoft.com) جعفر

جرب هذا الملف (مع الكود المطلوب) Option Explicit Dim sh As Worksheet Dim ObjA As Object Dim ObjB As Object Dim Ro% '+++++++++++++++++++++++++++++ Sub Show_User() UserForm1.Show 0 End Sub '++++++++++++++++++++++++++++ Sub Debut() Set sh = Sheets("Sheet1") Set ObjA = CreateObject("Scripting.Dictionary") Set ObjB = CreateObject("Scripting.Dictionary") Ro = sh.Cells(Rows.Count, 1).End(3).Row End Sub Sub Fil_ComB_1() Debut Dim i For i = 2 To Ro ObjA(sh.Cells(i, 1).Value) = vbNullString Next With UserForm1.ComboBox1 .List = ObjA.keys: .Value = ObjA.keys()(0) End With End Sub '+++++++++++++++++++++++++++++++++++++ Sub Fil_ComB_2() Debut Dim k If UserForm1.ComboBox1.Value = vbNullString Then Exit Sub For k = 2 To Ro If sh.Cells(k, 1) = UserForm1.ComboBox1.Value Then ObjB(sh.Cells(k, 2).Value) = vbNullString End If Next If ObjB.Count Then With UserForm1.ComboBox2 .List = ObjB.keys: .Value = ObjB.keys()(0) .SetFocus End With End If End Sub الملف مرفق Mhd_2021.xlsm

تم الحل شكرا

وعليكم السلام وبما انه لا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة فعليك برفع الملف !!!! وأصلاً هذه الدالة غير متوفرة الا فى نسخة اكسيل 365 ويتطلب اضافتها بالنسخ الأخرى بطريقة معينة

من تجربتي ، يجب ان يكون لهذا القرض رقم ايضا ، فقد يأخذ قرض للمواد الكهربائية ووو مثل عند اخونا @كريمو2 ، وحتى قروض النقد ، فإذا استوفى قيمة القرض ، قد يأخذ قرض آخر في الشهر التالي !! جعفر

سيصبح الكود هكذا =DMax("date_catch";"TBCatch";"id_reader=" & [id_reader] & " And typy_cach='" & "catch" & "'")

= dmax("date_catch";"TBCatch";"id_reader=" & id_reader) LLL2.accdb

%100 كلامك صحيح اخي واستادي ابو خليل لكني لم اعرف كيف اشير الى السنة الحالية في قاعدة التحقق من الصحة فيا حبدا لو تكرمت علينا بالطريقة لو وجدت

>=#01/01/2021# And <#30/12/2021# جميلة مداخلتك اخوي ازهر واستخدام خاصية التحقق من الصحة ولكن يوجد متطلبات اخرى مصاحبة لهذا الشرط 1- في السنة القادمة سيضطر المبرمج الى التعديل على هذا الشرط 2- وهو الأهم فيما لو اراد المستخدم تجاوز الشرط والتعامل مع اي تاريخ

هدة محاولة مني ايضا DatabaseA.accdb

السلام عليكم تم تقسيم الكود ويعمل بزر واحد الزر اسمه بحث تحياتي NEW 1.rar

ربما تحناح الى هذا الملف (النتيجة في الصفحة ALL) Sub Filter_All() Dim sh As Worksheet Dim A As Worksheet Dim AR_comp() Dim Ro%, K%, x%, t%, I% With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Set sh = Sheets("2021-3") Set A = Sheets("ALL") Set RG_Filter = sh.Range("B8").CurrentRegion If sh.AutoFilterMode Then RG_Filter.AutoFilter A.Range("A10:R1000").Clear Ro = RG_Filter.Rows.Count AR_comp = Array("شركة", "بنك مصر", "معاش") t = 10 For I = LBound(AR_comp) To UBound(AR_comp) RG_Filter.AutoFilter 4, AR_comp(I) RG_Filter.Cells(2, 1).Resize(Ro - 1, 18) _ .SpecialCells(12).Copy With A .Range("A" & t).PasteSpecial (8) .Range("A" & t).PasteSpecial (12) x = _ .Cells(Rows.Count, 1).End(3).Row + 1 .Cells(x, 1) = "Sum" .Cells(x, "G").Resize(, 12).Formula = _ "=SUM(G" & t & ":G" & x - 1 & ")" .Cells(x, 1).Resize(, 6).HorizontalAlignment = 7 .Cells(x, 1).Resize(, 18).Interior.ColorIndex = 35 t = x + 1 End With Next I If t = 10 Then GoTo End_me With A.Cells(t, 1) .Value = "TOTAL SUM :" .Resize(, 6).HorizontalAlignment = 7 .Resize(, 18).Interior.ColorIndex = 40 .Offset(, 6).Resize(, 12).Formula = _ "=SUM(G10:G" & t - 1 & ")/2" End With With A.Range("A10").CurrentRegion .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .Value = .Value End With End_me: If sh.AutoFilterMode Then RG_Filter.AutoFilter With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With A.Activate Range("A10").Select End Sub الملف مرفق Nafal_1.xlsm

عليكم السلام سنعتمد السنة المالية حتى نحصل على الأقوى والأسرع الصق هذه الوظيفتين في وحدة نمطية عامة Public Function ctrlThisDate() As String ctrlThisDate = DLookup("FiscalYear", "Odb_TableControl", "FiscalYear='" & Year(Date) & "'") End Function Public Function chkThisDate() As Boolean chkThisDate = DLookup("Adhere_Current_Year", "Odb_TableControl", "FiscalYear='" & Year(Date) & "'") End Function ثم الصق هذا الكود في حدث قبل التحديث لأي حقل تاريخ وغير ما يلزم والتغيير فقط بتعديل اسم الحقل Private Sub TextTO_BeforeUpdate(Cancel As Integer) If IsNull(TextTO) Then Exit Sub If chkThisDate() Then If Year([TextTO]) <> ctrlThisDate() Then MsgBox " التاريخ خارج نطاق السنة الحالية" DoCmd.CancelEvent End If End If End Sub لاحظ انه يجب عليك التأشير على خانة التقييد ان اردته يعمل ،، والعكس صحيح DatabaseA2.rar

ولك بمثل ما دعوت - جرب هذا الملف المراد اصلاحة.xlsb

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

وعليكم السلام -بسيطة يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A1,Sheet1!$A$1:$C$300,3,0),"") Book 2.xlsx

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

صديقي المعادلات لا تقوم بتغيير Format الحلية ( اللون ولون الخط او حجمه الخ...) ولا حتى تنظر الى هذا الـــ Format انها فقط نفوم بحساب محتوباتها لتغيير Format الحلية لا بد من التنسيق الشرطي او الــ VBA Option Explicit Sub Colorize_Font() Dim ro%, i% With Sheets("Sheet1") ro = .Cells(Rows.Count, 1).End(3).Row i = 2 Do While i <= ro If .Cells(i, 1) <> "" Then .Cells(i, 2).Font.Color = _ IIf(.Cells(i, 2) <> "", .Cells(i, 1).Font.Color, 0) .Cells(i, 3).Font.Color = _ IIf(.Cells(i, 3) <> "", .Cells(i, 1).Font.Color, 0) End If i = i + 1 Loop End With End Sub مرفق ملف بمعادلات اقصر Ahmedbon.xlsm

الاخ الكريم / طلعت محمد حسن بارك الله فيك سيكون الكود الخاص بزر الطباعة كالتالي Private Sub CommandButton3_Click() Frame2.Visible = False UserForm1.PrintForm Frame2.Visible = True End Sub وذلك باضافة السطر التالي ... لاخفاء الجزء الخاص بالازرار قبل اجراء الطباعة Frame2.Visible = False ثم وضع السطر التالي ... لاعادة اظهار الجزء الخاص بالازرار بعد تنفيذ الطباعة Frame2.Visible = True ارجو ان يكون هذا هو طلبك ويفي بالمطلوب تقبل خالص تحياتي