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
