是否有用于初始化MS Access表单上所有字段的通用VBA代码?我在VBA编码部门非常弱,但我希望在以下两个条件下初始化表单:
1)当有人双击表单打开它时。 2)有人点击“保存”按钮后保存新创建的记录。
非常感谢任何帮助。
修改
我尝试在“点击”事件中使用me.refresh
代码,但似乎没有初始化所有字段。表单中唯一的代码如下:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control
On Error GoTo Err_BeforeUpdate
If Me.Dirty Then
If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
"Save Record") = vbNo Then
Me.Undo
End If
End If
Exit_BeforeUpdate:
Exit Sub
Err_BeforeUpdate:
MsgBox Err.Number & " " & Err.Description
Resume Exit_BeforeUpdate
End Sub
答案 0 :(得分:1)
#1和2之间的唯一区别是事件处理程序。
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub SomeButton_Click()
'Your code to save the record the user entered
DoCmd.GoToRecord , , acNewRec
End Sub
这两个Subs都应该转到下一个(新的)记录。
在Me.Refresh
:
Me.Refresh仅更新当前表单中的记录,但不会显示新记录或已删除记录。