我正在尝试自动填写文本/复选框。我只想在按下按钮时执行此操作。当前,设计视图中的表单详细信息具有1行文本/复选框(图1),当在表单视图中运行查询时,它将在该列中创建19个项目(图2)。
我可以只输入amount.value =“ 99999”来填写第一行,但是其余的“框”都没有,所以我无法为其添加值... 仅当按下按钮时,我才能向其中添加默认值吗?
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
Dim stDocName As String
stDocName = "InsertParaTypes"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click