مجموع سجلات بدون سجل

[abouelhassan]

السلام عليكم ورحمة الله

اخوانى الاساتذة احتاج الى

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

يعنى فى هذه الصورة يظهر بها600-100+200+300+700=-700

600 الايراد3-100 الايراد1+200 الايراد8+300 الايراد5+700 الايراد1

بغض النظر عن مكان وجود الايراد3 الشرط هو كلمة الايراد3

اما اذا لو كان كلمة الايراد3 غير موجودة السطر كله غير موجود يظهر فى التكست المجموع للمبالغ=1000

بارك الله فيكم اخوانى الافاضل

 

2300-3.rar

تم تعديل أغسطس 23, 2021 بواسطه abouelhassan

[abouelhassan]

الاساتذة هل بالامكان امدادى بكود لتنفيذ المطلوب

مع خالص الشكر والدعاء

[husamwahab]

تفضل هذه المحاولة حسب فهمي لطلبك

2300-3-1.rar

[abouelhassan]

59 دقائق مضت, husamwahab said:

تفضل هذه المحاولة حسب فهمي لطلبك

2300-3-1.rar 312.81 kB · 0 downloads

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

اعزك المولى وبارك فيك اخى الكريم

[husamwahab]

بالخدمة استاذي العزيز

[abouelhassan]

5 ساعات مضت, husamwahab said:

بالخدمة استاذي العزيز

ربنا يحفظك يارب ويكرمك اللهم امين

معلش استاذى الحبيب حدثت مشكلة لدى حيث ان لدى كود فى قاعدة البيانات فى نفس الحدث AfterUpdate

Private Sub iPage_AfterUpdate()
On Error Resume Next
Dim X
    X = iPage
Dim i, i2 As Integer
DoCmd.GoToRecord , , acFirst
    For i = 0 To Me.Form.Recordset.RecordCount - 1
        If iPage = X Then
            i2 = i2 + 1
            If i2 > 1 Then
                If MsgBox("تم استخدام الحساب مسبقا" & vbNewLine & "هل تريد التراجع ؟", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
                    
                   DoCmd.SetWarnings False
                   DoCmd.RunCommand acCmdUndo
                   DoCmd.SetWarnings True
                Exit Sub
                End If
            
            End If
            
        End If
        DoCmd.GoToRecord , , acNext
    Next i
    DoCmd.GoToRecord , , acNewRec
    Me.iName.SetFocus

End Sub

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

DoCmd.RunCommand acCmdSaveRecord
Dim i As Long, k As Long
Dim Total As Double
Dim rs As DAO.Recordset

Total = 0
Set rs = Me.RecordsetClone

  If Nz(rs.RecordCount, 0) = 0 Then
    Set rs = Nothing
    Exit Sub
  End If
  rs.MoveLast
  k = rs.RecordCount
  rs.MoveFirst
  For i = 1 To k
    If rs!iPage = 1 Then
      Total = Total - Nz(rs!iAmount, 0)
    Else
      Total = Total + Nz(rs!iAmount, 0)
    End If
    rs.MoveNext
  Next i
Me.txtSum = Total

Set rs = Nothing

اريد جمع الكودين بنفس الحدثAfterUpdate

ربنا يكرمك يارب

تم تعديل أغسطس 25, 2021 بواسطه abouelhassan

[سامي الحداد]

منذ ساعه, abouelhassan said:

ربنا يحفظك يارب ويكرمك اللهم امين

معلش استاذى الحبيب حدثت مشكلة لدى حيث ان لدى كود فى قاعدة البيانات فى نفس الحدث AfterUpdate

Private Sub iPage_AfterUpdate()
On Error Resume Next
Dim X
    X = iPage
Dim i, i2 As Integer
DoCmd.GoToRecord , , acFirst
    For i = 0 To Me.Form.Recordset.RecordCount - 1
        If iPage = X Then
            i2 = i2 + 1
            If i2 > 1 Then
                If MsgBox("تم استخدام الحساب مسبقا" & vbNewLine & "هل تريد التراجع ؟", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
                    
                   DoCmd.SetWarnings False
                   DoCmd.RunCommand acCmdUndo
                   DoCmd.SetWarnings True
                Exit Sub
                End If
            
            End If
            
        End If
        DoCmd.GoToRecord , , acNext
    Next i
    DoCmd.GoToRecord , , acNewRec
    Me.iName.SetFocus

End Sub

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

DoCmd.RunCommand acCmdSaveRecord
Dim i As Long, k As Long
Dim Total As Double
Dim rs As DAO.Recordset

Total = 0
Set rs = Me.RecordsetClone

  If Nz(rs.RecordCount, 0) = 0 Then
    Set rs = Nothing
    Exit Sub
  End If
  rs.MoveLast
  k = rs.RecordCount
  rs.MoveFirst
  For i = 1 To k
    If rs!iPage = 1 Then
      Total = Total - Nz(rs!iAmount, 0)
    Else
      Total = Total + Nz(rs!iAmount, 0)
    End If
    rs.MoveNext
  Next i
Me.txtSum = Total

Set rs = Nothing

اريد جمع الكودين بنفس الحدثAfterUpdate

ربنا يكرمك يارب

أخي الكريم

فقط غير اسم المتغير  

Dim i As Long, k As Long 

الى اي اسم اخر  مثلا Dim ixx As Long, K As Long

وايضا غير هذا السطر 

For i = 1 To k

For ixx =1 To K

وايضا هذا السطر

Next i

 Next ixx

بالتوفيق

[abouelhassan]

استاذ سامي الحداد

بارك الله فيك اخى تسلم وتعيش يارب

احترامى وتقديرى لك اخى

[سامي الحداد]

يحفظك ربي اخي العزيز

بالتوفيق

[abouelhassan]

في ٢٥‏/٨‏/٢٠٢١ at 01:52, husamwahab said:

تفضل هذه المحاولة حسب فهمي لطلبك

2300-3-1.rar 312.81 kB · 12 downloads

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

هذه محاولة منى بها مشكلة

=Sum(IIf([iPage]=1;0;[iAmount]))-Sum(IIf([iPage]=1;[iAmount]))

تحتاج تعديل حيث ان المعادلة لا تعمل الا اذا اختارنا الحساب رقم1

احتاج لتعديلها

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

يعنى فى هذه الصورة يظهر بها600-100+200+300+700=-700

600 الايراد3-100 الايراد1+200 الايراد8+300 الايراد5+700 الايراد1

بارك الله فيك استاذى الحبيب

احترامى

تم تعديل أغسطس 27, 2021 بواسطه abouelhassan

[husamwahab]

حبيبي استاذ ابو الحسن

جرب هذا الكود وهو تعديل لكودك

=Sum(IIf([iPage]=4;0;[iAmount]))-Sum(IIf([iPage]=4;[iAmount];0))

 

[abouelhassan]

12 دقائق مضت, husamwahab said:

حبيبي استاذ ابو الحسن

جرب هذا الكود وهو تعديل لكودك

=Sum(IIf([iPage]=4;0;[iAmount]))-Sum(IIf([iPage]=4;[iAmount];0))

 

استاذى الحبيب لقلبى استاذ حسام اشكرك من كل قلبى

المشكلة ليست رقم الحساب المشكلة

ان المعادلة وظيفتها

ان تقوم بجمع المبالغ بجانب الحسابات حتى تقابل الشرط الحساب المستثنى وليكن 1

يتم طرح هذا الحساب من الحسابات

الفائدة من هذه التكست

لدى عدد مثلا فاتورة بها 

1000 ح الايراد1

500 ح الايراد2

1500 ح الايراد3

هذه التكست توضح لى اذا لم اقوم بادخال حساب توضح لى مبلغه

مثلا ادخلت 1000 ح الايراد و 500 ح الايراد2 اريد بالتكست يظهر المجموع 1500 واذا ادخلت 1500 ح الايراد يظهر بها 0

حيث ان الشرط هو ح الايراد3- مجموع الحسابات التى تدخل

اما محاولتى اذا لم ادخل الحساب المستثنى اجد التكست فارغة

بارك الله فيك استاذى الحبيب

 

تم تعديل أغسطس 27, 2021 بواسطه abouelhassan

[abouelhassan]

جربت اعمل 3 تكست

الاولى لجمع المبالغ كلها الا الحساب رقم1

الثانية جمع الحساب 1

واقوم باخفائهما

الثالثة الاولى-الثانية

بس فشلت 

احترامى وتقديرى

 

تم تعديل أغسطس 28, 2021 بواسطه abouelhassan

[husamwahab]

استاذي العزيز ابو الحسن

المعادلة شغالة عندي هذا حسب فهمي لطلبك

6 hours ago, abouelhassan said:

=Sum(IIf([iPage]=1;0;[iAmount]))-Sum(IIf([iPage]=1;[iAmount]))

اما المعادلة اعلاه فيها نقص لذا لا تعطي نتائج الا بوجود الحساب 1

قارن بينها وبين المعادلة السابقة وستجد الفرق

وهذا تعديل حسب طلبك الاخير 

2300-3-2.rar

[abouelhassan]

5 ساعات مضت, husamwahab said:

استاذي العزيز ابو الحسن

المعادلة شغالة عندي هذا حسب فهمي لطلبك

اما المعادلة اعلاه فيها نقص لذا لا تعطي نتائج الا بوجود الحساب 1

قارن بينها وبين المعادلة السابقة وستجد الفرق

وهذا تعديل حسب طلبك الاخير 

2300-3-2.rar 308.39 kB · 0 downloads

تسلم تسلم تسلم استاذى فعلا كلام حضرتك صحيح والمعادلة ممتازة والتعديل ممتاز

اغرقتنا بكرمك يااستاذ حسام حفظك الله وزادك من فضله ورزقك الخير كله

اللهم امين يارب

[husamwahab]

بالخدمة استاذي العزيز ورحم الله والديك