Koddaki rs(11)=Me.mat satırında tür uyumsuzluğu şeklinde hata verdi,tablolarda tür olarak her ikisi tabloda da METİN olarak ayarlı.
teşekkürler
Kod:
Private Sub Komut86_Click() 'Butonun tıklandıgı olay yordamı
Dim rs As New ADODB.Recordset
rs.Open "tbl_begendirmeler ", CurrentProject.Connection, 1, 3
rs.AddNew
rs(1) = Me.id 'kaydedilecek alan adı sıra no su
rs(2) = Me.begenid
rs(3) = Me.baslikid
rs(4) = Me.alanlar
rs(5) = Me.personel
rs(6) = Me.ANACLAR
rs(7) = Me.personel2
rs(8) = Me.baslama
rs(9) = Me.basla
rs(10) = Me.yon
rs(11) = Me.mat
rs(12) = Me.ort
rs.Update
rs.Close
Set rs = Nothing
End Sub