Ö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 Sub
Bütün bağlantıları Adı, Soyadı şeklinde yapmışsınız, bu doğru değil, Kimlik ile yapmalısınız.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
#1
Veritabanı1.rar
(Dosya Boyutu: 140,65 KB | İndirme Sayısı: 156)
allah razı olsun
