Foksh

وفيكم اخي الكريم .. شكراً لمرورك العطر

عشان تعرف بس معزتك قد ايه

هذه محاولتي البسيطة Test ID.accdb

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

Private Sub Command5_Click() If Me.Image.Picture <> Application.CurrentProject.Path & "\Pictures\" & Me.FirstName & ".jpg" Then Me.Note1 = Null End If End Sub

لم انتبه لردك استاذ @Eng.Qassim الا بعد اضافة ردي 🤦🏻‍♂️

مشاركة ، بعد إذن الأساتذة.. Private Sub YourSubName() On Error GoTo ErrorHandler If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Then Me.Novel = Null Else Me.Note2 = Null End If Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical, "Error" End Sub

أولاً أخي الكريم ،، اختيار أفضل إجابة تختارها للحل ، وليس لصاحب الموضوع

للتوضيح ، يبدو أنني لم أفسر بشكل أوضح أخي الكريم .. بعد تسجيلك للدخول باسم الموظف سيتم انشاء المجلد عندما تختار اضافة مرفقات PDF ..

بارك الله فيكم معلمنا @ابوخليل إن كنت تقصد الدوائر التي باللون الأصفر والأخضر ( التي تمثل الساعة ) ، فهي أزرار وليست مربعات تسمية أو نص

هل هذا ما تقصده ؟؟ جرب سجل الدخول بأي اسم مستشفى ، ستلاحظ انشاء مجلد خاص باسم المستشفى بجانب قاعدة .. inv4.accdb

دائماً ترفع معنوياتي بمداخلاتك وما شاء الله عليك مهندسنا الغالي ,, سلمت على هديتك ومشاركتك الجميلة

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

كلاا الاستعلام كما رأيت لم يجلب اي قيمة النتيجة من هذا الكود Private Sub txtMonthe_AfterUpdate() Dim Total As Double Dim EndDate As Date EndDate = CDate(Me.txtMonthe.Value) Total = Nz(DSum("Loan_Made - Payment_Made", "tbl_Loans", "Payment_Month <= #" & EndDate & "# AND Loan_ID > 0"), 0) Me.Roming = Format(Total, "Standard") End Sub لتجنب مشاكل التنسيق ، نصيحة جميلة ومفيدة .. لكن النتيجة نفسها في تجربة اخونا @كريمو2

مع العلم ان الاستعلام Baghi3112 لا يأتي بنتائج

صديقي انا اعرف النتيجة ، ولكنت من يجب ان يتحقق منها ؟؟ بناءً على معلوماتك ،، مجموع Loan_Made ناقص مجموع Payment_Made ضمن شرط التاريخ !!!!

انظر .. Private Sub txtMonthe_AfterUpdate() Dim Total As Double Dim EndDate As Date EndDate = CDate(Me.txtMonthe.Value) Total = Nz(DSum("Loan_Made - Payment_Made", "tbl_Loans", "Payment_Month <= #" & EndDate & "# AND Loan_ID > 0"), 0) Me.Roming = Format(Total, "Standard") End Sub

اجبني على سؤالي هنا .. انسى امر الدالة حالياً

حسب ما فهمت : مجموع Loan_Made ناقص مجموع Payment_Made ، صحيح ؟؟ هذه الاستعلام ، صحيح لاظهار القيم ؟ SELECT Loan_ID, Payment_Month, Loan_Made, Payment_Made, (Loan_Made - Payment_Made) AS Net_Value FROM tbl_Loans WHERE Payment_Month <= #12/31/2024# AND Loan_ID > 0;

للتحقق ، جرب هذا الاستعلام واخبرني بنتيجته .. SELECT SUM(Loan_Made - Payment_Made) AS Total_Net_Value FROM tbl_Loans WHERE Payment_Month <= #12/31/2024# AND Loan_ID > 0;

اخي الكريم بدلاً من الدخول في متاهة تتبع الاكواد ، ما الحقل الذي تريد جلب مجموعه من الجدول بشرط التاريخ ؟؟؟

بما أنني شاركت في متابعة سابقة لنفس الموضوع ،جرب هذا الكود في زر التوزيع ,, Private Sub أمر604_Click() On Error Resume Next If IsNull(Me.grop) Then MsgBox "من فضلك اكتب عدد المجموعة", vbCritical Exit Sub End If If IsNull(Me.go11) Then MsgBox "من فضلك اكتب بداية رقم الجلوس", vbCritical Exit Sub End If If IsNull(Me.Se1) Then MsgBox "من فضلك اكتب بداية رقم السرى", vbCritical Exit Sub End If If IsNull(Me.mg_grop) Then MsgBox "من فضلك اكتب رقم المجموعة", vbCritical Exit Sub End If If IsNull(Me.tr_sry) Then MsgBox "من فضلك اختر طريقة التوزيع", vbCritical Exit Sub End If Dim k As Integer Dim rs As DAO.Recordset If DCount("[num_Glos]", "[data]", "[num_Glos] Between " & [Forms]![sry_trm1]![go11] & " AND " & [Forms]![sry_trm1]![go22] & " And [sery] Is Not Null") > 0 Then MsgBox "انتبه : تم ادخال ارقام الجلوس هذه سابقا", vbCritical ElseIf DCount("[sery_name]", "[data]", "[sery_name] = " & [Forms]![sry_trm1]![mg_grop] & "") > 0 Then MsgBox "انتبه : تم ادخال رقم هذه المجموعة سابقا", vbCritical ElseIf DCount("[sery]", "[data]", "[sery] Between " & [Forms]![sry_trm1]![Se1] & " AND " & [Forms]![sry_trm1]![Se2] & "") > 0 Then MsgBox "انتبه : هناك ارقام سرية متداخلة", vbCritical Exit Sub Else Set rs = CurrentDb.OpenRecordset("SELECT data.name_student, data.num_Glos, data.CLASS_CLASS, data.sery, data.sery_name FROM data WHERE data.num_Glos Between " & [Forms]![sry_trm1]![go11] & " And " & [Forms]![sry_trm1]![go22] & ";") k = Me.Se1 With rs .MoveLast .MoveFirst For i = 1 To .RecordCount .Edit rs!sery = k rs!sery_name = Me.mg_grop .Update If Me.tr_sry = "زائد واحد" Then k = k + 1 ElseIf Me.tr_sry = "ناقص واحد" Then k = k - 1 End If .MoveNext Next i End With MsgBox "تم بنجاح توزيع وادخال الأرقام السرية للمجموعة رقم " & Me.mg_grop, vbInformation Me.Requery Me.Se1 = "" Me.go11 = "" Me.mg_grop = "" Me.grop = "" End If End Sub المرفق بعد التعديل :- توزيع اللجان والسرى.accdb