iyi günler
isimleri aramak için kullandğım metin var
değiştiğinde olayında
-----
Bul = Metin1.Text
Me.Metin5.Value = Bul
-------
ben bu kodun metin içeriği 5 hane ve daha fazla olduğunda çalışması için ne yazmalıyım

if len(metin1.text)>4 then
--
--
end if

desem olur mu

Sayın Accessman;
Eğer bu kodu denerseniz işinizi gördüğünü görürsünüz.
Sanırım hatasız çalışır bu kod.
Kolay Gelsin.

değiştiğinde olayında
değişmeden önceki ve sonraki değer değeri nasıl karşılaştırırız
mesela
metin içindeki değerin len değeri artarak değişiyorsa
msgbox " metnin harf sayısı artıyor"
eğer len değeri azalıyorsa
msgbox " metnin harf sayısı azalıyor"
mesajı çıkabilirmi

Olur ama Msgbox ile vermek kullanım rahatlığına aykırı gibi sanki. Bir etiket içerisinde göstermek daha kullanışlı olur bence.

Olayın tam olarak ne işe yarayacağı ile ilgili bir fikrimiz olmadığından böyle bir şeyler hazırladık, umarım doğru anlamışızdır.
Tabi bu arada Bul olarak yazdığımız satırın değişken olarak tanımlanmış olması gerekmektedir. Sadece sizin yazdıklarınıza göre uyarlanmıştır.

Private Sub Komut1_Change()

Dim kriter As Integer

kriter = Len(Me.Metin1.Text)

If kriter > 4 Then

MsgBox "Limit Doldu", ,"DİKKAT"

Bul = Metin1.Text

Else

Me.Metin5.Value = Bul

End If

End Sub

(02/06/2011, 23:52)alpeki99 yazdı: Olur ama Msgbox ile vermek kullanım rahatlığına aykırı gibi sanki. Bir etiket içerisinde göstermek daha kullanışlı olur bence.

tamam öyle olsun
kod nasıl olmalı