初始化ms访问表单字段

时间:2014-07-07 18:09:44

标签: forms vba ms-access initialization refresh

是否有用于初始化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

1 个答案:

答案 0 :(得分:1)

#1和2之间的唯一区别是事件处理程序。

1

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

2

Private Sub SomeButton_Click()
'Your code to save the record the user entered
DoCmd.GoToRecord , , acNewRec
End Sub

这两个Subs都应该转到下一个(新的)记录。

Me.Refresh

Me.Refresh仅更新当前表单中的记录,但不会显示新记录或已删除记录。