AccessTr.neT - Update Komutunda Hata

Sayfalar: 1 2 3 4

Me.Resim & "','" & Me.Durum_CBO & "')  WHERE Id = " & me.[ID_TXT] & ";"

Neden 2 defa)

(27/02/2020, 18:41)Oğuz Türkyılmaz yazdı: [ -> ]

(27/02/2020, 16:51)ozanakkaya yazdı: [ -> ]Benim gördüğüm kadarıyla " & _ ile satır bölünmüş, ancak alt satır çift tırnak ile başlamamış, kodun kırmızı olma sebebi de bu.

If MsgBox("Girdiginiz veriler kaydedilecektir, Onayliyormusunuz ", vbExclamation + vbYesNo, "Dikkat") = vbNo Then Exit Sub

CurrentDb.Execute " insert into T_Uye " & _

"( UyeNo, AdSoyad,TcNo,Tabiyeti, DogumTarihi, DogumYeri, AnaAd, BabaAd, Cinsiyeti, OgrenimDurumu, Meslegi, SosyalGuvence, CepNo_1, " & _

"CepNo_2, Irtibat, Ilce, Sehir, UyeKabulTarih, UyeKabulKararNo, UyeIptalTarih, UyeIptalKararNo, UyelikIptalNedeni, E_Mail, Adres, " & _

"Aciklama, KanGrubu, EngelNedeni, EngelYuzdesi, IlgilendigiSpor, KanadyenBaston, Yurutec, Protez, Ortez, AkuluAraba, ManuelAraba, " & _

"Resim, Durum) values " & _

"(" & Me.UyeNo_TXT & ", '" & Me.AdSoyad_TXT & "', '" & Me.TcNo_TXT & "', '" & Me.Tabiyeti_TXT & "'," & CLng(Me.DogumTarihi_TXT) & ", '" & _

 Me.DogumYeri_TXT & "','" & Me.AnaAd_TXT & "','" & Me.BabaAd_TXT & "','" & Me.Cinsiyeti_CBO & "','" & Me.OgrenimDurumu_CBO & "','" & _

 Me.Meslegi_TXT & "','" & Me.SosyalGuvence_CBO & "','" & Me.CepNo1_TXT & "','" & Me.CepNo2_TXT & "','" & Me.Irtibat_TXT & "','" & _

 Me.Ilce_TXT & "','" & Me.Sehir_TXT & "'," & CLng(Me.UyeKabulTarih_TXT) & ",'" & Me.UyeKabulKararNo_TXT & "','" & Me.UyeIptalTarih_TXT & _

 "','" & Me.UyeIptalKararNo_TXT & "','" & Me.UyelikIptalNedeni_TXT & "','" & Me.EMail_TXT & "','" & Me.Adres_TXT & "','" & Me.Aciklama_TXT & "','" & _

 Me.KanGrubu_CBO & "','" & Me.EngelNedeni_TXT & "','" & Me.EngelYuzdesi_TXT & "','" & Me.IlgilendigiSpor_TXT & "','" & Me.KanadyenBaston_OKS & "','" & _

 Me.Yurutec_OKS & "','" & Me.Protez_OKS & "','" & Me.Ortez_OKS & "','" & Me.AkuluAraba_OKS & "','" & Me.ManuelAraba_OKS & "','" & _

 Me.Resim & "','" & Me.Durum_CBO & "')"

 

End If

(27/02/2020, 18:49)berduş yazdı: [ -> ]Neden 2 defa)

2 defa olan nedir sn.@berduş sizin yorumunza eklediğim kod update ozan beyin yorumuna eklediğim ınsert ınto bunumu kastettiniz anlayamadım.

Resimde tek kod vardı bana ve ozan beye farklı kodlar yollayarak is bölümü mu yaptiniz)

(27/02/2020, 18:55)berduş yazdı: [ -> ]Resimde tek kod vardı bana ve ozan beye farklı kodlar yollayarak is bölümü mu yaptiniz)

Ozan beyin belirttiği hususun ınsert ınto kodunda yapılmadığını izah etmek için aralarında ne fark var diye ekledim .
[Resim: do.php?img=9756]

Private Sub Duzenle_BTN_Click()





DoCmd.SetWarnings False



DoCmd.RunSQL "UPDATE T_Uye SET " & _

"UyeNo, AdSoyad,TcNo,Tabiyeti, DogumTarihi, DogumYeri, AnaAd, BabaAd, Cinsiyeti, OgrenimDurumu, Meslegi,  " & _

"SosyalGuvence, CepNo_1,CepNo_2, Irtibat, Ilce, Sehir, UyeKabulTarih, UyeKabulKararNo, UyeIptalTarih, UyeIptalKararNo, UyelikIptalNedeni,  " & _

"E_Mail, Adres, Aciklama, KanGrubu, EngelNedeni, EngelYuzdesi, IlgilendigiSpor, KanadyenBaston, Yurutec, Protez, Ortez, AkuluAraba, ManuelAraba, " & _

"Resim, Durum ) Values " & _

"(" & Me.UyeNo_TXT & ", '" & Me.AdSoyad_TXT & "', '" & Me.TcNo_TXT & "', '" & Me.Tabiyeti_TXT & "'," & CLng(Me.DogumTarihi_TXT) & ", '" & _

Me.DogumYeri_TXT & "','" & Me.AnaAd_TXT & "','" & Me.BabaAd_TXT & "','" & Me.Cinsiyeti_CBO & "','" & Me.OgrenimDurumu_CBO & "','" & _

Me.Meslegi_TXT & "','" & Me.SosyalGuvence_CBO & "','" & Me.CepNo1_TXT & "','" & Me.CepNo2_TXT & "','" & Me.Irtibat_TXT & "','" & _

Me.Ilce_TXT & "','" & Me.Sehir_TXT & "'," & CLng(Me.UyeKabulTarih_TXT) & ",'" & Me.UyeKabulKararNo_TXT & "','" & Me.UyeIptalTarih_TXT & _

",'" & Me.UyeIptalKararNo_TXT & "','" & Me.UyelikIptalNedeni_TXT & "','" & Me.EMail_TXT & "','" & Me.Adres_TXT & "','" & Me.Aciklama_TXT & "','" & _

Me.KanGrubu_CBO & "','" & Me.EngelNedeni_TXT & "','" & Me.EngelYuzdesi_TXT & "','" & Me.IlgilendigiSpor_TXT & "','" & Me.KanadyenBaston_OKS & "','" & _

Me.Yurutec_OKS & "','" & Me.Protez_OKS & "','" & Me.Ortez_OKS & "','" & Me.AkuluAraba_OKS & "','" & Me.ManuelAraba_OKS & "','" & _

Me.Resim & "','" & Me.Durum_CBO & "')  WHERE Id = " & Me.[ID_TXT] & ";"



DoCmd.SetWarnings True



End Sub

Boyle bır hata verdı sn.@berduş ama kod satırı normalde yazım da hata gostermıyor. Duzenle butonuna bastıgımda hata ya düşüyor.

(27/02/2020, 16:51)ozanakkaya yazdı: [ -> ]Benim gördüğüm kadarıyla " & _ ile satır bölünmüş, ancak alt satır çift tırnak ile başlamamış, kodun kırmızı olma sebebi de bu.

Ozan bey 5.mesajdakı kod aynı formdakı ınsert ınto kodu burada sızın belirttiğiniz ayraçlardan sonra " işareti kullanılmamıştı arada ne fark var anlayamadım.

Sayfalar: 1 2 3 4