Gmal samy

اذا كان المبلغ المستحق سداده 655 ولكن المبلغ المسدد 600 فقط ... كيف اجعل اولوية السداد في الغرامة ثم الفائدة والباقي في الاصل .... حسب الملف المرفق .. وشكرا السداد.xlsx

Sub Find_Between() Dim First_Sh, Sec_Sh As Worksheet Dim First_Rg, Sec_Rg As Range Dim My_Min As Long, My_Max, x As Long Dim lr, m, i As Integer Application.ScreenUpdating = False Set First_Sh = Sheets("ÇáÈíÇäÇÊ"): Set Sec_Sh = Sheets("ÇáÐíä ÇÓÊáãæÇ ÇÌæÑåã") My_Min = First_Sh.Range("k2"): My_Max = First_Sh.Range("l2") Set First_Rg = First_Sh.Range("a1").CurrentRegion.Offset(1) Set Sec_Rg = Sec_Sh.Range("a1").CurrentRegion.Offset(1) Sec_Rg.ClearContents lr = First_Rg.Rows.Count - 1 m = 2 For i = 1 To lr x = CDate(First_Rg.Cells(i, 1)) If First_Rg.Cells(i, 1) >= My_Min And First_Rg.Cells(i, 1) <= My_Max Then Sec_Sh.Cells(m, "a").Resize(1, 9).Value = First_Rg.Cells(i, 1).Resize(1, 9).Value m = m + 1 End If Next Application.ScreenUpdating = True End Sub ممكن شرح للكود

ممكن شرح للجزء ده

كيف يمكن ترحيل رصيد اخر المدة خلال العام ليكون رصيد اول المدة في العام التالي ترحيل رصيد.zip

كيف يمكن ترحيل رصيد اخر الفترة الي رصيد اول الفترة في السنة الجديدة ؟ وشكرا

يا استاذ محمد في الصف الثاني 50 - 20 = 1030

عند الطباعة كان يظهر المجموع خطأ كما هو مبين بالصورة ( جمال ) فقمت بتغير المعادلة لتصبح Total3: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "and [Account]=" & [Account]);0) ولكن عند تطبيقها في البرنامج الاصلي تظهر الخطأ في المشاركة السابقة فاريد طريقة مختلفة تستخدم في التقرير لعدم ظهور الصف الذي به رصيد صفر وشكرا db1.rar

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

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

بعد اضافة نموذج للطباعة اصبحت المعادلة لا تعمل برجاء المساعدة وشكرا db1.zip

شكرا استاذ محمد ابوعبد الله

ممكن توضيح

شكرا استاذ محمد هل هذه المعادلة سليمة Total: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "JournalEntry![Accounts]=" & JournalEntry!Accounts & "#");0)

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

شكرا علي الاستجابة السريعة هذا هو المطلوب

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

كيف يمكن ان اخفي الصف في التقرير اذا كان الرصيد = 0 وشكرا db1.zip

عند ادخال مبلغ المبيعات بتاريخ 2004/8/23 الرصيد التراكمي يظهر صفر بسبب ادخال مبلغ تحصيل في نفس التاريخ بنفس القيمة كيف يمكن ان يظهر الرصيد التراكمي في السطر الاول 1500 وفي السطر الثاني بعد ادخال مبلغ التحصيل يظهر صفر وشكرا

اريد ان اقوم بعمل اجمالي في الاستعلام الجدولي ( استعلام 1 , استعلام 2 )حيث تم تحويل المدخلات الي رؤس الاعمدة ويظهر الاجمالي في التقرير وشكرا db1.rar

هل يمكن تغير الكود الموجود في هذه المشاركة ليكون في تذييل المجموعة بدلا من في ا لتفصيل في حدث عند الطباعة حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير ضع في حدث عند الصفحة الكود التالي Me.ScaleMode = 1 Me.ForeColor = 0 Me.DrawWidth = 3 وفي التفصيل في حدث عند الطباعة ضع الكود التالي وستحل مشكلتك انشاء الله Dim ctl As Control Dim MaxHeight As Long MaxHeight = 0 For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)

يعطيني هذا الخطأ

شكرا تم الحل

اريد عمل خانة بحث ( قائمة منسدلة ) في نموذج Journal بالاسم وعند اختيار اسم تظهر نتيجة رقم واسم في خانة النموذج وشكرا db1.rar

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

قمت باعداد برنامج للحسابات ولكن لم استطيع اعداد تقرير به اجماليات حيث تظهر لي هذه المشكلة فهل من طريقة لاعداد تقرير به اجماليات في نهايته وشكرا db1.rar