+- 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ığı: Taksitli Satış (/konu-taksitli-satis.html)
Taksitli Satış - dayko - 23/03/2010
merhaba arkjadaşlar biliyorum aranızda yeniyim buradan bir şeyler öğrenmeye çalıştım kendimce bişeyler yaptım fakat otomatik taksitlendirme işlemini yapamadım örneği göndersem bir arkadaşdan yardımcı olmasını rica etsem çok şey istemiş olmam inşallah
Cvp: Taksitli Satış - Seruz - 23/03/2010
Öncelikle kod sayfasında iken, Araçlar-Referanslar menüsünden,
"Microsoft Activex Data Object 2.? Library" referansını ekleyin.
(2.? olanlardan sizde görünen en büyüğünü işaretleyin)
Komut22 adlı butonun kodlarını aşağıdaki şekilde değiştirin.
Kod:
Private Sub Komut22_Click()
tar1 = Başlangıç_Tarihi.Value
par = Taksit_Miktarı.Value / Taksit_Sayısı.Value
Dim Rs As New ADODB.Recordset
Rs.Open "Taksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("Adı") = Me.Adı.Value And Rs("Soyadı") = Me.Soyadı.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
asd = 0
z = Taksit_Sayısı.Value
For i = 1 To z Step 1
asd = asd + Round(par, 0)
tar = DateAdd("m", i, tar1)
Rs.AddNew
Rs("Adı") = Me.Adı.Value
Rs("Soyadı") = Me.Soyadı.Value
Rs("Miktarı") = Round(par, 0)
Rs("Taksit Tarihi") = tar
Rs.Update
Next i
Rs.MoveLast
Rs("Miktarı") = Rs("Miktarı") + (Taksit_Miktarı.Value - asd)
Rs.Update
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Komut22_Click:
Exit Sub
Err_Komut17_Click:
MsgBox "taksit alanlarından biri boş bu alanları boş geçemezsinizi"
Resume Exit_Komut22_Click
End SubCvp: Taksitli Satış - dayko - 23/03/2010
üstadım çok saolasın 2 gündür kafayı yedirtmişti bu bana
allah razı olsun