无法将 Ms Access 表单设为空白以输入新记录
Unable to make Ms Access form blank to enter new records
我有问题。当我打开 Ms Access 表单输入新记录时,它显示的是旧记录。我需要它来显示空白表格,我试过 me.Refresh、me.Requery 并调用 DoCmd.GoToRecord(, acNewRec)
我还能尝试什么?
调用 DoCmd.GoToRecord(, acNewRec) 行产生错误:'Ms Access 与 OLE 服务器或 ActiveX 控件通信时出现问题
Private Sub Form_Load()
'me.Requery
'me.Refresh
Call DoCmd.GoToRecord(, , acNewRec)
If Not IsNull(Me.SubjectID) Then
Forms!Data_Pro_Patient_Entry![my_rep].Visible = True
Call Disable_Schedule_Generation
Else
Forms!Data_Pro_Patient_Entry![my_rep].Visible = False
Call generate_auto_id
End If
End Sub
如果您从代码中打开表单,
将“acFormAdd”添加到数据 DataMode
喜欢
docmd.OpenForm {FormName},acNormal,,,acFormAdd
我有问题。当我打开 Ms Access 表单输入新记录时,它显示的是旧记录。我需要它来显示空白表格,我试过 me.Refresh、me.Requery 并调用 DoCmd.GoToRecord(, acNewRec)
我还能尝试什么?
调用 DoCmd.GoToRecord(, acNewRec) 行产生错误:'Ms Access 与 OLE 服务器或 ActiveX 控件通信时出现问题
Private Sub Form_Load()
'me.Requery
'me.Refresh
Call DoCmd.GoToRecord(, , acNewRec)
If Not IsNull(Me.SubjectID) Then
Forms!Data_Pro_Patient_Entry![my_rep].Visible = True
Call Disable_Schedule_Generation
Else
Forms!Data_Pro_Patient_Entry![my_rep].Visible = False
Call generate_auto_id
End If
End Sub
如果您从代码中打开表单, 将“acFormAdd”添加到数据 DataMode 喜欢
docmd.OpenForm {FormName},acNormal,,,acFormAdd