Sn. Hocalarım, AnavVeriTabanıTablosu'ndan seçilen verileri, OgrenciFirmaTakipTablosu'na seçerek KAYDETMEK istiyorum.

1) YOL 
Private Sub Komut6_Click()
Dim rs As New ADODB.Recordset
    rs.Open "OgrenciFirmaTakipTablosu", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
    rs("Sıra No") = Me.Siranotxt0.Value
    rs("Adı Soyadı") = Me.AdiSoyaditxt1.Value
    rs("Sınıfı") = Me.Sinifitxt2.Value
    rs("Şubesi") = Me.Subesitxt3.Value
    rs("Dalı") = Me.Daltxt4.Value
    rs("Devam") = Me.Devamtxt5.Value
    rs("İş Yeri") = Me.isYeritxt6.Value
    rs("Giriş Tarihi") = Me.Tarihitxt7.Value
    rs("Dekont") = Me.Dekontxt8.Value
    rs("Ayı") = Me.AitAytxt9.Value
    rs("Tutar") = Me.Tutar10.Value
    
    MsgBox "Kayıt yapıldı"
    
    rs.Update
Set rs = Nothing
End Sub


2.YOL

1. CurrentDb.Execute "insert into Tablo1 (ADI,SOYADI,TC )" _
   
   
2. & " select  '" & Me.Metin0 & "' , '" & Me.Metin2 & "','" & Me.Metin4 & "'" ....
   Her iki yolu da denedim başaramadım. Hata ve eksiklerimi bir türlü fark edemiyorum...
   

OgrenciFirmaTakipTablosu alan adları farklı rs(..) yazılan yerler tabloda yok
Komut6 nesnesi yok
ise giris tarihi tablodaki alan turu ile uyuşmuyor.




formdaki ıse gırıs kutusu acılan kutudan metin kutusuna çevirip, biçiminizde kısa tarih yapmalısınız.

Bu tarz kayıtları hazırlarken ttek tek alanları eklersen hatanın nereden olduğunu görürsün. Kayıt oldu mesajını rs.update işleminden sonraya al. O zaman daha kayıt gerçekleşmiş olmuyor.