محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم لاضافة سنة كاملة باليوم mySQL = "Select * From tbl1" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 0 To 364 rst.AddNew rst!txtDate = DateAdd("d", i, txt_From) rst.Update Next لاضافة سنة كاملة بالشهر mySQL = "Select * From tbl1" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 0 To 11 rst.AddNew rst!txtDate = DateAdd("m", i, txt_From) rst.Update Next db1.rar تحياتي

السلام عليكم لتحديث حقل Total amount في جميع الفواتير يمكن انشاء استعلام تحديث لحقل Total amount كالتالي DSum("(([price]*[number])-[discount])";"[subinvoices]";"[N invoice] =" & [N invoice]) لاحظ الاستعلام الجديد Query1 UPDATE invoices SET invoices.[Total amount] = DSum("(([price]*[number])-[discount])","[subinvoices]","[N invoice] =" & [N invoice]); وفي حدث عند الخروج في نموذج افواتير = invoices ضع الكود التالي Private Sub Form_Close() DoCmd.SetWarnings False DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True End Sub اما بالنسبة لحقل الباقي فيمكنك ان تجعله حقل محسوب كالتالي [Total amount]-[paid up] او تستغني عن عن الحقل وستخدم العملية الحسابية في الاستعلام = Query2 كالتالي Remaining_amount: Nz([Total amount])-Nz([paid up]) SELECT invoices.[Total amount], invoices.[paid up], Nz([Total amount])-Nz([paid up]) AS Remaining_amount FROM invoices; فواتير.rar تحياتي

افضل طريقة للتصدر الى اكسيل تجدها في الرابط التالي تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا الموضوع سيفيدك ان شاء الله تحياتي

لان التقرير يحتاج الى ضبط في العرض اضبط مقاسات الحقول وعرض التقرير وستنتهي المشكلة ان شاء الله تحياتي

تفضل اخي الكريم التعديل تم على ملف رقم 7 f41.rar تحياتي

لحذف السجلات الفارغة ضع معيار null للحقل الفارغ DELETE Table1.*, Table1.id FROM Table1 WHERE (((Table1.id) Is Null)); تحياتي

الف مبروك مليون مبروك لاخونا الفاضل @Khalf وارجوا من الله لك دوام التوفيق تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تخياتي

وعليكم السلام ورحمة الله وبركاته اليك حل المشكلة بطريقتين 1 - الكود Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If Me.num1.Value = Me.num2.Value Then Me.num1.BackColor = RGB(255, 0, 0) End If End Sub 2 - التنسيق الشرطي تحياتي sole2.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ASD.rar تحياتي

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

هل ادخلت بيانات في نموذج تفاصيل ؟ لا التقرير الموجود لا يوجد باقي به الحقول الخاصة بالنود ولكن يوجد حقل المكافئة فقط تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته ممكن نختصر اكواد طويلة ونستخدم الخيارات الموجودة في الاكسيس الفكرة هنا كيف نصل الى نافذة خيارات البرنامج الكود التالي مكون من زرين امر احدهما للتأشير علامة صح امام ضغط واصلاح قاعدة البيانات عد الاغلاق والزر الثاني يعكس العملية ويقوم بازالة علامة صح ايضا واختصارا لعملية كثيرة وانشاء جدول وكتابة اكود يمكن عرض InputBox وتحديد كلمة سر لتنفيذ العملية Private Sub Command0_Click() If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "123" Then MsgBox " كلمة المرور غير صحيحة", vbInformation, "officena" Else Application.SetOption "Auto compact", True MsgBox " سيتم ضغط واصلاح قاعدة البيانات عند اغلاق البرنامج", vbInformation, "officena" End If End Sub Private Sub Command1_Click() If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "123" Then MsgBox " كلمة المرور غير صحيحة", vbInformation, "officena" Else Application.SetOption "Auto compact", False MsgBox " تم الغاء ضغط واصلاح قاعدة البيانات عند اغلاق البرنامج", vbInformation, "officena" End If End Sub db9.rar تحياتي

وعليكم السلام ورحمة الله وبركاته يمكن تنفيذ الامر في حدث قبل التحديث Private Sub Form_BeforeUpdate(Cancel As Integer) ' ضع اوامر تنفيذ الاستعلامات هنا End Sub تحياتي

نموذج التفاضيل لا يوجد به بيانات لكافة الارقام لذلك لا بد من ادخال بيانات اولا لباقي الارقام في نموذج التفاضيل تحياتي

تم تم توضيح.rar

اللهم امين جزاكم الله خيرا اخي الكريم ابوعبدالرحمن تحياتي

حسب ما فهمت انك تريد في نموذج الخلاصة عند الضغط على حقل مكافئة يظهر نموذج تفاصيل مع فلترة النموذج حسب الرقم وحقل بند يكون مكافئة Dim myCriteria As String myCriteria = myCriteria & " AND [الرقم]=" & Me.الرقم.Value myCriteria = myCriteria & " AND [البند]='" & Me.مكافئة.Name & "'" If Len(myCriteria) > 0 Then myCriteria = Mid(myCriteria, 6) End If DoCmd.OpenForm "تفاصيل", , , WhereCondition:=myCriteria وانك تريد في نموذج الخلاصة عند الضغط على حقل المواصلان يظهر نموذج تفاصيل مع فلترة النموذج حسب الرقم وحقل بند يكون المواصلات Dim myCriteria As String myCriteria = myCriteria & " AND [الرقم]=" & Me.الرقم.Value myCriteria = myCriteria & " AND [البند]='" & Me.المواصلات.Name & "'" If Len(myCriteria) > 0 Then myCriteria = Mid(myCriteria, 6) End If DoCmd.OpenForm "تفاصيل", , , WhereCondition:=myCriteria توضيح.rar تحياتي

تفضل اخي الكريم __f_absent .rar تحياتي

مش انا يا عم ازهر يمكن قصدك على عمنا جعفر