Question

我正在尝试在MS访问中设置一个简单的表单，以将新记录添加到充满联系信息的表中。每次我使用表单添加新记录时，我都希望ID号字段与ID字段中的最高值相比递增1。我现在的代码似乎正在运作：

Private Sub Contact_ID_Click()

Dim newContactID As Double

newContactID = DMax("[Contact_ID]", "Contacts") + 1

Contact_ID = newContactID

End Sub

问题是，每次启动数据库时，在窗体视图中打开窗体并单击Contact_ID字段以递增它，我收到以下错误消息：

“作为事件属性设置输入的单击On Click会产生以下错误：对象或类不支持事件集。”

我去设计视图，打开代码，然后一旦切换回Form视图，它就会再次运行。当表单从头开始打开时，我希望它可以工作，因为其他人可能正在使用此表单而不知道该怎么做。知道是什么导致了这个吗？