Bir metin içinde aradığınız bir kelimeyi bulma
Tarih
08/02/2009 16:40
Konu Sahibi
ışık
Yorumlar
5
Okunma
3364
Konuyu Oyla:
  • Derecelendirme: 3/5 - 2 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 2 oy



ışık
Üye
Kullanici Avatari
Üye
4
2
08/02/2009
0
Kocaeli
Ofis 2003
12/02/2009,10:08
Smile 
Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kodlar:

’Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin

Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer


Private Sub Bul_Click()
ArananKelime = InputBox("Metin içinde aradığınız kelimeyi giriniz:", Bul, ArananKelime)
’Aranacak kelimeyi soruyoruz..
AramayaBasla = Metin.SelStart + Metin.SelLength
’Aramayı metin içersinde işaretçinin bulunduğu karakterden başlatacağız..
If AramayaBasla = 0 Or AramayaBasla = Len(Metin.Text) Then AramayaBasla = 1
’Eğer işaretçi sonda veya başta ise aramayı bütün metin içerisinde yapacağız..
KelimeninYeri = InStr(AramayaBasla, Metin.Text, ArananKelime, vbTextCompare)
’instr ile kelimenin metin içerisinde başladığı yeri alacağız..
If KelimeninYeri = 0 Then
MsgBox "Metin içinde böyle bir kelime yok"
Else
Metin.SetFocus
Metin.SelStart = KelimeninYeri - 1
Metin.SelLength = Len(ArananKelime)
’Aranan kelimeyi seçtireceğiz..
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
...?????........
Cevapla


ali02
Üye
Kullanici Avatari
Üye
1
0
16/03/2009
0
Adıyaman
Ofis 2003
17/03/2009,12:46
olmuyo bende hata veriyo
offf hep hata veriyo
ali02, 16-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ekselanss
Aktif Üye
Kullanici Avatari
Aktif Üye
C.... A....
75
19/07/2009
0
Manisa
Ofis 2003
24/11/2013,16:09
Bu veri tabanından mı buluyor Daha ayrıntılı belirtirseniz cok daha iyi olur . Bide kodları Kod komudu kullanarak forma yazarsanız karışıklıgı önlemiş olursnuz.. İyi günler.
ekselanss, 19-07-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Taruz
Aktif Üye
Kullanici Avatari
Aktif Üye
104
4
04/10/2009
20
Belirtilmemiş
Belirtilmemiş
10/06/2014,13:15
Hata vermesi normal çünkü hatalı.. Kontrol edilmeden kopyala - yapıştır mantığı ile paylaşılmış bir kod.. Öyle olduğu halde bile eksik kopyalanmış.. ;)

Bu prosedur; textbox gibi bir denetim içerisindeki (bir kaç kelimelik cümleden oluşan metinler için daha mantıklı) veriler içerisinde istenilen bir parçayı bulur ve imleci o bölüme odaklar..

Düzeltilmiş hali aşağıdaki gibidir..:

Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
'Denetim_Adı yerine arama yapacağınız denetimin ismini yazınız veya bir değişkene atayınız..
ArananKelime = InputBox("Metin içinde aradığınız kelimeyi giriniz:", Bul, ArananKelime)
Denetim_Adı.SetFocus
AramayaBasla = Denetim_Adı.SelStart + Denetim_Adı.SelLength
If AramayaBasla = 0 Or AramayaBasla = Len(Denetim_Adı.Text) Then AramayaBasla = 1
KelimeninYeri = InStr(AramayaBasla, Denetim_Adı.Text, ArananKelime, vbTextCompare)
If KelimeninYeri = 0 Then
MsgBox "Metin içinde böyle bir kelime yok"
Else
Denetim_Adı.SetFocus
Denetim_Adı.SelStart = KelimeninYeri - 1
Denetim_Adı.SelLength = Len(ArananKelime)
End If


Bir düğmenin olayında kullanabilirsiniz..
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
Dün,21:35
Sn Taruz verdiğiniz bilgi ve paylaşım için teşekkürler. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  obeb (gcd) bulma örneği accessman 1 1.937 24/05/2012, 08:49 chopper07


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya