文章/答案/技术大牛

发布

社区首页 >问答首页 >带有“新建记录”按钮的BeforeUpdate

问带有“新建记录”按钮的BeforeUpdate
EN

Stack Overflow用户

提问于 2019-11-14 04:56:12

回答 1查看 182关注 0票数 0

我有一个用户有时忘记保存的Access表单。我放置了一个BeforeUpdate触发器来弹出消息，提醒用户在采取任何操作之前保存或取消。

我在网上找到了这段代码，除了我的“新记录”按钮，它什么都能用。

据我所知，Me.Dirty应该能做到这一点。

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim ctl As Control
    On Error GoTo Err_BeforeUpdate

    ' The Dirty property is True if the record has been changed.
    If Me.Dirty Then
        ' Prompt to confirm the save operation.
        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

新记录的代码

Private Sub new_Click()
    njno = NewJobNbr()
    Job.Value = njno
    RnK.Value = ""
    Date_Requested.Value = ""
    Est_Time.Value = ""
    Originator.Value = ""
    Date_Required.Value = ""
    Description.Value = ""
    Reason_for_Request.Value = ""
    Comments.Value = ""
    Priority_Tasks.Value = ""
    TName.Value = ""
    Required.Value = ""
    Costing.Value = ""
    Completed.Value = ""
    Date_Completed.Value = ""
End Sub

vba

ms-access

ms-access-forms

beforeupdate

回答 1

Stack Overflow用户

发布于 2020-07-10 15:26:00

我真的不太明白njno是什么。如果文本框被绑定到窗体的RecordSource，那么。在form Current事件中使用：

Private Sub Form_Current ()

If Me.NewRecord Then
Job.Value = njno 
End if

End Sub

然后单击按钮Click event use：

Private Sub new_Click()
DoCmd.GoToRecod,,acNewRec
End sub

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/58845478

复制

相似问题

问带有“新建记录”按钮的BeforeUpdate
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问带有“新建记录”按钮的BeforeUpdateEN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问带有“新建记录”按钮的BeforeUpdate
EN