使用 NewRecord 属性来确定当前记录是否为新记录

时　间:2021-10-31 08:36:25
作　者:某.强人   ID：73257  城市：长沙
摘　要:使用NewRecord属性来确定当前记录是否为新记录。
正　文:

一、学友问题描述：

      如何确定当前记录是否为新输入的记录并为之作出提醒？

二、解决方法：

      该示例使用NewRecord属性进行判断。

代码如下：

Sub NewRecordMark(frm As Form)
    Dim intnewrec As Integer
    intnewrec = frm.NewRecord
    If intnewrec = True Then
        If MsgBox("是否输入一条新数据？", vbInformation + vbOKCancel) = vbCancel Then
            DoCmd.GoToRecord , , acPrevious
        End If
    End If
End Sub

Private Sub Form_Current() 
    NewRecordMark Form_表1  '窗体的 Current 事件中进行调用
End Sub

演示图：