+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Te Aylık Gün Dağıtımı Yapmak İstiyorum Bir Türlü Yapamadım. (/konu-access-te-aylik-gun-dagitimi-yapmak-istiyorum-bir-turlu-yapamadim.html)
RE: Access Te Aylık Gün Dağıtımı Yapmak İstiyorum Bir Türlü Yapamadım. - isouysal - 22/03/2021
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.
RE: Access Te Aylık Gün Dağıtımı Yapmak İstiyorum Bir Türlü Yapamadım. - berduş - 22/03/2021
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 FunctionRE: Access Te Aylık Gün Dağıtımı Yapmak İstiyorum Bir Türlü Yapamadım. - isouysal - 22/03/2021
Teşekkür ederim.
Döngü doğru çalıştı. Elinize emeğinize sağlık.
RE: Access Te Aylık Gün Dağıtımı Yapmak İstiyorum Bir Türlü Yapamadım. - berduş - 23/03/2021
Rica ederim
Iyi çalışmalar