取英文字符的方法求助

zyz218

<IMG>

[此贴子已经被作者于2007-1-17 15:49:46编辑过]

andymark

查看英文字母的ASCII字符集,循环判断读取,0-9的字符集:48-57,A-Z:65-90,a-z:97-122

zyz218

Private Sub partcode_AfterUpdate()
Dim a, b As String
Dim i, j As Integer
j = Len(Me.partcode)
i = 1: b = ""
    Do Until i > j
    If 97 <= Chr(Mid(Me.partcode, i, 1)) <= 122 Then
        MsgBox "请输入“部品代码”，它不可以为小写字母!", vbOKOnly, "输入“部品代码”"
        Me.partcode.SetFocus
        Exit Sub
    ElseIf 65 <= Chr(Mid(Me.partcode, i, 1)) <= 90 Then
        a = Mid(Me.partcode, i, 1)
        b = b & a
    ElseIf 48 <= Chr(Mid(Me.partcode, i, 1)) <= 57 Then
        Exit Do
    End If
    i = i + 1
    Loop
    Me.material = Nz(DLookup("material", "partcode", "partcode=" & b & ""), Null)
End Sub

chr这个函数是把数字转成字符的,我忘了相对应的字符变数字函数了!!谁知?

一点通

Val()

crg770502

Function DelNum(Str) As String
    If Len(Str) > 0 Then
        For i = 1 To Len(Str)
            DelNum = IIf(IsNumeric(Mid(Str, i, 1)), DelNum, DelNum & Mid(Str, i, 1))
        Next
    End If
End Function