1

Question

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

Answer 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仅更新当前表单中的记录，但不会显示新记录或已删除记录。

初始化ms访问表单字段

1 个答案:

1

2