AccessTr.neT

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 &  "', .....

(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

Sn.@berduş Resimdeki hatayi veriyor.

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

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

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