registro selecionado inserir dados

boa tarde...


Estou com dificuldade na conclusão do comando abaixo.
Num form é listado os registros "aptos" para a finalidade que preciso. Então seleciono os registros que eu quero, e ao clicar no botão do formulario ele abre o relatorio, incluido somente os itens marcados.
Neste momento preciso que seja inserido um valor, "data", em campo especifico.
Alguem poderia me ajudar?

Private Sub Comando24_Click()

Dim x As Integer

FILTRO = "imp_nr_processo in('"

For x = 0 To Me.Selecionar_Processos_transp.ListCount - 1
If Me.Selecionar_Processos_transp.Selected(x) = True Then

FILTRO = FILTRO & Me.Selecionar_Processos_transp.Column(0, x) & "','"

End If

Next
FILTRO = FILTRO & "')"
DoCmd.OpenReport "rel_doc_transportadora", acViewPreview, , FILTRO


End Sub

Se esse campo encontra-se no relatório, pode ser assim:

DoCmd.OpenReport "rel_doc_transportadora", acViewPreview, , FILTRO
Reports!rel_doc_transportadora!CampoData = Date

bom dia....


obrigado pela força.

Mas acontece que esta data deve ser inserida numa consulta, assim ocorrerá naturalmente o filtro para inserção dos registros aptos.
então tenho uma tabela com todos os dados, tenho uma consulta, onde o formulario vê somente os processos aptos. É nesta consulta que tenho que inserir a data.

Se tem o campo Data nessa consulta, e se você quer filtrar os dados da data atual, tente seguir o mesmo esquema, colocando no critério do campo Data: =Data().
Se você quer é que esse campo fique com valor padrão a data atual, coloque no valor padrão desse campo, na consulta, a mesma coisa: =Data()

boa tarde...


não da certo uma vez que o form, só utiliza a consulta para buscar os registros, como não altero o insiro nenhum dado ele não faz a função de definir o valor pelo criterio.

Paulo