MS Access拆分窗体设置Allow Additions后无法设置焦点问题求助

听起来你遇到的是拆分窗体中切换AllowAdditions属性后引发的焦点冲突问题——这种情况在Access拆分窗体里很常见，因为拆分窗体的主窗体和数据表部分共享同一个窗体状态，来回切换AllowAdditions会打乱控件的焦点逻辑。

问题根源 #

当你把AllowAdditions从No改为Yes后，Access需要重新初始化窗体的编辑状态，这时候立即调用SetFocus可能时机不对：拆分窗体的数据表部分会自动抢焦点，导致主窗体的控件（比如Owner或Assignees）无法接收焦点，从而抛出错误。而且来回切换这个属性本身就不是最优解，容易引发各种状态同步问题。

最优解决方案：用BeforeInsert事件控制添加来源 #

与其来回切换AllowAdditions，不如把它保持为Yes，然后通过窗体的BeforeInsert事件来限制只有自定义按钮能触发新记录创建。这种方法更稳定，也避免了焦点冲突：

步骤1：修改自定义按钮的代码

Private Sub NewTask_btn_Click()
    On Error GoTo ErrorHandler
    
    ' 设置临时标记，告诉BeforeInsert事件这是合法的添加操作
    If TempVars.Exists("IsButtonInitiatedAdd") Then
        TempVars("IsButtonInitiatedAdd") = True
    Else
        TempVars.Add "IsButtonInitiatedAdd", True
    End If
    TempVars("IsButtonInitiatedAdd").Persistent = False ' 关闭数据库后自动清除
    
    ' 创建新记录
    DoCmd.GoToRecord , , acNewRec
    
    ' 设置默认值
    Me.Owner = TempVars!userIdNum
    Me.TaskName = TempVars!newTaskName
    
    ' 现在可以正常设置控件焦点了
    Me.Assignees.SetFocus
    
ExitSub:
    ' 重置标记
    If TempVars.Exists("IsButtonInitiatedAdd") Then
        TempVars.Remove "IsButtonInitiatedAdd"
    End If
    Exit Sub
    
ErrorHandler:
    MsgBox "创建任务时出错: " & Err.Description, vbExclamation
    Resume ExitSub
End Sub

步骤2：添加窗体的BeforeInsert事件代码

打开窗体的设计视图，进入事件属性，找到BeforeInsert事件，选择「事件过程」，然后输入以下代码：

Private Sub Form_BeforeInsert(Cancel As Integer)
    ' 检查是否是自定义按钮触发的添加
    If Not TempVars.Exists("IsButtonInitiatedAdd") Or TempVars("IsButtonInitiatedAdd") <> True Then
        Cancel = True ' 取消非法的插入操作
        MsgBox "请使用""添加新记录""按钮创建任务。", vbInformation
    End If
End Sub

为什么这个方法有效？

• 保持AllowAdditions为Yes，让窗体始终处于可以创建新记录的状态，避免了状态切换带来的焦点混乱。
• 通过TempVars标记来区分合法（按钮触发）和非法（数据表*行触发）的添加操作，精准控制用户行为。
• 新记录创建后，控件可以正常接收焦点，因为窗体状态始终稳定。

如果你坚持原来的思路（切换AllowAdditions） #

如果不想改逻辑，也可以调整代码顺序，确保窗体状态切换完成后再设置焦点：

Public Sub NewTaskSetup()
On Error GoTo NewTask_btn_Click_Err
    Me.AllowAdditions = True
    
    ' 先让窗体完成状态更新，延迟一下或者先激活窗体
    Me.SetFocus ' 把焦点移到窗体本身，避免数据表抢焦点
    DoEvents ' 让Access处理完所有pending事件
    
    DoCmd.GoToRecord , , acNewRec
    
    Me.TaskName = TempVars!newTaskName
    Me.Owner = TempVars!userIdNum
    
    ' 再次确保焦点在窗体，再设置到目标控件
    Me.SetFocus
    Me.Assignees.SetFocus
    
    ' 你的循环代码...
    
NewTask_btn_Click_Exit:
    Me.AllowAdditions = False
    Exit Sub

NewTask_btn_Click_Err:
    MsgBox Err.Description
    Resume NewTask_btn_Click_Exit
End Sub

这里的关键是添加Me.SetFocus和DoEvents，确保Access在设置控件焦点前完成窗体状态的切换，避免数据表部分抢焦点。

总结 #

推荐使用BeforeInsert事件的方案，它更符合Access的事件模型，也更稳定。来回切换AllowAdditions容易引发各种难以排查的状态问题，尤其是在拆分窗体这种特殊结构里。

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