Private Sub Komut8_Click()



Dim rs As New ADODB.Recordset

'If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kayıt Ediliyor") = vbYes Then

rs.Open "tbl_ihale", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew



rs!giden_evrak_sayisi = Me.txtgidenevrak

rs!gelen_evrak_sayisi = Me.txtgelenevrak

rs!teklif_tarihi = Me.txttektar

rs!ihale_onay_tarihi = Me.txtihaleonay

rs!fatura_tarihi = Me.txtfattar

rs!muayene_kablu_tarihi = Me.txtadsoyad

rs!odeme_turu = Me.txtodeme

rs!kullanabilir_odenek_miktari = Me.txtodenek

rs!isin_niteligi = Me.txtnitelik

rs!isin_konusu = Me.txtkonu





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. Bilgileriniz Kaydedilmedi!", 64, "Kayıt İşlemi"

'End If

777

'Me.Liste0.Requery

End Sub