Merhaba Arkadaşlar,

Koçan formunda bulunan "Kaydet ve Çek Oluştur" butonu tıkladığımda aşağıdakilerin yapılması konusunda yardımcı olabilirmisiniz?

* Koçan no 1 den başlayıp 100 e kadar olsun. Kaydet dediğimde cek tablosunda 1denbaşlayıp 100 kadar çek girmesini istiyorum. Kısaca cek baslangiç ile bitiş aralağı baz alınarak, koçanımda 100 tane çek varsa Çek Kaydet değimde cek tablosunda çek numaralarını ve koçan numarasını kaydedecek. Daha sonra ben o çek numaralarını çağırarak veri gireceğim.

Sayin MESUTYAGMUR;

Asagidaki kodla yapilabilir.
Private Sub Komut50_Click()
Dim Sw As Long, Tut As Double
If Me.CekTutari > 0 Then Tut = Round(Me.CekTutari / (Nz(Me.BitiþNo, 0) - Nz(Me.BaþlangýNo, 0)), 2) Else Tut = 0
For Sw = Me.BaþlangýNo To Me.BitiþNo
Application.CurrentDb.Execute "INSERT INTO cek ( KoçanNo, ÇekNo, ÇekTutarý ) SELECT '" & Me.KocanNo & "' AS E1, '" & CStr(Sw) & "' AS E2, " & Replace(Tut, ",", ".") & " As E3"
Next Sw
End Sub


  CEKKOCAN.rar (Boyut: 24,95 KB / İndirilme: 69)

Kolay gelsin.....