Access Te Aylık Gün Dağıtımı Yapmak İstiyorum Bir Türlü Yapamadım.

hocam ben şimdi onu düzeltmeye çalışıyorum.çift döngüde tek alanı artırıyor. diğer alanları etkilemiyor.
Teşekkür ederim bu kadarda işimi görür.

aşağıdaki gibi de denenebilir

Function GunDagit()

CurrentDb.Execute "DELETE FROM Günler"

 SqlEkle = "INSERT INTO [günler] ([Tarih], [Grup No], [Ad Soyad],[Kota Ton],[Ay]) " & _

          "SELECT Date(),[Grup No],[Adı ve Soyadı],[Kota Ton],[Eylül] FROM [eylül];"

CurrentDb.Execute SqlEkle

Dim rs As Recordset

Dim UygnStnDz() As Byte

Set db = CurrentDb

Set rs = db.OpenRecordset("select * from günler order by cint([Ay]) desc", dbOpenDynaset)

    With rs

        Do Until .EOF

            RndSay = CInt(rs(7))  '4 * CInt(rs(7))<==deneme amaçlı

            z = 7

            GünDagit = 0

            Do While GünDagit < RndSay

                z = z + 1 'zMax=38

                If z > 38 Then z = 8



                Mx40 = Nz(DSum("[" & z - 7 & "]", "günler"), 0)

                If Mx40 < 40 Then

                    .Edit

                          rs(z) = Nz(rs(z), 0) + 1

                    .Update

                    GünDagit = GünDagit + 1

                End If

            Loop

            .MoveNext

        Loop

    End With

    

    MsgBox "Posa Bölme İşlemi Tamamlanmıştır."

rs.Close

db.Close

End Function

Teşekkür ederim.
Döngü doğru çalıştı. Elinize emeğinize sağlık.

Rica ederim
Iyi çalışmalar