(05/10/2020, 11:00)ozanakkaya yazdı: Örnek uygulamanızdaki aktif kodda ilçe ile ilgili herhangi bir kod yok. Kodunuzun son halini yazın inceleyelim.

Bu tür kayıt ekleme işlemlerinde insert into yerine dao kodu kullanılabilir. Yazılan alanlar belirgin olduğu için kod eklemek daha kolay olur.

Dim RSKayit As Recordset

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

With RSKayit

    .AddNew

    !Banka_Adi = Me.Banka_Adi

    !Banka_Hesap_No = Me.Banka_Hesap_No

    !Banka_Iban = Me.Banka_Iban

    

    .Update

End With

diğer alanlar için de düzenleme yaptım. yeni halini eklemek için dosya ekle alanını bulamadım.
CurrentDb.Execute "INSERT into TblBanka" _
& " VALUES ('" & Me.BankaKodu & "','" & Me.BankaAdi & "','" & Me.BankaSubesi & "','" & Me.BankaHesapNo & "','" & Me.BankaIban & "','" & Me.BankaHesapCinsi & "','" & Me.BankaYetkili & "','" & Me.BankaYetkiliTelefon & "','" & Me.BankaTelefon & "','" & Me.BankaFax & "','" & Me.BankaMail & "','" & Me.BankaNotu & "','" & Me.Bankaİli & "','" & Me.Bankaİlce & "' ,'" & Me.Banka_Durum & "')"