一、学友问题描述：

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

二、解决方法：

      该示例使用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

演示图：