Access表单扫描后无法将焦点返回TxtBox问题求助

问题背景 #

表单需支持三类扫描数据：

• BinLocation：以R开头，扫描后后续SKU/NAS绑定至该位置
• SKU：以S开头，需关联当前BinLocation记录
• NAS：以O开头，需关联当前BinLocation记录

现有两种实现均存在焦点异常：

1. 单个输入框方案：扫描BinLocation后，焦点无法自动返回输入框，影响连续扫描
2. 三个输入框方案：切换新BinLocation时，焦点会跳过SKU输入框直接到NAS输入框

单个输入框修正方案 #

原代码使用LostFocus事件会导致焦点丢失后无法正确返回，改用AfterUpdate事件并强制设置焦点回扫描框，逻辑更稳定：

Private Sub txtScan_AfterUpdate()
    Dim scanValue As String
    scanValue = Me.Txtscan.Value
    
    Static binLocation As String ' 存储当前绑定的BinLocation
    
    If Left(scanValue, 1) = "R" Then
        ' 处理BinLocation扫描
        binLocation = scanValue
    ElseIf Left(scanValue, 1) = "S" Then
        ' 处理SKU扫描
        If binLocation <> "" Then
            With Me.Scanssubform.Form.Recordset
                .AddNew
                !binLocation = binLocation
                !SKU = scanValue
                .Update
            End With
        Else
            MsgBox "请先扫描BinLocation", vbExclamation, "缺少位置信息"
        End If
    ElseIf Left(scanValue, 1) = "O" Then
        ' 处理NAS扫描
        If binLocation <> "" Then
            With Me.Scanssubform.Form.Recordset
                .AddNew
                !binLocation = binLocation
                !NAS = scanValue
                .Update
            End With
        Else
            MsgBox "请先扫描BinLocation", vbExclamation, "缺少位置信息"
        End If
    Else
        ' 无效扫描
        MsgBox "扫描内容无效", vbExclamation, "无效扫描"
    End If
    
    ' 清空输入框并强制返回焦点
    Me.Txtscan.Value = ""
    Me.Txtscan.SetFocus
End Sub

核心调整：

• 替换LostFocus为AfterUpdate：确保扫描内容完全输入后再执行逻辑，避免焦点中途触发
• 末尾添加Me.Txtscan.SetFocus：处理完成后强制拉回焦点，支持连续扫描

三个输入框修正方案 #

原方案焦点跳转逻辑混乱，调整为明确的流转规则，同时允许在任意输入框扫描BinLocation：

Private currentBinLocation As String

' 统一处理BinLocation切换的通用过程
Private Sub SetBinLocation(newBin As String)
    currentBinLocation = newBin
    Me.BinLocationTextbox.Value = newBin
    ' 清空SKU/NAS并将焦点定位到SKU输入框
    Me.SKUTextbox.Value = ""
    Me.NASTextbox.Value = ""
    Me.SKUTextbox.SetFocus
End Sub

Private Sub BinLocationTextbox_AfterUpdate()
    If Left(Me.BinLocationTextbox.Value, 1) = "R" Then
        SetBinLocation Me.BinLocationTextbox.Value
    Else
        MsgBox "BinLocation必须以R开头", vbExclamation, "输入错误"
        Me.BinLocationTextbox.Value = ""
        Me.BinLocationTextbox.SetFocus
    End If
End Sub

Private Sub SKUTextbox_AfterUpdate()
    Dim scanVal As String
    scanVal = Me.SKUTextbox.Value
    
    If Left(scanVal, 1) = "R" Then
        ' 在SKU框扫描BinLocation，直接切换位置
        SetBinLocation scanVal
    ElseIf Left(scanVal, 1) = "S" Then
        ' 处理SKU记录
        If currentBinLocation <> "" Then
            With Me.Scanssubform.Form.Recordset
                .AddNew
                !binLocation = currentBinLocation
                !SKU = scanVal
                .Update
            End With
            Me.SKUTextbox.Value = ""
            Me.SKUTextbox.SetFocus ' 扫描完成后保持焦点在SKU框
        Else
            MsgBox "请先设置BinLocation", vbExclamation, "缺少位置信息"
            Me.SKUTextbox.Value = ""
            Me.BinLocationTextbox.SetFocus
        End If
    Else
        MsgBox "SKU必须以S开头", vbExclamation, "输入错误"
        Me.SKUTextbox.Value = ""
        Me.SKUTextbox.SetFocus
    End If
End Sub

Private Sub NASTextbox_AfterUpdate()
    Dim scanVal As String
    scanVal = Me.NASTextbox.Value
    
    If Left(scanVal, 1) = "R" Then
        ' 在NAS框扫描BinLocation，直接切换位置
        SetBinLocation scanVal
    ElseIf Left(scanVal, 1) = "O" Then
        ' 处理NAS记录
        If currentBinLocation <> "" Then
            With Me.Scanssubform.Form.Recordset
                .AddNew
                !binLocation = currentBinLocation
                !NAS = scanVal
                .Update
            End With
            Me.NASTextbox.Value = ""
            Me.NASTextbox.SetFocus ' 扫描完成后保持焦点在NAS框
        Else
            MsgBox "请先设置BinLocation", vbExclamation, "缺少位置信息"
            Me.NASTextbox.Value = ""
            Me.BinLocationTextbox.SetFocus
        End If
    Else
        MsgBox "NAS必须以O开头", vbExclamation, "输入错误"
        Me.NASTextbox.Value = ""
        Me.NASTextbox.SetFocus
    End If
End Sub

' 表单初始化时设置默认焦点
Private Sub Form_Load()
    Me.SKUTextbox.SetFocus
    currentBinLocation = ""
End Sub

核心调整：

• 提取SetBinLocation通用过程：统一处理BinLocation切换逻辑，避免重复代码
• 每个输入框单独校验开头字符：明确区分扫描类型，避免焦点混乱跳转
• 固定焦点流转规则：扫描完成后返回对应输入框，可根据业务需求调整跳转目标
• 表单加载初始化焦点：确保打开表单后直接进入可扫描状态

额外优化建议 #

• 将表单Cycle属性设置为Current Record：避免焦点跳转到导出、清除数据等无关控件
• 配置扫描枪自动添加回车：确保扫描完成后自动触发AfterUpdate事件，无需手动操作
• 添加扫描内容长度校验：避免误扫短字符导致逻辑错误

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