+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Metin Kutusu İçerik Kontrolü (/konu-formda-metin-kutusu-icerik-kontrolu.html)
Formda Metin Kutusu İçerik Kontrolü - hbal09 - 10/07/2019
Merhabalar,
Bir formda yeralan altformda imlecin yeraldığı satırdaki değerin belli bir karakter kümesini içerip içermediğini kontrol etmek istiyorum. Ekteki örnekte olduğu gibi imleç altformda bir satırdayken "Yenile" butonuna bastığımda ok işaretinin altındaki metin kutusunda bu harf dizinini içerir veya içermez diye yazdırmak istiyorum. bu olayı ekstra sorgular ekleyerek yapılabilir ama programa ekstra başka sorgu eklemeden kod bazında nasıl yapabilirim.
Örneğin, altformdaki değerler "DARA, PARA, KARAM, GRAM, ARMA, TARAK, KIRAÇ". bu değer satırlarından imlecimi "DARA, PARA, KARAM, TARAK" içeren satırlara bırakıp "yenile dediğimde Metin7 Metin kutusunda "ARA İÇERİYOR" yazsın, diğerleri seçiliyken "ARA İÇERMİYOR" yazsın istiyorum.
Ekstra sorgu eklemeden nasıl yapabilirim?
Saygılarımla.
Cvp: Formda Metin Kutusu İçerik Kontrolü - berduş - 10/07/2019
ana forma
Option Compare DatabasePublic txtDeger As Stringalt forma aşağıdaki kodu ekleyip
Private Sub DEGER_GotFocus()
Me.Parent.txtDeger = Me.DEGER
End Sub
Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")Cvp: Formda Metin Kutusu İçerik Kontrolü - berduş - 10/07/2019
yada doğrudan sadece alttaki kodu yazın yenile butonunun koduna
Dim txtDeger As String
txtDeger = Me.ALTFORM.Controls("deger")
Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")
Me.RefreshCvp: Formda Metin Kutusu İçerik Kontrolü - hbal09 - 10/07/2019
çok teşekkür ederim @"halily"
tam olarak istediğim oldu. aklınıza, fikrinize sağlık.
problemim çözülmüştür.
Cvp: Formda Metin Kutusu İçerik Kontrolü - berduş - 10/07/2019
ÖD )
iyi çalışmalar
kolay gelsin