Update Komutunda Hata

1 2 3 4
27/02/2020, 18:45

berduş

Me.Resim & "','" & Me.Durum_CBO & "')  WHERE Id = " & me.[ID_TXT] & ";" 
27/02/2020, 18:49

berduş

Neden 2 defa)
27/02/2020, 18:52

Oğuz Türkyılmaz

(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.
27/02/2020, 18:55

berduş

Resimde tek kod vardı bana ve ozan beye farklı kodlar yollayarak is bölümü mu yaptiniz)
27/02/2020, 19:08

Oğuz Türkyılmaz

(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 . 


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, 19:17

Oğuz Türkyılmaz

(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.
1 2 3 4