[Resolvido]Função DLookup para inserir registros em tabela.

Prezados, boa noite,

1° Em meu BD tem uma chamada tblEnviado, onde são importados dados de XML por um botão de comando. Até aqui beleza!

2º Minha dúvida é a seguinte: Nesse mesmo BD tem um formulario chamado form_Itens enviados, neste possui uma combobox do tipo data/hora que está ligada a tblEnviado; queria saber se é possível usar a função DLookup no evento após atualizar da combo de modo que ao digitar uma data a rotina pudesse inserir essa data em todos os campos da coluna chamada (DataFechamento) da tblEnviado que estiver em branco?

Grato,

Noite..

Não necessita da função Dlookup...

Basta uma caixa texto para digitar a data..
E a função UPDATE para atualizar todos os registros cuja data são nulas...

CurrentDb.Execute "UPDATE Sua Tabela Set SeuCampo = #" & SeuCampo & "# WHERE CampoDataNaTabela = """

Algo por ai...

Cumprimentos.

Tentei a função sugerida mas retorna com erro: Erro de sintaxe 3075

O código ficou assim,
CurrentDb.Execute "UPDATE Enviado Set cboFechamento = #" & cboFechamento & "# WHERE Fechamento = """

Campo da tabela = Fechamento (tipo Data abreviada)
Campo do formulário = cboFechamento (não acoplado – tipo Data abreviada)

Tente assim

CurrentDb.Execute "UPDATE Enviado Set cboFechamento = #" & cboFechamento & "# WHERE IsNull(Fechamento) = True"

Agora deu erro 3061 - Parametros insuficiente. Eram esperados 1.

CurrentDb.Execute "UPDATE Enviado Set cboFechamento = #" & cboFechamento & "# WHERE IsNull(Fechamento) = True


Ai em vermelho vai o campo da tabela!!!! e não o nome da cbo.

Cumprimentos.

Harysonh,

Perfeito isso funcionou muito bem...

Grato,

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

O Fórum agradece o Retorno.