Texbox ozelligi hakkinda

[ETarkan]

Arkadaslar merhaba

Texbox icine Firma Ara yazmak istiyorum ve yaziyorum sonrasinda arama yapmak icin uzerine tikladigimda yazi kaybolsun istiyorum mumkunmudur acaba

tesekkurler

 

[Recep İpek]

Textbox'ın üzerine tıklayınca mı yazı kaybolsun istiyorsunuz?

Bunu için en uygun çözüm TextBox'a çift tıklama olabilir.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ""
End Sub

 

[ETarkan]

Sn. ripek

Verdiginiz kodu uyguladim bir seferlik oluyor cift tikla fakat benim amacim arama yaparken kaybolson arama isini bitirince orda "firma ara" yine belirsin istiyorum eger mumkun ise

tesekkurler

 

[Recep İpek]

O zaman çift tıklamama değilde normal buton yapabilirsiniz.

Örneğin,

Sub Arama()
TextBox1.Value="Arama Yapılıyor..."
...
...
Arama kodlarınızı buraya yazınız.
...
...
MsgBox "Arama Bitti"
TextBox1.Value="Firma Ara"
End Sub

 

[Levent Menteşoğlu]

Öncelikle textboxun properties penceresindeki "text" özelliğine "firma ara" yazın. Daha sonrada aşağıdaki kodu textboxa kopyalayın.

Private Sub TextBox1_Enter()
TextBox1 = ""
End Sub

 

[ETarkan]

Arkadaslar cok tesekkur ederim ama beceremedim

Sn leventm

sizin verdiginiz kodlari ekteki dosyaya ekledim eger bir bakip ilgilenirseniz sevinirim fakat olmuyorsa cokta onemli degil

tesekkur ederim herkeze

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Ayrıca Field=3 değil Field=1 yapmanız gerekmektedir.

Private Sub TextBox1_LostFocus()
TextBox1.Text = "Firma Ara"
End Sub

 

[ETarkan]

Sn. Ripek

Oldu gibi sankii ama birde siz denermisiniz, sorun su tikliyorum firma ariyorum buluyorum sonrasinda siliyorum isin bittigini belirtmek icin herhangi bir huvreye tiklayinca"firma ara" tekrar texbox a geliyor fakat filtreyi tumu diye isaretlemem gerekiyor

Eger bu sorunu da cozebilirsek olay bitecek sanki

tesekkurler

 

[Recep İpek]

Sanırım bu sefer oldu.

 

[ETarkan]

Sn. Ripek

Ellerinize saglik bu paylasim ortaminda olmiyacak birsey yok diye dusunuyorum artik. Hemde tam istedigim gibi olmus. Insallah diger forum sakinlerininde isine yarar.

Diger ilgilenen arkadaslarimada tesekkurleri bir borc bilirim.

Cok Tesekkurler

 

[Recep İpek]

Sn. Ripek
bu paylasim ortaminda olmiyacak birsey yok diye dusunuyorum artik.

Bende bu siteyi bu yüzden seviyorum.
Paylaşım , Dostluk , Yardımlaşma , Sıcaklık ,.... :arkadas:

İşinize yaradığına sevindim. :keyif: