ay sütununda 30dan büyük veri olmadığından çift döngülüyü deneyemedim
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