DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
For i = 1 To z Step 1For i = 0 To z-1 Step 1
Private Sub Komut17_Click()
Dim işlemgünü As Variant
Dim aciklama As Variant
Dim ödeme As Variant
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim fazla As Variant
Dim rs As New ADODB.Recordset
msg = MsgBox([işlemtarihi] & " Tarihli işleme ait " & [toplam] & " YTL tutar için taksitlendirmeyi kabul ediyormusunuz", vbQuestion + vbYesNo, "İŞLEM İÇİN ONAY İSTENİYOR")
If (msg = vbYes) Then
rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
[COLOR=red]If Me.pesin <> 0 Then
rs.AddNew
rs("no") = Me.no
rs("fiat") = Me.pesin
rs("tarih") = Me.işlemtarihi
rs("aciklama") = "Peşin Ödendi!"
rs("açıklama") = Me.açıklama
rs("şekil") = Me.ödeme_şekli
rs("işlemtar") = Me.işlemtarihi
rs("ödedi") = -1
rs("ödemetarihi") = Me.işlemtarihi
rs("ödememiktarı") = Me.pesin
rs.Update[/COLOR]
End If
z = taksay.Value
For i = 1 To z Step 1
işlemgünü = Me.işlemtarihi
aciklama = Me.açıklama
ödeme = Me.ödeme_şekli
tar1 = bastar.Value
par = toplam.Value \ taksay.Value
fazla = toplam.Value Mod taksay.Value
If i = z Then
par = par + fazla
End If
n = no.Value
tar = DateAdd("m", i, tar1)
rs.AddNew
rs("no") = n
rs("fiat") = par
rs("tarih") = tar
rs("açıklama") = aciklama
rs("şekil") = ödeme
rs("işlemtar") = işlemgünü
rs.Update
Next i
Set rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Me.tarih_altformu.Requery
'TAKSİTLERİ CİRO İÇİ BİR TABLOYA EKLESİN (PEŞİN OLURSA DA BİR ZAHMET)
'DoCmd.SetWarnings False
'DoCmd.OpenQuery ("TAKSİTLENEN MÜŞTERİ EKLE")
Else
MsgBox "işlem iptal edildi", vbInformation, "İPTAL"
Cancel = True
'DoCmd.GoToControl ("formyazdır")
End If
End Sub