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 
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
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