+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusuna Yazarken Satır Kontrolü (/konu-metin-kutusuna-yazarken-satir-kontrolu.html)
Metin Kutusuna Yazarken Satır Kontrolü - musteri53 - 05/12/2016
Arkadaşlar, Formda satırlar şeklinde sıralanmış birden çok metin kutusu var. Metin kutusuna 50 karakterden fazla girdiğimde kontrol etsin ve imleç diğer satıra geçsin. Yardımcı olacak arkadaşlara şimdiden teşekkürler.
Cvp: METİN KUTUSUNA YAZARKEN SATIR KONTROLÜ - atoz112 - 05/12/2016
sayın musteri53,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
son olarak;
Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,
lütfen,konu başlığı ifadelerinizi BÜYÜK HARF ile yazmamaya gayret ediniz.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Cvp: METİN KUTUSUNA YAZARKEN SATIR KONTROLÜ - musteri53 - 05/12/2016
Sayın atoz112, teşekkür ederim. Yalnız 50 karakter yazıldığında imleç diğer alana gidiyor ancak karakter sayısı dolu olan alan üzerinde geri silme tuşunu kullanmaya izin vermiyor. Nasıl bir kod ilavesi yapmalıyız.
Cvp: METİN KUTUSUNA YAZARKEN SATIR KONTROLÜ - atoz112 - 05/12/2016
sayın musteri53,
EK'te;
bahsettiğiniz yeni talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: METİN KUTUSUNA YAZARKEN SATIR KONTROLÜ - musteri53 - 05/12/2016
Çok teşekkür ederim.
Cvp: Metin Kutusuna Yazarken Satır Kontrolü - musteri53 - 06/12/2016
Sayın atoz112, Satırı geri tuşuyla silerken imleç üstteki satırın son karakterine gitmesi için şu koda hangi ilave yapılmalı. Sonraki satıra geçerken de son bastığımız karakteri yazması için nasıl bir kod yazmalıyız.
Private Sub S2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Then
If KeyAscii = vbKeyBack And Len(Me.S2.Text) = 0 Then Me.S1.SetFocus: KeyAscii = 0
Else:
If Len(Me.S2.Text) >= 50 Then Me.S2.SetFocus: KeyAscii = 0
End If
End Sub