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