AccessTr.neT

Tam Versiyon: değiştiğinde olayı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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ı
Sayfalar: 1 2 3