Kod:
Private Sub btn_Kaydet_Click()
If IsNull(Me.TextBox_PoliceNo) Or Me.TextBox_PoliceNo = "" Then
MsgBox "Lütfen Poliçe Numarasını Yazınız!", , "Kayıt İşlemi"
Me.TextBox_PoliceNo.SetFocus
Exit Sub
End If
Dim PoliceNoKontrol As Long
PoliceNoKontrol = Nz(DCount("ID", "Police", "POLICE_NO='" & Me.TextBox_PoliceNo & "'"))
If PoliceNoKontrol <> 0 Then
Cancel = False
MsgBox "Girmekte Oldugunuz Poliçe No Sistemde Kayıtlıdır.", 48, "Poliçe No Kontrol İşlemi"
Exit Sub
End If
Dim rs As New ADODB.Recordset
If MsgBox("Veriler Kaydedilecek .?", 36, "Kayıt Ediliyor") = vbYes Then
rs.Open "Police", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
'rs!ID = Me.TextBox_ID
rs!ISLEM_TARIHI = Me.TextBox_IslemTarihi
rs!POLICE_NO = Me.TextBox_PoliceNo
rs!POLICE_TIPI = Me.ComboBox_PoliceTipi
rs!PLAKA_NO = Me.ComboBox_PlakaNo
rs!ARAC_TIPI = Me.ComboBox_AracTipi
rs!ACENTE = Me.ComboBox_Acente
rs!TEMINAT_TIPI = Me.ComboBox_TeminatTipi
rs!TEMINAT_TUTARI = Me.TextBox_TeminatTutari
rs!MUAYENE_BITIS = Me.TextBox_MuayeneBitis
rs!POLICE_BASLANGIC = Me.TextBox_PoliceBaslangic
rs!POLICE_BITIS = Me.TextBox_PoliceBitis
rs!POLICE_TUTARI = Me.TextBox_PoliceTutari
rs!DOVIZ_CINSI = Me.ComboBox_DovizCinsi
rs!ILK_TAKSIT_TARIHI = Me.TextBox_IlkTaksitTarihi
rs!TAKSIT_SAYISI = Me.ComboBox_TaksitSayisi
rs!TAKSIT_TUTARI = Me.TextBox_TaksitTutari
rs!ODEME_DURUMU = Me.ComboBox_OdemeDurumu
rs!ODEME_TARIHI = Me.TextBox_OdemeTarihi
rs!ODEME_TIPI = Me.ComboBox_OdemeTipi
rs!BANKA_BILGISI = Me.ComboBox_Banka
rs!KART_BILGISI = Me.ComboBox_KartBilgisi
rs!POLICE_DURUMU = Me.ComboBox_PoliceDurumu
rs!ACIKLAMA = Me.TextBox_Aciklama
rs!TAKSIT_TARIH_1 = Me.TextBox_T1
rs!TAKSİT_TUTAR_1 = Me.TextBox_TT1
rs!TAKSIT_TARIH_2 = Me.TextBox_T2
rs!TAKSIT_TUTAR_2 = Me.TextBox_TT2
rs!TAKSIT_TARIH_3 = Me.TextBox_T3
rs!TAKSIT_TUTAR_3 = Me.TextBox_TT3
rs!TAKSIT_TARIH_4 = Me.TextBox_T4
rs!TAKSIT_TUTAR_4 = Me.TextBox_TT4
rs!TAKSIT_TARIH_5 = Me.TextBox_T5
rs!TAKSIT_TUTAR_5 = Me.TextBox_TT5
rs!TAKSIT_TARIH_6 = Me.TextBox_T6
rs!TAKSIT_TUTAR_6 = Me.TextBox_TT6
rs!TAKSIT_TARIH_7 = Me.TextBox_T7
rs!TAKSIT_TUTAR_7 = Me.TextBox_TT7
rs!TAKSIT_TARIH_8 = Me.TextBox_T8
rs!TAKSIT_TUTAR_8 = Me.TextBox_TT8
rs!TAKSIT_TARIH_9 = Me.TextBox_T9
rs!TAKSIT_TUTAR_9 = Me.TextBox_TT9
rs!TAKSIT_TARIH_10 = Me.TextBox_T10
rs!TAKSIT_TUTAR_10 = Me.TextBox_TT10
rs!TAKSIT_TARIH_11 = Me.TextBox_T11
rs!TAKSIT_TUTAR_11 = Me.TextBox_TT11
rs!TAKSIT_TARIH_12 = Me.TextBox_T12
rs!TAKSIT_TUTAR_12 = Me.TextBox_TT12
Me.TextBox_ID = rs("id")
rs.Update
rs.Close
Set rs = Nothing
MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"
GoTo 777
Else
MsgBox "Kayıt İşleminden Vazgeçtiniz. Veriler Kaydedilmedi!", 64, "Kayıt İşlemi"
End If
777
'Me.PoliceListesi.Requery
End Sub