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

1 2 3
22/03/2021, 19:16

isouysal

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.
22/03/2021, 19:23

berduş

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
22/03/2021, 19:31

isouysal

Teşekkür ederim.
Döngü doğru çalıştı. Elinize emeğinize sağlık.
23/03/2021, 09:19

berduş

Rica ederim
Iyi çalışmalar
1 2 3