VBA 7中输入第二个字母时名字首字母消失问题求助

问题现象 #

输入名字首字母（如F）时，列表框能正常筛选出首字母为F的记录；但输入第二个字母（如O）时，首字母F会被“覆盖”，列表框仅显示首字母为O的记录。

涉及控件 #

• 输入控件：txtSearchCriteria
• 结果显示控件：lstPersonnelSearch

现有代码 #

Option Compare Database
Private Sub txtSearchCriteria_KeyPress(KeyAscii As Integer)
    Dim vSearchString As String

    If KeyAscii = vbKeyBack Then
        ' Handle backspace separately
        If Len(Nz(Me.txtSearchCriteria.Value, "")) > 0 Then
            vSearchString = Left(Nz(Me.txtSearchCriteria.Value, ""), Len(Nz(Me.txtSearchCriteria.Value, "")) - 1)
        Else
            vSearchString = ""
        End If
    Else
        ' For other keys, including regular characters and Enter key
        vSearchString = Nz(Me.txtSearchCriteria.Value, "") & Chr(KeyAscii)
    End If

    Dim strSQL As String
    strSQL = "SELECT * FROM QrySearch WHERE FirstName Like '*" & vSearchString & "*'"
    
    Me.lstPersonnelSearch.RowSource = strSQL
    
    ' Optionally refresh the list box immediately
    ' Me.lstPersonnelSearch.Requery
    
    Me.Refresh
End Sub

问题原因 #

在KeyPress事件触发时，控件的Value属性尚未同步最新输入的字符（Value仅在控件失去焦点或按下回车时才会更新）。代码中错误地使用Value获取输入内容，导致：

1. 第一次输入F时，Value为空，拼接Chr(KeyAscii)得到"F"，筛选正常；
2. 输入第二个字符O时，Value依然为空（控件未失去焦点，未更新），拼接后得到"O"，因此列表框仅显示O开头的记录。

解决方法 #

将代码中所有Me.txtSearchCriteria.Value替换为Me.txtSearchCriteria.Text（Text属性会实时返回控件当前显示的内容），同时确保txtSearchCriteria的Locked属性设为False（Text属性仅在控件未锁定且有焦点时可用）。

修改后的代码 #

Option Compare Database
Private Sub txtSearchCriteria_KeyPress(KeyAscii As Integer)
    Dim vSearchString As String

    If KeyAscii = vbKeyBack Then
        If Len(Nz(Me.txtSearchCriteria.Text, "")) > 0 Then
            vSearchString = Left(Nz(Me.txtSearchCriteria.Text, ""), Len(Nz(Me.txtSearchCriteria.Text, "")) - 1)
        Else
            vSearchString = ""
        End If
    Else
        vSearchString = Nz(Me.txtSearchCriteria.Text, "") & Chr(KeyAscii)
    End If

    Dim strSQL As String
    ' 若需首字母匹配而非任意包含，可将Like '*...*'改为Like '...*'
    strSQL = "SELECT * FROM QrySearch WHERE FirstName Like '*" & vSearchString & "*'"
    
    Me.lstPersonnelSearch.RowSource = strSQL
    Me.lstPersonnelSearch.Requery ' 直接刷新列表框，确保结果及时显示
End Sub

额外优化 #

• 移除Me.Refresh，改用Me.lstPersonnelSearch.Requery，仅刷新列表框而非整个窗体，提升效率；
• 若需要实现前缀匹配（更符合名字搜索场景），将SQL中的Like '*" & vSearchString & "*'修改为Like '" & vSearchString & "*'，这样输入"FO"只会匹配FirstName以"FO"开头的记录。

内容的提问来源于stack exchange，提问作者Jix Tang