Benutzerdefinierte Fehlermeldung erzeugen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!

Ich habe mir in Access 2003 einen Hexrechner erstellt mittels VBA. Funktioniert soweit ganz gut.

Ich möchte jedoch, dass der Anwender lediglich die Zeichen von 4E00 - 9FA0(=chinesische Zeichen, nur zur Info) eingeben kann, ansonsten soll eine von mir ersellte Fehlermeldung erscheinen(z.B:„Ihre Eingabe entspricht keinem chinesischen Zeichen!“)

Danke schonmal für eure Antworten :wink:

mfG

PS: mein HexinDez-Rechner soweit:

Private Sub Button20_Click()

Dim Ziffer1 As String 'Hexa-Wert
Dim Ziffer2 As Long 'Dezi-Wert
Dim Hexa As String 'Dezi-Wert
Hexa = 0

If Hexa = 0 Then
Hexa = InputBox(„Bitte geben Sie eine vierstellige Hexadezimalzahl ein!“)
Else
Ziffer2 = CDec("&H" & Hexa)
End If

MsgBox (CDec("&H" & Hexa))

End Sub

#2

Ich habe mir in Access 2003 einen Hexrechner erstellt mittels
VBA. Funktioniert soweit ganz gut.

Ich möchte jedoch, dass der Anwender lediglich die Zeichen von
4E00 - 9FA0(=chinesische Zeichen, nur zur Info) eingeben kann,
ansonsten soll eine von mir ersellte Fehlermeldung
erscheinen(z.B:„Ihre Eingabe entspricht keinem chinesischen
Zeichen!“)

Hallo Nomista,

Option Explicit
'
Private Sub Button20\_Click()
Dim strZiffer1 As String 'Hexa-Wert
Dim lngZiffer2 As Long 'Dezi-Wert
Dim strHexa As String 'Text-Wert
Dim strMldg As String
strHexa = "0"
strMldg = "Bitte geben Sie eine vierstellige Hexadezimalzahl" & Chr(10)
strMldg = strMldg & "im Bereich 4E00 - 9FA0 ein."
While CDec("&H" & strHexa) &H9FA0
 strHexa = InputBox(strMldg, "Hex-Dez Rechner", "0000")
 If StrPtr(strHexa) = 0 Then Exit Sub 'es wurde abgebrochen
 If Not IsNumeric("&H" & strHexa) Or Len(strHexa) \> 4 Then strHexa = "0"
Wend
MsgBox (CDec("&H" & strHexa))
End Sub

Gruß
Reinhard

#3

ok vielen Dank Reinhard :wink: