Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/07/2019 15:13
Konu Sahibi
hbal09
Yorumlar
4
Okunma
202
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
hbal09

hbal09

Aktif Üye
26172
 35
 113
 19/10/2010
3
 Aydın
 
 Ofis 2016 64 Bit
 07/08/2019,12:52
Çözüldü 
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.




berduş

berduş

Uzman
65596
ha....
 29
 1.414
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,17:43
ana forma

Visual Basic Code
Option Compare Database

satırının altına

Visual Basic Code
Public txtDeger As String

kodunu,
alt forma aşağıdaki kodu ekleyip

Visual Basic Code
Private Sub DEGER_GotFocus()
Me.Parent.txtDeger = Me.DEGER
End Sub

yenile butonun koduna da "me.refresh" satırından önce

Visual Basic Code
Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")

kodunu ekleyip dener misiniz?



...........
berduş

berduş

Uzman
65596
ha....
 29
 1.414
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,17:43
yada doğrudan sadece alttaki kodu yazın yenile butonunun koduna

Visual Basic Code
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



hbal09

hbal09

Aktif Üye
26172
 35
 113
 19/10/2010
3
 Aydın
 
 Ofis 2016 64 Bit
 07/08/2019,12:52
çok teşekkür ederim @halily
tam olarak istediğim oldu. aklınıza, fikrinize sağlık.
problemim çözülmüştür.




...........
berduş

berduş

Uzman
65596
ha....
 29
 1.414
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
 Bugün,17:43
ÖD )
iyi çalışmalar
kolay gelsin




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Metin Kutularında Veri Görünmemesi U.ALTUN 12 217 03/08/2019, 16:59
Son Yorum: berduş
Çözüldü Boş Alan Kontrolü most 16 412 20/07/2019, 23:12
Son Yorum: berduş
Çözüldü Metin Olarak Belirtilen Formülün Çalıştırılması? damacanasu 1 230 14/07/2019, 12:43
Son Yorum: berduş
Çözüldü Network Veya Odbc Bağlantı Kontrolu Yapıldıktan Sonra Form Açılsın. cozum 3 427 01/07/2019, 17:23
Son Yorum: cozum
Çözüldü Metin Ve Rakamlardan Seri Numarası Üretme Yunus Bozkurt 11 489 16/06/2019, 17:06
Son Yorum: berduş

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.