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
AED ILISKISIZ.rar
(Dosya Boyutu: 83,55 KB | İndirme Sayısı: 3)