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

Set db = CurrentDb

Set rs = db.OpenRecordset("günler", dbOpenDynaset)

    With rs

        Do Until .EOF

            RndSay = CInt(rs(7))

            z = 7

            GünDagit = 0

            .Edit

            Do While GünDagit < RndSay

                z = z + 1

                t = 1 'zMax=38

                If z > 38 Then

                    z = 8

                    t = t + 1

                End If

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

                If Mx40 < 40 Then

                    rs(z) = t

                    GünDagit = GünDagit + 1

                End If

            Loop

            .Update

            .MoveNext

        Loop

    End With

    

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

rs.Close

db.Close

End Function