AccessTr.neT

Tam Versiyon: formdaki veriyi sabitleme ve koşula göre işlem
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba değerli değerli arkadaşlar

Bu güne kadar bir çok konuda bana yardımcı oldunuz bu konudada yardımcı olabileceğiniz düşüncesi ile uzun zamandan beri üzerinde çalıştığım fakat bir türlü çözemediğim bir sorunun var.

Bununla ilgili örneği ekte gönderiyorum.

Bir turnike sistemi var bunun üzerinden alınan bilgiler bir log dosyasına yazılıyor.
Ben ise buradaki bilgileri işleyip bir bilgi formu oluşturmaya çalışyorum.

Sorunum şöyle

Tüm Perosnel işlem adında bir formum var.
Bu form gecerli olduğu olayında kodlar çalışmaktadır. Ben ise form üzerinde onaylama işlemi ile bazı değerleri değiştiriyorum. Ancak formu kapatıp açtığımda benim yaptığım değişikliler kayboluyor ve formun açılış koduna göre yeniden işlem yapılıyor.

Ben de bu sorunu çözümlemek amacıyla formu açılış olayına;

1-
 If (Me.Form.LOG_ISLEM_Altform.Aciklama = " ") Then DoCmd.RunSQL "UPDATE LOG SET Onay=" & -1 & " WHERE ID=" & KID 

yazdım fakat bir türlü bunu kodu çalışmıyor.

Burada form açıldığında onaylama otomatik olarak onaylama=evet olsun ben sonra değişiklik sonucunda formu tekrar açtığımda değişmesin istiyorum.

2-Fark (Gerçek) değerleri hesaplarken şu kod ile de
If IsNull(GC_FARK) Then DoCmd.RunSQL "UPDATE LOG SET GC_FARK=" & FARK_a & " WHERE ID=" & KID 

koşullu olarak GC_FARK değeri boş ise değer yazılsın istiyorum onuda bir türlü yapamadım

Bu konudaki yardımlarınızı bekliyorum Şimdiden teşekkür ederim.
Örneklendirerek anlatırsanız en azından benim için iyi olur Img-grin Normal formu kullanamadığım gibi ne yapmak istediğinizide algılayamıyorum.
Form açıldığında onaylama box eğer açıklama alanı boş ise evet olsun istiyorum.

Değilse hiç bir işlem yapmasın istiyorum.


Ben ise bu check edilenlerden bazılarının check lerini kaldırmak istiyorum. Yaptığım bu değişiklilerden sonra ise formu kapatıp yeniden açtığımda ise onaylama check leri kaldırdıklarım yeniden check edilmiş hale dönüşüyor.

Yine aynı şekilde açıklama değeri boş ise Fark otmotik değeri ile FARK gerçek değeri eşitlensin istiyorum.

Yardımlarnız için teşekkürler
Ana Formda Form Geçerli Olduğunda olayındaki aşağıdaki kod probleme sebep oluyor. Başına tek tırnak koyup yorum satırı haline getirirseniz onay kutusunun çalıştığını göreceksiniz.

If (Me.Form.LOG_ISLEM_Altform.Aciklama = " ") Then DoCmd.RunSQL "UPDATE LOG SET Onay=" & -1 & " WHERE ID=" & KID

İş yoğun hava sıcak istediğinizi tam olarak algılayamıyorum.
Sayın alpeki99

Düzeltmiş olduğunuz son kodu yazabilirmisiniz.

Sorunum çözüldü arkadaşlar sağolun