新的记录通过点击按钮在Microsoft Access表添加

在我的MS Access窗体我想实现一个单独的按钮，增加了一个新的记录表。为了做到这一点，我添加一个按钮，连接到该按钮的事件：新的记录通过点击按钮在Microsoft Access表添加

Private Sub btnAddRec_Click() 
    Refresh 
    With CodeContextObject 
    On Error Resume Next 
    DoCmd.GoToRecord , , acNewRec 
    If Err.Number <> 0 Then 
    btnAddRec.Enabled = False 
    End If 
    End With 
End Sub

一切都OK时，你只需打开窗口，然后单击btnAddRec按钮，问题是第一，当你全部通过现有记录执行导航，并且仅在点击此按钮之后才执行导航。我得到的运行时错误：2105：«你不能去指定的记录。您可能在一个记录集的末尾»。

如何解决这个问题，我需要补充上点击特定的按钮，无论是新的记录能力，有我走还是不前通过记录走去。

谢谢。

来源

2013-05-18 Mike B.

什么是CodeContextObject？ –

我创建了一个简单的形式与字段呼叫描述（和自动编号）并创建了一个按钮，通过如下点击事件的代码。我填充了许多记录并通过它们导航，然后单击addNewRec按钮。表单导航到新记录没有问题。我也能够成功打开表单后直接点击addNewRec按钮。

Private Sub btnAddRec_Click() 
On Error GoTo Err1 
    DoCmd.GoToRecord , , acNewRec 
    Exit Sub 
Err1: 
    Description.SetFocus 
    btnAddRec.Enabled = False 
    MsgBox (Err.Description) 

End Sub

从包括你正在清除刷新和With语句，交给错误，禁用按钮，显示用户的错误描述之前将焦点设置代码的差异。我不知道你的表单是否相似，但是如果是这样的话，这应该适用于你，并且我正确理解你的问题。

来源

2013-05-19 01:11:02

我想你的代码，并发现了，试图打开窗体，向前走了一段记录，之后点击添加按钮，我得到了错误。 –

这很简单，这段代码适合我。如果你在表单中显示所有的代码，这应该工作。也许你应该重新开始。重新创建表单，并在这次添加addNewRec按钮时，从命令按钮向导中选择“记录操作”和“添加新记录”。 –

新的记录通过点击按钮在Microsoft Access表添加

回答

相关问题