الرصيد

[كرار صبري _ أبو جنى]

السلام عليكم ...

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

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

افيدونا يرحمكم الله ... 

الرصيد.rar

[jjafferr]

وعليكم السلام 

 

نتيجة استعلامك السابق كان:

.

واصبح

.

وتصميم الاستعلام الجديد هكذا:

.

جعفر

[كرار صبري _ أبو جنى]

شكرا جزيلا استاذ جعفر على الرد ...

لكن يوجد تسديد واحد فقط يوم 4/10 بقيمة 40 

[jjafferr]

وعليكم السلام أخي كرار

 

انا لم ادخل البيانات ولا لعبت فيها ، استعلامك raseed يؤكد ان عندك ادخالين 

ادخل معلومات جديدة ، وشوف النتيجة

 

جعفر

[كرار صبري _ أبو جنى]

يمكنك التأكد من الجدول ts

وشكرا على المتابعة ...

[jjafferr]

تفضل 

 

جعفر

231.الرصيد.accdb.zip

[كرار صبري _ أبو جنى]

اشكرك استاذ جعفر جزيل الشكر ... و وفقك الله الى كل خير ...

لكن هل يمكن عمل الاستعلام بهذا الشكل ؟؟؟

aaa.bmp

[كرار صبري _ أبو جنى]

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

[jjafferr]

وعليكم السلام أخي كرار 

 

هاي ما كانت سهلة 

لازم تستخدم الزر اللي في النموذج ، 

والكود حقه:

Private Sub cmd_Combine_Click()

    'delete the old data
    mySQL = "Delete * From tbl_PP"
    CurrentDb.Execute (mySQL)
    
    Dim rstpp As DAO.Recordset
    Dim rst As DAO.Recordset
    
    Set rstpp = CurrentDb.OpenRecordset("Select * From tbl_PP")
   
'1
    Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    'add all the records
    For i = 1 To RC
        
        rstpp.AddNew
            rstpp!iDate = rst!tash
            rstpp!Purchase = rst!mbsh
        rstpp.Update
        
        rst.MoveNext
    Next i
    
    
'2
    Set rst = CurrentDb.OpenRecordset("Select * From ts Order By tats")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    'we should check if the date is available, then we should use it
    For i = 1 To RC
        
        rstpp.FindFirst "iDate=#" & rst!tats & "#"
        
        If rstpp.NoMatch Then
            
            rstpp.AddNew
                rstpp!iDate = rst!tats
                rstpp!Payment = rst!mbts
            rstpp.Update
            
        Else
            
            rstpp.Edit
                'rstpp!iDate = rst!tats
                rstpp!Payment = rst!mbts
            rstpp.Update
            
        End If
        
        rst.MoveNext
    Next i
    
    rstpp.Close: Set rstpp = Nothing
    rst.Close: Set rst = Nothing
    
    DoCmd.OpenQuery "qry_PP"
    
End Sub

.

وهذه النتيجة:

 

جعفر

231.الرصيد.accdb.zip

[كرار صبري _ أبو جنى]

عاشت ايدك ... استاذنا الغالي والله انت مبدع ...

و اشكرك على كرمك و وقتك ...

                                                                                                                                                    

تم تعديل أكتوبر 13, 2015 بواسطه karrar sabry