Update Komutunda Hata

1 2 3 4
27/02/2020, 16:12

Oğuz Türkyılmaz

Merhaba Formda duzenle butonuna tanimladigim UPDATE komutunda hata aliyorum. Neyi yanlış yazdıgım konusunda bılgılendırmenızı rıca ederım.

27/02/2020, 16:15

berduş

durum = yazmışsınız, values olmalıydı
27/02/2020, 16:18

berduş

en sondaki form kısmı da yanlış, forograf yerine kodu ekleseydiniz en azından kopyala/yapıştırla düzeltirdik
27/02/2020, 16:51

ozanakkaya

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

Oğuz Türkyılmaz

(27/02/2020, 16:18)berduş yazdı: en sondaki form kısmı da yanlış, forograf yerine kodu ekleseydiniz en azından kopyala/yapıştırla düzeltirdik
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 = " & [Forms]![F_Uye]![ID_TXT];"

DoCmd.SetWarnings True

End Sub
27/02/2020, 18:41

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