Textbox karekter ksııtlama

[vivident]

Merhaba

Herhangi bir textboxa veri girişi yapılırken ' karakterinin girilmemesini istiyorum

Aşağıda kodu ekledim.
' haricinde hiçbirşey yazamıyorum. Ben bu işlemin tersini istiyorum

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("'")
Case Else
KeyAscii = 0
End Select
End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki konu sayfasında kullanılan benzeri kod'u;
' karakterinin KeyAsci karşılığı olana 39 olarak değiştirip kullanabilirsiniz.

http://www.excel.web.tr/f48/sadece-rakam-girme-koduna-nokta-ekleme-t154680.html#post841965

 

[vivident]

Ömer bey olmadı veya ben beceremedim
Aşağıdaki kodu kullandım
Textbox'ın içine ' karakterini yazabiliyorum
Yazamam gerekli

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 39 Then Exit Sub
End Sub

 

[vivident]

Ömer bey sanıyorum ki böyle olması gerekiyor
Doğru mudur?

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 39 Then
KeyAscii = 0: MsgBox "AAAAAA"
End If
End Sub

 

[Ömer BARAN]

Tekrar merhaba.

Kod'u aşağıdaki ile değiştirerek sonuç alabilirsiniz.
.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 39 Then KeyAscii = 0: MsgBox "... ' Karakteri Yazılamaz ..."
End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 39 Then KeyAscii = 0
End Sub

 

[vivident]

Çok teşekkür ederim
İyi çalışmalar