[Resolvido]Campo data vazia - Registrar sem erro

Eu tenho o seguinte dilema, ao registrar campos na tabela, esta exibindo erro no cadastro do campo de Data Final = Vazia. Ele não é obrigatório.
só ele tá dando problema , tenho mais doi campos texto que não são obrigatorio e completam sem problemas.

Alguém tem uma dica?

Uso este aqui:

Private Sub BotaoRegistrar_Click()
Dim rs1 As DAO.Recordset

If Len("" & Me("TxtData")) > 0 Then

Preenchidos = True
End If


If Not Preenchidos Then MsgBox "Não tem dados para transferir.": Exit Sub

If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "CONFIRMAR") = vbNo Then Exit Sub

Set rs1 = CurrentDb.OpenRecordset("tblRegistrosSS", dbOpenTable)

With rs1

.AddNew
![DataInicial] = Me.TxtData
![TagEquip] = Me.TxtEquip.Column(1)
![Prioridade] = Me.TxtPrioridade
![TPM] = Me.tlSource.Column(1)
![Descrição] = Me.TxtDesc
![Grupo] = Me.TxtGrupo
![SS] = Me.TxtSS
![Departamento] = TxtEtiqueta
![SolicitadoPara] = Me.TxtDP.Column(2)
![ID] = Me.TxtDP.Column(1)
![Status] = Me.TxtStatus
![Obs] = Me.TxtObs.Column(0)
![GrupoR] = Me.TxtObs.Column(1)
![IDR] = Me.TxtObs.Column(2)
![Usuario] = Me.User
![DataFinal] = Me.TxtDataF
.Update

End With
Set rs1 = Nothing
MsgBox "Transferência confirmada." & vbCr & vbCr & I2 & " registros transferidos.", vbOKOnly + vbInformation, "Concluído"

Me.TxtData = Null
Me.TxtSS = Null
Me.TxtPrioridade = Null
Me.TxtEquip = Null
Me.TxtGrupo = Null
Me.TxtDesc = Null
Me.TxtDP = Null
Me.TxtObs = Null
Me.TxtDataF = Null
Me.tlSource = Null
Me.TxtEtiqueta = Null



End Sub

Olá Fabrícia,

Está apresentar o erro na tabela ou no formulário?
Dá algum erro ao guardar?

No aguardo.
Abraço

Mesmo com as alterações Ele continua dando erro de conversão de tipo de dados.

Funcionou sim, mas dessa forma:

If Not IsNull(Me.TxtDataF) Then
![DataFinal] = Me.TxtDataF
End If

Obrigado!