Skip to main content

AccessTr.neT


Update Komutunda Hata

Oğuz Türkyılmaz
Oğuz Türkyılmaz
21
1192

Update Komutunda Hata

Çözüldü #1
Merhaba Formda duzenle butonuna tanimladigim UPDATE komutunda hata aliyorum. Neyi yanlış yazdıgım konusunda bılgılendırmenızı rıca ederım.
[Resim: do.php?img=9753]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
durum = yazmışsınız, values olmalıydı
Cevapla
#3
en sondaki form kısmı da yanlış, forograf yerine kodu ekleseydiniz en azından kopyala/yapıştırla düzeltirdik
Cevapla
#4
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
(27/02/2020 16:18)berduş Adlı Kullanıcıdan Alıntı: en sondaki form kısmı da yanlış, forograf yerine kodu ekleseydiniz en azından kopyala/yapıştırla düzeltirdik
Visual Basic Code
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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 27/02/2020, 18:35, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#6
(27/02/2020 16:51)ozanakkaya Adlı Kullanıcıdan Alıntı: 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.
Visual Basic Code
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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 27/02/2020, 18:47, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da