Insert Into Kodu - Baskı Önizleme

Insert Into Kodu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Insert Into Kodu (/konu-insert-into-kodu.html)

Sayfalar: 1 2

Insert Into Kodu - yahzee_61 - 03/10/2020

merhaba arkadaşlar ekte örneğimde insert into yu bir türlü düzenleyemedim sürekli söz dizimi hatası veriyor. bakma şansınız var mı denemediğim şekil kalmadı.

RE: Insert Into Kodu - Kur@l - 04/10/2020

INSERT yanına into yazmamışsınız. Eklediğinizde komut çalışıyor.

RE: Insert Into Kodu - yahzee_61 - 04/10/2020

Teşekkür ederim. valla her şeklini denedim var bunda bi hikmet.

RE: Insert Into Kodu - yahzee_61 - 04/10/2020

sayın Kur@l bu sefer ilce kısmında uyumsuzluk veriyor onu nasıl düzenliyeceğim.

çözüm öneriniz yok mu?

RE: Insert Into Kodu - ozanakkaya - 05/10/2020

Ö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

RE: Insert Into Kodu - yahzee_61 - 05/10/2020

(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 & "')"