AccessTr.neT

Tam Versiyon: Formda Metin Kutusu İçerik Kontrolü
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
ana forma
Option Compare Database
satırının altına
Public txtDeger As String
kodunu,
alt forma aşağıdaki kodu ekleyip
Private Sub DEGER_GotFocus()
Me.Parent.txtDeger = Me.DEGER
End Sub
yenile butonun koduna da "me.refresh" satırından önce
Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")
kodunu ekleyip dener misiniz?
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.Refresh
çok teşekkür ederim @"halily"
tam olarak istediğim oldu. aklınıza, fikrinize sağlık.
problemim çözülmüştür.
ÖD )
iyi çalışmalar
kolay gelsin