Вставка текущей даты при создании записи?

Private Sub Form_BeforeInsert(Cancel As Integer)
    Me!data_sozd = Date
End Sub

Private Sub status_sps_AfterUpdate()
'Изменение статуса:
        With Me![02_подчиненная форма tst_004_car].Form.Recordset
        Do Until .EOF = True 'Цикл до конца
            .Edit
            !data_status = Date
            .Update
            .MoveNext
        Loop
    End With
 
End Sub

!data_status = Format(Date, "YYYYMMDD")

!data_status = Format(Date, "YYYY-MM-DD")
!data_status = Format(Date, "YYYY/MM/DD")

yyyy-mm-dd" \ "hh:nn:ss

Private Sub status_sps_AfterUpdate()
'Изменение статуса:
Dim v As Variant
Dim lRC As Long
    v = Me!status_sps
    MsgBox " - " & v
    
    With Me![02_подчиненная форма tst_004_car].Form.Recordset
        lRC = .RecordCount 'кол-во записей в подчинённой
        If lRC > 0 Then
            .MoveFirst ' в начало записей!
            Do Until .EOF = True 'Цикл до конца
                .Edit
                !data_status = Date
                !status_pl_car = v
                .Update
                .MoveNext
            Loop
        End If
    End With
 
End Sub

Private Sub Form_Current()
'Возвращаем значение статуса - если был
    Me!status_sps = Me![02_подчиненная форма tst_004_car].Form!status_pl_car
End Sub