AccessTr.neT

elinize sağlık ozan hocam tam istediğim gibi olmuş teşekkürler

Dim RSKayit As Recordset

Set RSKayit = CurrentDb.OpenRecordset("tbl_adresler", RecordsetTypeEnum.dbOpenDynaset)

With RSKayit

    .AddNew

    .Fields("Cari_Kod") = Me.mus_id

    .Fields("Adres_Tipi") = Me.mtn_adrestipi

    .Fields("Il") = "Denizli"

    .Update

End With



Set RSKayit = Nothing

Düzeltme yapmanız gereken yer, üstteki kodlar. Tablodaki alanlar eklenecek.

.