[Resolvido] Gravar Data Nula

Boa Tarde Amigos,

Estou com um problema para salvar datas em branco
em um formulário.
Estou tentando da maneira abaixo mas tá dando erro:

Código:


Private Sub bt_salva_Click()
strsql = "INSERT INTO tblteste (nome, dtini) " _
& "VALUES ('" & Me.txtNome & "', " _
& IIf(IsNull(Me.txtdata), Null, "#" & Me.txtdata & "#") & "); "
DoCmd.RunSQL strsql
End Sub

Quando preencho a data no campo funciona, mas se estiver em branco não vai.

Gostaria de saber se é possivel fazer desta maneira.

Desde já agradeço pela atenção.

Sds,

Eu prefiro usar DLookUp para gravação de dados.

Boa Noite Criquio, obrigado pelo retorno,

Não entendi como faria um dlookup para inserir campos em branco em um novo registro?

Tentei agora a noite com mais calma e consegui o resultado esperado, se vc puder

dar uma olhada se esta certo, desde já agradeço

segue abaixo:

Código:


Private Sub bt_salva_Click()
DoCmd.SetWarnings False
strsql = "INSERT INTO tblteste (nome, dtini, dtfim) " & _
"VALUES ('" & Me.txtnome & "', " & _
IIf(IsNull(txtdtini) Or Me.txtdtini = "", "Null", "#" & Format(Me.txtdtini, "dd/mm/yyyy") & "#") & ", " _
& IIf(IsNull(txtdtfim) Or Me.txtdtfim = "", "Null", "#" & Format(Me.txtdtfim, "dd/mm/yyyy") & "#") & "); "
DoCmd.RunSQL strsql
DoCmd.SetWarnings True
MsgBox " Registro incluido ", vbInformation
End Sub


Sds,

Me parece estar correto.
Na verdade, quando falei em DLookUp, estava querendo dizer RecordSet. Errei de nomenclatura, rsrsrs.

Valeu Amigão,

Obrigado

Sds,