Seçenek Kutusu Onaylıysa
#1
Merhaba. Formumun sonraki kayıt düğmesi tıklandığı olayına , yine aynı formumda bulunan "Seçenek405" seçili olduğu takdirde , yaşı sıfır olan veriler gelmesin/gösterilmesin şartını ;  If Me.Seçenek405 = False Then Me.[YASI] > "1" vba kodu ile 1 sayısından büyük olan veriler gelsin istiyorum ancak > "1"  hata mesajı alıyorum. Nerede hata yapıyorum. [YAS] alanım kayıt kaynağı formumun bağlı olduğu tablomda. İlginiz için şimdiden çok teşekkür ediyorum.



  Alıntı
Bu mesajı beğenenler:
#2
çalışmanızın ilgili kısmını eklemeniz çözümü kolaylaştırır



  Alıntı
Bu mesajı beğenenler:
#3
(19-06-2021, 13:47)Satir demiş ki: "Seçenek405" seçili olduğu takdirde , yaşı sıfır olan veriler gelmesin/gösterilmesin şartını ;  If Me.Seçenek405 = False Then Me.[YASI] > "1" vba kodu ile 1 sayısından büyük olan veriler gelsin istiyorum

Me.[YASI] alanı sayı türünde veya veri girilmemiş olabilir. Me.[YASI] >"1" yerine Nz(Me.[YASI],0) >0 yazmalısınız, Sn halil hocamızın önerisi ile daha fazla yardım bulabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#4
Örneğimi ekliyorum..


Eklenti Dosyaları
.rar   Secenek_405.rar (Boyut: 23,64 KB / İndirilme: 95)



  Alıntı
Bu mesajı beğenenler:
#5
kodları aşağıdaki gibi düzenleyip dener misiniz
buton kodu
Visual Basic
  1. Private Sub Komut11_Click()
  2. On Error GoTo Err_Komut11_Click
  3. DoCmd.GoToRecord , , acNext
  4. Exit_Komut11_Click:
  5. Exit Sub
  6. Err_Komut11_Click:
  7. MsgBox ("Son Kayıttasınız.")
  8. Resume Exit_Komut11_Click
  9. End Sub


seçenek tıklama olayına eklenecek kod
Visual Basic
  1. Private Sub Seçenek405_Click()
  2. Filtre = ""
  3. If Me.Seçenek405 = True Then Filtre = "Nz([yasi],0)>0"
  4. Me.Filter = Filtre
  5. Me.FilterOn = True
  6. End Sub





  Alıntı
Bu mesajı beğenenler:
#6
burada seçim değişince ilk kayıttan başlıyor ilerlemeye



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-2 [FORM] Liste kutusu biçimlendirme... rafetgulmez 7 4.288 28-11-2025, 13:18
Son Mesaj: osman06
  [VBA] Birden çok Seçenek Seçili Alandaki Verileri Kopyalama evidi 9 854 26-02-2025, 17:36
Son Mesaj: evidi
  [FORM] metin kutusu kaydırma onkay 5 2.475 27-12-2023, 13:24
Son Mesaj: dsezgin
  Metin Kutusu Adı Değiştirme Hk. snapper 9 1.011 08-11-2023, 01:12
Son Mesaj: dsezgin
  [TABLO] çoklu Birleşik Giriş Kutusu RASİMPEH 2 534 19-09-2023, 04:53
Son Mesaj: RASİMPEH
  Formda Onay Kutusu Ile Veri Aktarma anno 7 897 24-11-2022, 23:02
Son Mesaj: onur_can
  [FORM] Birleşik Giriş Kutusu EminA 2 547 13-10-2022, 10:32
Son Mesaj: EminA
  Seçtikçe Eksilen Birleşik Giriş Kutusu obblomovv 8 897 09-08-2022, 13:14
Son Mesaj: obblomovv

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):