Private Sub CEPTEL_Click()
If IsNull(Me.CEPTEL) Then
'If Trim(Me.CEPTEL & " ") = "" Then
'Me.CEPTEL.SetFocus
Me.CEPTEL.SelStart = 0
Else: Me.CEPTEL.SetFocus
'Me.CEPTEL.SelStart = Len(Me.CEPTEL.Text)
End If
End Sub
bunu dene burda eğer içi boş ise ilk hücreye,başa,dolu ise istediğin yani tıkladığın yere gidersin daha kullanışlı
özellikle telefon alanları için iyi kolay gelsin
textbox içine girme
Bu Konudaki Yorumlar |
textbox içine girme - Yazar: besst - 02/04/2010, 14:27
Cvp: textbox içine girme - Yazar: Kur@l - 02/04/2010, 14:33
Cvp: textbox içine girme - Yazar: besst - 02/04/2010, 14:44
Cvp: textbox içine girme - Yazar: assenucler - 02/04/2010, 14:54
Cvp: textbox içine girme - Yazar: C*e*l*o*y*c*e - 02/04/2010, 15:00
Cvp: textbox içine girme - Yazar: assenucler - 02/04/2010, 15:08
Cvp: textbox içine girme - Yazar: Kur@l - 02/04/2010, 15:18
Cvp: textbox içine girme - Yazar: besst - 02/04/2010, 15:18
|
Konuyu Okuyanlar: 1 Ziyaretçi