ahmedabuzena

تسلم جزاكم الله خيرا

السلام عليكم استاذنا الفاضل بعد إذن حضرتك تقدر تضيف فرع آخر من الفرع بمعنى 1 main 1.1 sub 1.1.1 sub2

ربنا يباركلك فعلا عمل ممتاز جزاكم الله خيرا

ما شاء الله تحفة كان عندي استفسار ليه مع كود do maximize وتغير من right to left الى left to right بيفضل جزء فارغ Modern Main Page With Main Menu ENGLISH.rar

هههه غلطة موبايل لا تؤاخذنا تسلم جزاكم الله خيرا

مظبوط أنا عايزة زي ملف الاكسيل دة مجرد اختار الشهر فيتغير بكل ايام الشهر واطبع التقرير SHADY TIME TABLE 1_V4.xls

جزاكم الله خيرا

الغرض من عمل جدولين اني عايز اطبع ورقة واحدة بها جدولين وبعدين افصل الجدولين عن بعض بس كدة لو حاولت افصل الجدولين حافظه البيانات المكتوبة اعلى جدول رقم واحد

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

تمام جزاكم الله خيرا

اشكركم جميعا اساتذتي على مجهودكم وتعبكم في رسالة خطأ اذا حاولت ان اغير التاريخ واعيد التنفيذ

ما شاء الله مش اختار مين افضل اجابة الاثنين افضل من بعض جزاكم الله خيرا عندي استفسار ليه في الطباعة بيظهر اول جدول فقط

السلام عليكم ورحمة الله وبركاته برجاء عايز بالضغط على الزر واختيار التاريخ يتم التغير في العامودين هو يعمل على عامود واحد فقط SHADY TIME TABLE 1.xls

اخي foksh يا ريت لو تقدر تطبقها على المثال لما تكون فاضي وبجانب كمبيوتر اكون شاكر ليك

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

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

السلام عليكم اخي ابو خليل حتى بعد تغير التنسيق بردة بيظهر التاريخ مختلف ايه الحل

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

استاذ ابو خليل السلام عليكم انا طبقت ما قلته لكن الفلترة فارغه والاشهر مكررة لاني اخترت السورس يكون جدول الاقساط يا ريت حضرتك تعرفني فين المشكلة وبالنسبة لتكرار الاشهر انا عملت استعلام فيه التاريخ وعملت GROUP بس لم ينفع اعمل ايه لانى عايز التقرير يظهر اشهر الاقساط وليس الفواتير وجزاكم الله خيرا INSTALLMENT APPEND 7.rar

الف شكر اشتغل تمام شكرا لكل اللي ساعدني وبالأخص استاذ ابو جودي واستاذنا الفاضل FOKSH جزاكم الله خيرا

Private Sub أمر8_Click() Dim sql As DAO.Recordset Dim rsInvoice As DAO.Recordset Dim strAmount As String Dim Amount As Double Dim i As Integer Dim exists As Boolean Dim rsCheck As DAO.Recordset Dim strSQL As String Dim invoiceNumber As String Dim invoiceDate As Date Dim totalInstallments As Integer Dim currentInstallmentDate As Date ' فتح مجموعة السجلات للتعامل مع جدول الفواتير Set rsInvoice = CurrentDb.OpenRecordset("SELECT * FROM g1", dbOpenDynaset) ' فتح مجموعة السجلات للتعامل مع جدول الأقساط Set sql = CurrentDb.OpenRecordset("G2", dbOpenDynaset) ' التكرار على كل سجل فاتورة في جدول الفواتير Do Until rsInvoice.EOF invoiceNumber = rsInvoice![G1_NO] invoiceDate = rsInvoice![G1_DATE] totalInstallments = rsInvoice![G1_NO_PAYMENTS] ' حساب المبلغ وتنسيقه Amount = Round(rsInvoice![G1_AMOUNT] / totalInstallments, 2) strAmount = NoToTxt(Amount, "فلس", "دينار") 'التكرار على كل قسط للفاتورة الحالية For i = 0 To totalInstallments - 1 exists = False currentInstallmentDate = DateAdd("m", i, invoiceDate) ' تحقق مما إذا كان السجل موجودًا بالفعل strSQL = "SELECT * FROM G2 WHERE [G2_NO] = '" & invoiceNumber & "' AND [G1_DATE] = #" & Format(currentInstallmentDate, "yy/mmmm") & "#" Set rsCheck = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) If Not rsCheck.EOF Then exists = True End If rsCheck.Close Set rsCheck = Nothing ' إذا لم يكن السجل موجودًا، قم بإضافة سجل جديد If Not exists Then With sql .AddNew ![G2_NO] = invoiceNumber ![G2_DATE] = currentInstallmentDate ![G2_INSTALMENT_AMOUNT] = Amount ![G2_AMOUNT_WORDS] = strAmount ![G2_INSTALMENT_STATUS] = "لم يتم الدفع" .Update End With End If Next i rsInvoice.MoveNext Loop ' إغلاق مجموعة السجلات وتحديث النموذج sql.Close Set sql = Nothing rsInvoice.Close Set rsInvoice = Nothing Forms("f1").Requery End Sub السلا عليكم اخي الكريم كان الله في عونكم مرفق الكود المراد التعديل علية بعد تعدلي الاسماء وحابعت لحضرتك الجداول لعلك تقدر تكتشف الخطأ من خلال الموبايل وجزاكم الله خيرا الجدول الاول هو جدول الفواتير اسمه G1 الحقول G1_NO مفتاح اساسي مربوط مع G2_NO علاقة ONE TO MANY G1_NAME G1_DATE G1_AMOUNT G1_NO_PAYMENTS الجدول الثاني هو جدول توزيع الاقساط على عدد الاشهر لكل العملاء اسمه G2 الحقول G2_NO مفتاح اساسي G2_DATE G2_INSTALMENT_AMOUNT G2_AMOUNT_WORDS G2_INSTALMENT_STATUS

انا غيرت كل اسماء الحقول في جدول G1 AND G2 علشان اللخبطه وتفادي تشابه الاسماء في الجدولين وحاولت امشي مع الكود لمعرفة السبب وبردة لم يعمل يا ريت لو تقدر تساعدنى في حل المشكلة INSTALLMENT APPEND6.rar

فعلا هو مفيش جدول باسم faturas المفروض G1 بس برده بعد ما غيرت الاسم اعطاني اخطاء صلحت كل واح باسم الحقل المفروض يكون صح وبردة مفيش فايدة يا ريت لو تقدر تلاقي المشكلة فين حابعت لحضرتك الملف بعد تعديل الاسماء الف شكر INSTALLMENT APPEND5.rar

السلام عليكم تقريبا المشكلة في faturas لو أنا صح غيرتها باسم الجدول لكن بردة نفس الغلط ارجو ايجاد الحل جزاكم الله خيرا

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