Skip to main content

AccessTr.neT


Update Komutunda Hata

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

Update Komutunda Hata

#13
Oğuz bey dikkatimden kaçmış update sorgusu böyle olmuyor maalesef.
DoCmd.RunSQL " UPDATE T_Uye SET " & _ 
" UyeNo=" & Me.UyeNo_TXT & ", AdSoyad='" & Me.AdSoyad_TXT & "', .....
Cevapla
#14
(27/02/2020, 22:34)berduş yazdı: Oğuz bey dikkatimden kaçmış update sorgusu böyle olmuyor maalesef.
DoCmd.RunSQL " UPDATE T_Uye SET " & _ 
                              " UyeNo="  & Me.UyeNo_TXT & ", AdSoyad='"  & Me.AdSoyad_TXT &  "', .....
Sitede Sn Atoz'un Update konusundaki yazısında formun olay yordamına yazılacak dediği koda istinaden boyle yazmıştım. Nasıl yapmalıyım. Bu yukarda belirtiiğiniz dogru yolmu
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 27/02/2020, 23:07, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#15
Sn.@berduş Resimdeki hatayi veriyor.
[Resim: do.php?img=9757]
Private Sub Duzenle_BTN_Click()

DoCmd.SetWarnings False

DoCmd.RunSQL " UPDATE T_Uye SET " & _
" UyeNo=" & Me.UyeNo_TXT & ", AdSoyad ='" & Me.AdSoyad_TXT & "', TcNo ='" & Me.TcNo_TXT & "', Tabiyeti = '" & Me.Tabiyeti_TXT & "',DogumTarihi = " & _
" " & CLng(Me.DogumTarihi_TXT) & ", DogumYeri = '" & Me.DogumYeri_TXT & "', AnaAd = '" & Me.AnaAd_TXT & "', BabaAd = '" & Me.BabaAd_TXT & "', " & _
" Cinsiyeti = '" & Me.Cinsiyeti_CBO & "', OgrenimDurumu = '" & Me.OgrenimDurumu_CBO & "',Meslegi = '" & Me.Meslegi_TXT & "', SosyalGuvence = " & _
" '" & Me.SosyalGuvence_CBO & "', CepNo_1 = '" & Me.CepNo1_TXT & "', CepNo_2 = '" & Me.CepNo2_TXT & "', Irtibat = '" & Me.Irtibat_TXT & "',Ilce = " & _
" '" & Me.Ilce_TXT & "',Sehir = '" & Me.Sehir_TXT & "', UyeKabulTarih = " & CLng(Me.UyeKabulTarih_TXT) & ", UyeKabulKararNo = '" & Me.UyeKabulKararNo_TXT & "'," & _
" UyeIptalTarih = '" & Me.UyeIptalTarih_TXT & "',UyeIptalKararNo = '" & Me.UyeIptalKararNo_TXT & "',UyelikIptalNedeni = '" & Me.UyelikIptalNedeni_TXT & "', " & _
" E_Mail = '" & Me.EMail_TXT & "',Adres = '" & Me.Adres_TXT & "',Aciklama = '" & Me.Aciklama_TXT & "',KanGrubu = '" & Me.KanGrubu_CBO & "', " & _
" EngelNedeni = '" & Me.EngelNedeni_TXT & "', EngelYuzdesi = '" & Me.EngelYuzdesi_TXT & "', IlgilendigiSpor = '" & Me.IlgilendigiSpor_TXT & "'," & _
" KanadyenBaston = '" & Me.KanadyenBaston_OKS & "', Yurutec = '" & Me.Yurutec_OKS & "',Protez = '" & Me.Protez_OKS & "', Ortez = '" & Me.Ortez_OKS & "', " & _
" AkuluAraba = '" & Me.AkuluAraba_OKS & "',ManuelAraba = '" & Me.ManuelAraba_OKS & "', '" & Me.Resim & "', Durum = '" & Me.Durum_CBO & "' WHERE ID = " & Me.[ID_TXT] & ";"

DoCmd.SetWarnings True

End Sub
.rar AED ILISKISIZ.rar (Dosya Boyutu: 83,55 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 28/02/2020, 00:19, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#16
(27/02/2020, 23:05)Oğuz Türkyılmaz yazdı: Sn Atoz'un Update konusundaki yazısında
ilgili bağlantıyı paylaşır mısınız?
sitede arama yaparsanız update sorgusunun temel mantığını anlamanıza yarayacak örnekler bulabilirsiniz?
ama temel mantığı aşağıdaki gibidir
" update tabloAdi " & _
" Alan1=" & metin1Sayısal & "," & _
" alan2='" & metin2Metinsel & "'," & _
" alan3=" & Clng(Metin3Tarih) & "," & _
.
.
.
" where Kriter"
Cevapla
#17
https://accesstr.net/konu-guncelleme-sor...ght=update
.rar AED ILISKISIZ.rar (Dosya Boyutu: 83,55 KB | İndirme Sayısı: 2)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 28/02/2020, 00:20, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#18
2 yerde hata veriyor
1 - tarih alanları boşsa Clng(boşTarih) hata veriyor
2 - resim metin kutusunu sorgunuza eklemenize rağmen resim alanını eklememişsiniz
DoCmd.SetWarnings False
Dim SqlGnc As String
Dim DdgmTrh, DUyeKbl
If IsNull(Me.DogumTarihi_TXT) Then DdgmTrh = "Null" Else DdgmTrh = CLng(Me.DogumTarihi_TXT)
If IsNull(Me.UyeKabulTarih_TXT) Then DUyeKbl = "Null" Else DUyeKbl = CLng(Me.UyeKabulTarih_TXT)

SqlGnc = " UPDATE T_Uye SET " & _
" UyeNo=" & Me.UyeNo_TXT & ", AdSoyad ='" & Me.AdSoyad_TXT & _
"', TcNo ='" & Me.TcNo_TXT & "', Tabiyeti = '" & Me.Tabiyeti_TXT & _
"', DogumTarihi = " & DdgmTrh & ", DogumYeri = '" & Me.DogumYeri_TXT & _
"', AnaAd = '" & Me.AnaAd_TXT & "', BabaAd = '" & Me.BabaAd_TXT & "', Cinsiyeti = '" & Me.Cinsiyeti_CBO & _
"', OgrenimDurumu = '" & Me.OgrenimDurumu_CBO & "',Meslegi = '" & Me.Meslegi_TXT & _
"', SosyalGuvence = '" & Me.SosyalGuvence_CBO & "', CepNo_1 = '" & Me.CepNo1_TXT & _
"', CepNo_2 = '" & Me.CepNo2_TXT & "', Irtibat = '" & Me.Irtibat_TXT & _
"', Ilce = '" & Me.Ilce_TXT & "',Sehir = '" & Me.Sehir_TXT & "', UyeKabulTarih = " & DUyeKbl & _
", UyeKabulKararNo = '" & Me.UyeKabulKararNo_TXT & "', UyeIptalTarih = '" & Me.UyeIptalTarih_TXT & _
"', UyeIptalKararNo = '" & Me.UyeIptalKararNo_TXT & "',UyelikIptalNedeni = '" & Me.UyelikIptalNedeni_TXT & "', " & _
" E_Mail = '" & Me.EMail_TXT & "',Adres = '" & Me.Adres_TXT & "',Aciklama = '" & Me.Aciklama_TXT & _
"',KanGrubu = '" & Me.KanGrubu_CBO & "', " & " EngelNedeni = '" & Me.EngelNedeni_TXT & _
"', EngelYuzdesi = '" & Me.EngelYuzdesi_TXT & "', IlgilendigiSpor = '" & Me.IlgilendigiSpor_TXT & _
"', KanadyenBaston = '" & Me.KanadyenBaston_OKS & "', Yurutec = '" & Me.Yurutec_OKS & _
"',Protez = '" & Me.Protez_OKS & "', Ortez = '" & Me.Ortez_OKS & "', AkuluAraba = '" & Me.AkuluAraba_OKS & _
"',ManuelAraba = '" & Me.ManuelAraba_OKS & "', Resim='" & Me.Resim & "', Durum = '" & Me.Durum_CBO & "';"
CurrentDb.Execute SqlGnc
DoCmd.SetWarnings True
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task