اذهب الي المحتوي
أوفيسنا

Gmal samy

02 الأعضاء
  • Posts

    70
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو Gmal samy

  1. اذا كان المبلغ المستحق سداده 655 ولكن المبلغ المسدد 600 فقط ... كيف اجعل اولوية السداد في الغرامة ثم الفائدة والباقي في الاصل .... حسب الملف المرفق .. وشكرا السداد.xlsx
  2. 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 ممكن شرح للكود
  3. كيف يمكن ترحيل رصيد اخر المدة خلال العام ليكون رصيد اول المدة في العام التالي ترحيل رصيد.zip
  4. كيف يمكن ترحيل رصيد اخر الفترة الي رصيد اول الفترة في السنة الجديدة ؟ وشكرا
  5. يا استاذ محمد في الصف الثاني 50 - 20 = 1030
  6. عند الطباعة كان يظهر المجموع خطأ كما هو مبين بالصورة ( جمال ) فقمت بتغير المعادلة لتصبح Total3: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "and [Account]=" & [Account]);0) ولكن عند تطبيقها في البرنامج الاصلي تظهر الخطأ في المشاركة السابقة فاريد طريقة مختلفة تستخدم في التقرير لعدم ظهور الصف الذي به رصيد صفر وشكرا db1.rar
  7. عند التطبيق علي البرنامج تعطي هذه الرسالة فهل هناك طريقة لتنفيذ المعادلة من التقرير وليس الاستعلام وشكرا db1.zip
  8. شكرا استاذ محمد ابوعبد الله ممكن بس شرح التعديل علي اخر ملف
  9. بعد اضافة نموذج للطباعة اصبحت المعادلة لا تعمل برجاء المساعدة وشكرا db1.zip
  10. شكرا استاذ محمد هل هذه المعادلة سليمة Total: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "JournalEntry![Accounts]=" & JournalEntry!Accounts & "#");0)
  11. اذا كنت اريد ان اضيف للمعادلة في الاستعلام اكثر من شرط مثل فترة بين تاريخين ونوع الحساب فكيف ستكون المعادلة وشكرا
  12. شكرا علي الاستجابة السريعة هذا هو المطلوب
  13. شكرا استاذ محمد ابوعبد الله مثال رائع لكني اريد اخفاء صف وليس عمود وشكرا
  14. كيف يمكن ان اخفي الصف في التقرير اذا كان الرصيد = 0 وشكرا db1.zip
  15. عند ادخال مبلغ المبيعات بتاريخ 2004/8/23 الرصيد التراكمي يظهر صفر بسبب ادخال مبلغ تحصيل في نفس التاريخ بنفس القيمة كيف يمكن ان يظهر الرصيد التراكمي في السطر الاول 1500 وفي السطر الثاني بعد ادخال مبلغ التحصيل يظهر صفر وشكرا
  16. اريد ان اقوم بعمل اجمالي في الاستعلام الجدولي ( استعلام 1 , استعلام 2 )حيث تم تحويل المدخلات الي رؤس الاعمدة ويظهر الاجمالي في التقرير وشكرا db1.rar
  17. هل يمكن تغير الكود الموجود في هذه المشاركة ليكون في تذييل المجموعة بدلا من في ا لتفصيل في حدث عند الطباعة حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير ضع في حدث عند الصفحة الكود التالي 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)
  18. اريد عمل خانة بحث ( قائمة منسدلة ) في نموذج Journal بالاسم وعند اختيار اسم تظهر نتيجة رقم واسم في خانة النموذج وشكرا db1.rar
  19. قمت باعداد برنامج للحسابات ولكن لم استطيع اعداد تقرير به اجماليات حيث تظهر لي هذه المشكلة فهل من طريقة لاعداد تقرير به اجماليات في نهايته وشكرا db1.rar
×
×
  • اضف...

Important Information