含If语句时，新建记录命令仅管理员模式可用，普通模式失效

我来帮你排查这个问题——看起来是普通用户模式下的权限或表单设置限制了新建记录的操作，而管理员模式不受约束。结合你的代码，给你几个可行的解决方向：

• 检查表单的「允许添加」属性
  确保你的表单AllowAdditions属性设置为True。普通用户模式下，这个属性可能被组策略或权限设置强制改为False，导致即使代码调用DoCmd.GoToRecord也无法创建新记录。你可以在设计视图里查看表单属性，或者在代码里强制设置：

  Me.AllowAdditions = True
  DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
  

• 验证用户对数据源的权限
  普通用户可能没有表单绑定的表/查询的插入数据权限。如果你的Access数据库启用了用户级安全（比如旧版的MDW工作组文件）或者ACE权限，需要确保普通用户组拥有目标表的INSERT权限。管理员默认拥有全权限，所以能正常执行。

• 优化代码的上下文指向
  你当前的DoCmd.GoToRecord省略了对象参数，依赖当前活动对象，在普通模式下可能因为上下文切换（比如焦点不在表单上）失效。建议明确指定表单对象：

  If mbResult = vbYes Then
      DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
  ' ... 其他代码
  

• 尝试替代的新建记录方法
  如果GoToRecord还是有问题，可以改用Recordset.AddNew方法，这个方式更直接操作记录集，有时能绕过表单权限的限制：

  Private Sub NewLocProLink_Click()
      Dim mbResult As VbMsgBoxResult
      mbResult = MsgBox("Are you sure you would like to add a new provider to location relationship?", vbYesNo, "New location to provider relationship")
      If mbResult = vbYes Then
          Me.Recordset.AddNew
      ElseIf mbResult = vbNo Then
          MsgBox "No new record"
      End If
  End Sub
  

另外，你提到只有包含If语句时才出现问题——可能是没有If时代码直接执行，表单处于加载完成的状态；而有If时，用户点击确认的间隙，表单焦点或状态发生了变化，导致GoToRecord找不到正确的上下文。上面的明确指定表单参数的方法应该能解决这个差异。

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