AccessTr.neT

yalnız bu kod alanlar bomboş olsa bile kaydeder

(28/02/2020, 00:37)berduş yazdı: [ -> ]yalnız bu kod alanlar bomboş olsa bile kaydeder

16 no lu mesajinizdaki yapiya istinaden benimde son mesajimda hazirlamaya calistigim kod yapisindan  farkli bir yapiya burunmus tarih alanlari icin 2 degisken tanimladiginizi anladim bir ust satiri cozemedim tamamen bos olma gibi bir durum yasanmaz herhalde yapilcak sey eskiden girilmis bilgiler varsa degismesi gereken bu formda uye ekrana getirilecek ornek olarak tasinmis ve adresi degismis olsun adres alanindaki bilgi yenisi ile degistirilip kaydedilecek normalde bu kadar.

ben sadece saptadığım 2 sorunu düzeltmeye çalıştım, gönderdiğiniz dosyada tarih alanları boştu (tabloda olmasına rağmen forma gelmiyordu), resım alanı eklenmemesine rağmen değer değer alanı eklendiğinden hata veriyordu isterseniz üstteki 2 tanımlayıcıyı silip tarih alanlarını yazabilirsiniz.

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 & "',Resim = '" & Me.Resim & "', Durum = '" & Me.Durum_CBO & "' WHERE ID = " & Me.[ID_TXT] & ";"



DoCmd.SetWarnings True



End Sub

Sn@berduş tarih alanlarında sorun yok tabloda varsa forma geliyor. Dikkatinizi cekmemiştir  ama o 2 tarih, üye no ,tc no ve ad soyad bilgisi olmadan formu kaydedemiyorsunuz o 5 alan doldurulması zorunlu alanlar 1 i bile boş olsa kayda izin vermiyor. Dolayısıyla düzenlenecek formda o 5 alanın boş olma lüksü zaten yok. Uyarınız üzerine Resim alanınını da ekleyince el emeği göznuru kodum gayet güzel çalışıyor, yedirmem kimselere  Kafamdaki tek soru işareti kullanıcı düzenleme yaparken o alanlardan birini  silerse kayda izin verecekmi onu kontrol edeceğim. Çok teşekkür ederim. 

If IsNull(Me.DogumTarihi_TXT) Or Me.DogumTarihi_TXT = "" Then

   MsgBox "DİKKAT" & vbCrLf & "Lütfen doğum tarihini giriniz!. " & vbCrLf & "Kayit işlemi için bu bilginin girilmesi zorunludur", vbCritical

   Me.DogumTarihi_TXT.SetFocus

   Exit Sub

End If



If IsNull(Me.UyeKabulTarih_TXT) Or Me.UyeKabulTarih_TXT = "" Then

   MsgBox "DİKKAT" & vbCrLf & "Lütfen üye kabul karar tarihini Giriniz!. " & vbCrLf & "Kayit işlemi için bu bilginin girilmesi zorunludur", vbCritical



   Me.UyeKabulTarih_TXT.SetFocus

   Exit Sub

End If



Else