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

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

فقط استغني عن دالة فورمات وملحقها DSum("[المبيعات]-[المشتريات]";"tbl1";"[ترقيم]<=" & [ترقيم])

كخاصية مضمنه في النموذج لا وانما ممكن عملها عن طريق كود بسيط اذا كان حقل له وعليه في نفس الجدول ممكن استخدام التعبير Format(DSum("[المبيعات]-[المشتريات]";"tbl1";"[ترقيم]<=" & [ترقيم]);"عملة") للحصول على الرصيد دالة format اختيار للحصول على التنسيق بشكل مباشر اما اذا كان له في جدولة وعليه في جدول اخر بمعنى جدول للمدفوعات وجدول للمصروفات فنحتاج الى خطوات اضافية ربما اضع مثال لذلك في وقت لاحق في جميع الاحوال الافضل للحصول على الرصيد ان يكون عن طريق الاستعلام في المرفقات مثال للطريقة الاولى رصيد1.accdb

اخي العزيز احذف هذين الكودين ثم ضع الأكود التي في المثال التالي المرفقات Test_1.xls

السلام عليكم هاتان طريقتان لإظهار التغيرات في عدد المقاعد، بانتظار أن تعلمنا بمدى توافقهما مع حاجتك أو تصورك للمعالجة المناسبة. غير قيمة الحقل B1 (حقل الذكور ) لتشاهد النتيجة ويمكن تطبيقها على الحقول التي ترغب بالتنبيه عند تغيرها. معدل- احصاء 2010.accdb

كان التحديث للحقل اسم اليوم من القائمة المنسدلة Rs("day") = Me.Zday.Column(1) الان اصبحنا نحصل على اليوم مباشرة من التاريخ فعدلت تحديث الحقل للجدول الى Rs("day") = Me.Zday

السلام عليكم اخي العزيز استخدم الدالة Dlast تقوم هذة الدالة باسترجاع ( احضار) اخر قيمة تم ادخالها في عمود محدد في جدول او استعلام معين الملف الاول تم وضع الكود في الاستعلام الملف الثاني تم وضع الكود في حقل غير منظم بالنموذج 'الصيغة العامة للدالة Dlast ("FieldName" , "TableName" , "creteria") تحياتي اختبار.rar اختبار2.rar

نعم هذة طريقة اكسس بمجرد ادخال بيانات احد الحقول يتم الحفظ ويمكن التغلب على ذلك بعدة طرق منها في خصائص الحقول في الجدول نختار مطلوب = نعم عن طريق كود في حدث قبل التحديث للنموذج نضع الامر If MsgBox("هل ترغب في حفظ السجل", vbInformation + vbYesNo, "مطلوب") = vbNo Then Undo DoCmd.CancelEvent Else End If

لابد من وضع اسم الحقل الخاص بالتاريخ والخاص باليوم جرب المرفق Library.mdb

انا لم اقل انك انت من كتب الكود حتى و لو لم اكن انا من وضع الكود (أي شخص اخر) يجب ان تذكر صاحبه

من باب العرفان بالجميل واحتراماً لشيء يدعى "حقوق الملكية الفكرية" كان يجب عليك ان تذكر من وضع لك الكود الذي تعمل عليه في الملف تم التعديل على الكود كما تريد Option Explicit Sub ABSCENT_new() Application.Calculation = xlCalculationManual Dim K As Worksheet, A As Worksheet Dim Ro_K%, col%, Ro_A%, i%, m%, t%: t = 1 Dim ALL$, ALPHA$, Str$: Str = "غ" ALL$ = " ": ALPHA = " " Set K = Sheets("keab"): Set A = Sheets("arhkeab") Ro_K = K.Cells(Rows.Count, 2).End(3).Row If Ro_K < 5 Then Exit Sub Ro_A = A.Cells(Rows.Count, 2).End(3).Row m = IIf(Ro_A < 5, 5, Ro_A + 1) For i = 5 To Ro_K If Application.CountIf(K.Cells(i, 6).Resize(1, 31), Str) = 0 Then _ GoTo My_next A.Cells(m, 2).Resize(, 2).Value = _ K.Cells(i, 2).Resize(, 2).Value For col = 6 To 36 If K.Cells(i, col) = Str Then ALL = ALL & Day(K.Cells(4, col)) & "-" ALPHA = ALPHA & K.Cells(3, col) & "-" t = t + 1 End If Next col If t > 1 Then With A.Cells(m, 4) .Value = Mid(ALL, 1, Len(ALL) - 1) .Offset(, 1) = Mid(ALPHA, 1, Len(ALPHA) - 1) .Offset(, 2) = t - 1 .Offset(, 3) = K.Cells(2, "T") .Offset(, 4) = Year(Date) End With m = m + 1 End If My_next: t = 1 ALL = " ": ALPHA = " " Next i Application.Calculation = xlCalculationAutomatic End Sub Tarhil_3iyab (2).xlsm

أنت إنسان رفيع متواضع، وهذا الخلق خلق عظيم بارك الله بك، ليتك تعلم كم استفدت من إجاباتك لما كتب هذا الكلام، فعلاً 2016 ويفوقه 2013 بالثغرات حتى الآن تبين لي اثنتان ولا أدري ما يمكن أن أجده في المستقبل ^0^

وانا اول المنتظرين للنتيجه وارجو ارفاق مثال لها اخى خلف وكما قلت لك انت اعلم منى فى امور كثير فكما وضحت انت ان هناك ثغرات كثيره فى اوفيس 2016 فلعلى لم الحظ هذه الثغرات لعدم متابعتى منذ فتره تعدت 3 سنوات وقد عدت منذ اشهر للتعلم والمتابعه من جديد واتعلم منكم اخوانى واساتذتى ولاننى متابع للمواضيع العربيه اكثر من الاجنبيه لعدم اجادتى للانجليزيه ما هى الا بضع كلمات واحاول مع ترجمه جوجل الخنيقه بس بتمشى الحال جزاك الله كل خير

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

اخى العزيز خلف @Khalf انت دائما سباق بفعل الخير والمساعده وانت اعلم منى بامور كثيره ومنكم نتعلم اخى جزاك الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

السلام عليكم المشكلة لا علاقة لها بكودك بل بملفات الأوفيس - لعلك تستخدم أوفيس 2016 فهي ثغرة من ثغراته الكثيرة- هناك طريقة لمعالجة المشكلة سأوافيك بها بعد التأكد من نجاعتها.

وعليكم السلام جرب الكود كالتالى On Error Resume Next Dim FF As String FF = Me.IstisnaContracts Application.FollowHyperlink FF ,,true واخبرنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام مشاركه لاخى صلاح جزاه الله خيرا بكود جميل من اكواد اختى العزيزه زهره جزاها الله كل خير تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق zxc.accdb

وعليكم السلام ورحمة الله اليك مثالك بعد التعديل علية zxc.accdb

اهلا بك اليك التعديل عند تغيير الكلمة من لم يدفع الى تم الدفع سيعطي الرسالة كتالي الاجمالي بالدولار يساوي 0 وكذلك المتبقي الديون1.rar

السلام عليكم اعمل استعلام وضع في المعيار شرط العمر =< 18 سنة (اي من 18 سنة قاكثر ويمكن تعديلها) تحياتي اختبار.rar تقرير.rar

السلام عليكم ليس في متناولي حاسب متصل بالإنترنت.

جرب هذا الملف My_Tajriba.xlsm

قاعدة البيانات في اصداري 16 و19 متوافق مع اصدارات 7 المحدث و10 و13 في قاعدتك الحالة لم تفتح على الاصدارات السابقة لكونك استخدمت حقل من نوع رقم كبير لبعض الحقول

ليت استاذنا / Khalf يوافنا هل تم التحميل وفتح ام لا

امين واياك يا ابا اشرف

ممكن ترفق مثال لما لديك ان كنت لا تريد ارفاق ملفك اللى شغال عليه بالتوفيق اخى

جرب المرفق Library.mdb

تفضل ... Library (3).rar

شكرا لحضرتك زادك الله من علمه وفضله

تم وجود الحل شكرا

السلام عليكم تم اضافة ملف لاحد الاخوة بالموقع الى البرنامج حدد ماتريد اختيارة للتصدير الى اكسيل انظر للملف المرفق تحياتي استيراد وتصدير اكسيل.rar

انت رائع أخ خالد هناك ملاحظة صغيرة لو اني اريد الناتج رقم عام وليس عملة ماذا اكتب بدلا من كلمة عملة ؟؟

السلام عليكم-يمكنك استخدام هذه المعادلة =SUBTOTAL(9,$J$2:$J$63) المعادلة بسيطة جدا كما ترى غير محتاجة الى شرح فقط عليك بعد كتابة = تكتب اسم المعادلة Subtotal ثم بعد ذلك تقوم بفتح قوس , وبما انك تريد اجمالى فعليك بعد فتح القوس كتابة رقم 9 ثم علامة الكومة المناسبة لجهازك سواء عادية او منقوطة , ; ثم بعد ذلك كتابة النطاق او العمود الذى تريد الإجمالى منه وفى حالتك هو $J$2:$J$63 ثم بعد ذلك تقوم بغلق القوس , وبارك الله فيك Subtotal.xlsx

لا أعلم لماذا كل هذه التعقيدات في الملف يوزر فورم و تكس بوكس الى ما هنالك انظر الى هذا الملف البسيط My_facture.xlsm

في حدث بعد التحديث لحقل التاريخ ضع الكود التالي [Zday] = Format([ZDate], "dddd") الملف مرفق Library.mdb

لغاية الان لا أعرف ما المطلوب من الملف هناك اوقات بالجدول مثل 800:10 او ام3 الخ... لا أعرف من اين تأتي بها الافضل عمل كود لاستخراج ما تريد لان المعادلات هنا كثيرة جداَ مما يثقل الملف زيادة عن اللزوم حوالي (2 ميغا)

وعليكم السلام ولماذا لا تراجع شركة يمن سوفت لحل هذة المشكلة لان البرنامج من حقوقهم ولا يسمح بالتعديل عليه

السلام عليكم تم عمل المطلوب بمعادلة صفيف... في الملف المرفق. test - Copy.xlsx

هذا الكود ولا لزوم للخلقات التكرارية Private Sub ToggleButton1_Click() If ToggleButton1 = True Then Call HideBlankRows: ToggleButton1.Caption = "Show_All" Else Call Show_all: ToggleButton1.Caption = "Filter_Me" End If End Sub '++++++++++++++++++++++++++++++++++ Sub HideBlankRows() Dim r%, My_RG As Range Set My_RG = Range("A11").CurrentRegion r = My_RG.Rows.Count My_RG.Offset(1).Resize(r - 1).AutoFilter 6, _ Criteria1:="<=" & Range("k2") End Sub '+++++++++++++++++++++++++ Sub Show_all() If ActiveSheet.AutoFilterMode Then Range("A10").CurrentRegion.AutoFilter End If End Sub الملف مرفق FILTR_No_Filter.xlsm

ممكن عملها اذا كان رقم 2020 ثابت لا يتغير في حدث بعد التحديث للحقل m p r نضع الكود التالي [Person_in_charge] = [Person_in_charge] & "/2020" اما اذان 2020 يرمز للعام فالافضل انشاء حقل مخفي في النموذج تكون قيمته =Year(Date()) والهدف من ذلك ان سجلات العام القادم تاخذ الملحق /2021 وهكذا للسنوات القادم ويكون الكود على النحو التالي [Person_in_charge] = [Person_in_charge] & "/" & [y_d] y_d اسم الحقل المخفي الخاصة العام يمكن الاستغناء عن الحقل المخفي عن طريق متغيير ولكن دائما الحل الاسهل اسرع في وصول المعلومة للمتلقي المثال مرفق PRODUCT21.mdb

هاذي حق يمن سوفت ؟؟

لأخي الحبيب @خالد بشير قوانين المنتدى تمنع مثل هذا التصرف راجع قوانين المنتدى أخي الكريم 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

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

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

جرب هذا الملف Usser_F.xlsm

السلام عليكم استخراج تاريخ الميلاد من الرقم القومي وهي طلب للاخ الحبيب الاستاذ محمدي عبد السميع يطريقتين : اولا : بالمعادلات =DATE(IF(LEFT($B6;1)="2";MID($B6;2;2);"20"&MID($B6;2;2));MID($B6;4;2);MID($B6;6;2)) ============================= ثانيا: بالكود بدالة Kh_MyDate Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالـــــــــــــــة ' استخلاص تاريخ الميلاد من الرقم القومي '========================================" '========================================" '----------------------------------------------------------------- Function Kh_MyDate(MyNumber As Variant) As Date Dim D As String, M As String, Y As String, TY As String On Error GoTo Err_Kh_MyDate D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) If TY = "2" Then Else Y = "20" & Y Kh_MyDate = DateSerial(Y, M, D) Exit Function Err_Kh_MyDate: Kh_MyDate = "" End Function جعلتها هنا لتعم الفائدة للجميع خبور خير دالة استخلاص تاريخ الميلاد من الرقم القومي.rar

أستخدم هذه الدالة أخى =TRIM(LEN(A2))

السلام عليكم اذا كانت ما فهمت صحيح المعادلة التالية تقوم بما طلبت: لو فرضنا ان الرقم القومي في الخلية B6 =IF(MOD(LEFT(RIGHT($B6;2);1);2)=1;"ذكر";"انثى") خبور خير