日期函数DATE和NOW()的区别

Private Sub Form_Load()
    ApplyTheme Me
    LoadLocalLanguage Me
   

    Me.InitData
    If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "SELECT * FROM [tbl_机械销售合同] WHERE [合同编号]=" & SQLText(Me.OpenArgs)
        LoadRecord "TMP_tbl_机械销售合同_List", "SELECT * FROM [tbl_机械销售合同_List] WHERE [合同编号]=" & SQLText(Me![合同编号])
    End If

    If Me.DataEntry Then
        Me![合同编号] = Null
        Me![审核状态] = "待审核"
   
    Me.btnSave.Enabled = Me.AllowEdits
    Me.复制销售单.Enabled = True
    Me.复制报价单.Enabled = True
    End If
   

    Me.sfrDetail.Requery
    Me.btnSave.Enabled = Me.AllowEdits
End Sub

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub
    If Not CheckRequired(Me.sfrDetail) Then Exit Sub

    Dim cnn: Set cnn = GetADOConnection()

    cnn.BeginTrans
    Dim blnTransBegin As Boolean: blnTransBegin = True

    If Nz(Me![合同编号]) = "" Then Me![合同编号] = GetAutoNumber("机械销售合同编号")
    Dim strSQL: strSQL = "SELECT * FROM [tbl_机械销售合同] WHERE [合同编号]=" & SQLText(Me![合同编号])
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
        rst![制单人] = [Forms]![SysFrmMain]![Nickname]
        rst![制单日期] = DATE
        rst![销售数量] = Me![sfrDetail]![总数]
        rst![销售金额] = Me![sfrDetail]![总额]
    rst.Update
    rst.Close

    cnn.Execute "DELETE FROM [tbl_机械销售合同_List] WHERE [合同编号]=" & SQLText(Me![合同编号])
    strSQL = "SELECT * FROM [tbl_机械销售合同_List] WHERE [合同编号]=" & SQLText(Me![合同编号])
    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_tbl_机械销售合同_List")
    Do Until rstTmp.EOF
        rst.AddNew
        UpdateRecord rstTmp, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
        rst![合同编号] = Me![合同编号]
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close

    cnn.CommitTrans
    blnTransBegin = False

    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation, , 1000
    WriteOperationLog "机械销售合同", "保存成功"
   
    'If Me.DataEntry Then
     '   Me.InitData
    'Else
    '    DoCmd.Close acForm, Me.Name, acSaveNo
    'End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Set rstTmp = Nothing
    Exit Sub

ErrorHandler:
    If blnTransBegin Then
        cnn.RollbackTrans
        blnTransBegin = False
    End If
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub