Sayın Işin Bağcilar;

Sayın atoz112'nin kodlarını sizin çalışmanıza uyarlamaya çalıştım.

Aşağıdaki kodu ekle butonunun tıklama olayına yazıp deneyebilir misiniz?

DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Örnek_Tablo ([Kod],[Rakip1],[Rakip2],[İskonto],[Net TL],[Tarih]) VALUES ('" & Me.Combo2 & "','" & Me.Text4 & "','" & Me.Text6 & "','" & Me.Text9 & "','" & Me.Text11 & "','" & Me.Text14 & "')"

DoCmd.SetWarnings True

sayın kadirdursun,
sayın Işin Bağcilar,

Bir hata ile karşılaşılmaması ve böyle bir durumun engellenebilmesini sağlamak için,önemli bir hususu belirtip buna dikkat çekmekte fayda var kanısındayım.

Konunun 7.mesajında yazılı olan kodlama içerisinde yer alan

DoCmd.RunSQL "INSERT INTO Örnek_Tablo ([Kod],[Rakip1],[Rakip2],[İskonto],[Net TL],[Tarih]) VALUES ('" & Me.Combo2 & "','" & Me.Text4 & "','" & Me.Text6 & "','" & Me.Text9 & "','" & Me.Text11 & "','" & Me.Text14 & "')"

[Kod],[Rakip1],[Rakip2],[İskonto],[Net TL],[Tarih]

bu alanlar içerisinde sayısal veri türü içeren bir değere karşılık gelecek olan ilgili metin kutuları söz konusu ise,bu ilgili metin kutuları için kodlama içerisinde tek tırnak (‘) işaretinin kullanılmaması gerekmektedir.tek tırnak işareti,sadece metin (string) değeri işlemleri için geçerlidir.bilgilerinize.

İyi çalışmalar,
Saygılar.

Sayın atoz112;
Bunu yeni öğrendim. Metin olursa tırnak olacak, sayı olursa tırnak olmayacak.
Teşekkürler...

Aynı işlem ado ile de yapılabilir.

Dim rs As New ADODB.Recordset

    rs.Open "tbl_ornek", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    rs.AddNew

    rs("Kod") = Me.Combo2.Value

    rs("Rakip1") = Me.Text4.Value

    rs("Rakip2") = Me.Text6.Value

    rs("İskonto") = Me.Text9.Value

    rs("Net TL") = Me.Text11.Value

    rs("Tarih") = Me.Text14.Value

    

    rs.Update

Set rs = Nothing

İyi Günler;

Yardımlarınız için çok teşekkürler.

Sizin gösterdiğiniz kodu kendi Access formumda uyguladım ama hata veriyor. Nerde yanlış yapmış olabilirim acaba?

Hata kodu:
Compile error
User-defined type not defined


Girmiş olduğum kod:

Private Sub Command118_Click()

Dim rs As New ADODB.Recordset
rs.Open "Rakip_Fiyatları", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("No") = Me.No.Value
rs("Müşteri") = Me.Müşteri.Value
rs("Brüt Teklif") = Me.Brüt.Value
rs("Net Teklif") = Me.Net.Value
rs("Rakip") = Me.AB1.Value
rs("Rakip Brüt Fiyat TL") = Me.AB2.Value
rs("Rakip İskonto") = Me.AB3.Value
rs("Rakip Net Fiyat TL") = Me.AB4.Value
rs("Rakip Net Euro") = Me.AB5.Value

rs.Update
Set rs = Nothing

End Sub

sayın Işin Bağcilar,

Alıntı:...Compile error
User-defined type not defined...

belirttiğiniz bu hatayı gidermeniz için;
uygulamanızın kodlama sayfasına geçerek (Alt +11 tuşu),
TOOLS - REFERENCES menü seçeneğinde Microsoft DAO 3.6 Object Library referans satırını bulup işaretleyiniz.TAMAM ile onayladıktan sonra,uygulamanızı tekrar çalıştırınız.bilgilerinize.

iyi çalışmalar,
saygılar.