AccessTr.neT

Tam Versiyon: Update Komutunda Hata
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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 Img-grin gayet güzel çalışıyor, yedirmem kimselere Img-grin 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
Sayfalar: 1 2 3 4