AccessTr.neT

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

Resimlerinizi lütfen resim ekle butonuna tıklayarak resim.accesstr.net bağlantısına ekleyiniz.

Bahsi geçen hatanın sebebi ado referansının eklenmemiş olması. "Microsoft Activex Data Objects X.X Library" referansını eklemeniz gerekli. X.X, 2.8 olabilir.

Teşekkür ederim. Her çalışmada bunu yapmak gerekir mi?

Her yapının farklı referanslara ihtiyacı vardir, o yapıyı kullanirken o referans ön yuklemeli olarak (referanslardan ekleyerek) yada çalışma anında oluşturarak (createobject(ilgili nesne)) kullanilabilir

Teşekkür ederim. Konu çözüldü.