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

**abouelhassan** · أغسطس 23, 2021

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

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

1.png.ca1e858629207f37003ec14724349695.png

فى تكست المجموع بدون احتاج الى ان تظهر مجموع المبالغ بها وفى حالة وجود اسم الحساب الايراد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** · أغسطس 24, 2021

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

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

**husamwahab** · أغسطس 24, 2021

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

2300-3-1.rar

**abouelhassan** · أغسطس 25, 2021

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

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

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

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

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

**husamwahab** · أغسطس 25, 2021

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

**abouelhassan** · أغسطس 25, 2021

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

**سامي الحداد** · أغسطس 25, 2021

منذ ساعه, 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** · أغسطس 25, 2021

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

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

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

**سامي الحداد** · أغسطس 25, 2021

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

بالتوفيق

**abouelhassan** · أغسطس 27, 2021

في ٢٥‏/٨‏/٢٠٢١ 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

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

1.png.ca1e858629207f37003ec14724349695.png

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

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

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

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

احترامى

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

**husamwahab** · أغسطس 27, 2021

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

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

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

**abouelhassan** · أغسطس 27, 2021

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** · أغسطس 28, 2021

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

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

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

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

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

بس فشلت

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

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

**husamwahab** · أغسطس 28, 2021

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

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

6 hours ago, abouelhassan said:
=Sum(IIf([iPage]=1;0;[iAmount]))-Sum(IIf([iPage]=1;[iAmount]))

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

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

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

2300-3-2.rar

**abouelhassan** · أغسطس 28, 2021

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

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

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

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

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

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

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

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

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

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

**husamwahab** · أغسطس 28, 2021

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

تسجيل الدخول

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

الردود الموصى بها

abouelhassan

abouelhassan

husamwahab

abouelhassan

husamwahab

abouelhassan

سامي الحداد

abouelhassan

سامي الحداد

abouelhassan

husamwahab

abouelhassan

abouelhassan

husamwahab

abouelhassan

husamwahab

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information