Jag behöver hjälp med att bara skriva text i textbox och tvärtom...

<code>
Private Function kollanamn() As String
kollanamn = True
If IsNumeric(namntxt.Text) Then
MsgBox "Endast bokstäver i ditt namn", vbOKOnly, "Namnet är fel"

End If
End Function
</code>

Men efter man har skrivit en bokstav så kan man skriva siffror igen, det vill jag att man inte ska kunna göra...

MvH
Magnus

Ett sätt är ju att hindra användaren att skriva andra tecken än de du vill, men det indrar ju inte från att man klistrar in något annat...

<code>
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim tecken As String
tecken = "abcde" & Chr(8) 'chr(8) innebär att man får "sudda"
If InStr(1, tecken, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
</code>

/Johan

Vad jag kan se på din kod är den inget fel...
det kan bero på att du har: kollanamn = true
och att du kollar om kollanamn = false så anropar du functionen kollanamn()
chansar jag på att det är

/bj

bj:
Felet är att ex.vis. strängen "k26" inte tolkas som ett tal, men innehåller ändå siffror...

Man kan givetvis gör om mitt exempel så att man efteråt loopar igenom alla tecken och gör samma kontroll.

/Johan

Du kan använda LCase() och UCase() funktionerna. Eftersom en liten bokstav är inte samma som stor. Medans en siffra punkt eller ett annat sifra ger samma svar. Jag tycker Validate är bästa stället att göra det på.
<code>
Private Sub namntxt_Validate(KeepFocus As Boolean)
Dim Index As Long
Dim strChar as String
Dim strText As String
strText = namntxt.Text
For Index = 1 To Len(strText)
strChar = Mid(strText, Index, 1)
If LCase(strChar) = UCase(strChar) Then
KeepFocus = True
Msgbox "Du kan bara ange bokstäver i ditt namn!"
Exit For
End If
Next
End Sub
</code>

Nu funkar det med att bara skriva bokstäver.
Tack för hjälpen!

MvH
Magnus