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.