[原] access97中textbox类似vb的maxlength功能的实现

Private Sub txt文字_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = 13) Or (KeyCode = 9) Then
        
    End If
End Sub

Private Sub txt文字_KeyPress(KeyAscii As Integer)
    If (Len(txt文字.Text) > 3) And (KeyAscii <> 8) Then
        txt文字.SetFocus
        KeyAscii = 0
    End If
End Sub