[Resolvido]Popular formulário com dados de uma consulta

Olá,

Estou com problemas para popular os campos de um formulário a partir dos dados encontrados em uma query.

Essa query filtra a tabela e retorna somente uma linha. Preciso que os dados dessa linha sejam colocados no formulário em questão e que só sejam salvas as alterações após o comando do usuário por um botão.

Pesquisando me falaram para desvincular o formulário da query e fazer por VBA a população do formulário usando o OpenRecordSet(), o problema nesse caso é que ele sempre dá erro de argumentos faltando e se eu coloco 3 argumentos ele dá outro erro.

Alguém tem uma solução?

Obrigada,

Nat

Olá, Nat, e bem-vinda ao fórum
Podia ter publicado o código que está a usar para ajudar-nos a perceber os campos e controlos.
No acontecimento que precisar preencher os controlos, coloque
dim Rst as dao.recordset
set rst=currentdb.openrecordset("SuaConsulta")
NomeControloA=rst("CampoA")
NomeControloB=rst("CampoB")
...

Set Rst as nothing

Olá Alexandre,

O código está basicamente igual ao seu


Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("EntradasEditQuery")
Trans_Date = Rst("Trans_date")
.. seguem os outros campos

o problema está na linha Set Rst = CurrentDb.OpenRecordset("EntradasEditQuery")
O debug para nela e pede pra adicionar no minimo 3 argumentos e se eu adiciono, ele dá outro erro

E a consulta EntradasEditQuery abre normalmente?
Pode disponibilizar a bd, mesmo com dados fictícios mas significativos para se avaliar

Sim, a query abre e faz a consulta corretamente.

No momento não posso colocar a bd aqui, consigo mandar hoje mais a noite

aqui anexado o bd

Bom dia,
Informem sempre todos os passos até encontrar o erro. Neste caso, os dados a preencher no formulário

no formulário EntradasEditForm preencher NF_number, NF_serie e VendorCustomerCode com "1", o botão a esquerda seria para popular o formulario com os dados obtidos na consulta EntradasEditQuery.
Quando clico ele dá o erro falando que faltam argumentos.

O código está no click no botão

Não tenho tempo de confirmar onde está o erro.
Neste caso, até para não ter consultas excedentárias e porque a consulta precisa de parâmetros do formulário, coloque tudo no formulário

Private Sub Refresh_Click()
'******** BOTAO REFRESH ***********
DoCmd.Requery
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT NF_Serie, NF_Number, VendorCustomerCode, Trans_Date, Nf_Specie, Issue_Date, UF, TotalAmt, CFOP, ICMSColumn, ICMSBase, ICMSRate, ICMSValue, IPIColumn, IPIBase, IPIValue, Month, Year, Range, Radical, RadicalDescription, CFOPDesc, PIS, COFINS, Observacoes FROM Entradas WHERE NF_Serie='" & Me.NF_Serie & "' AND NF_Number=" & Me.NF_Number & " AND VendorCustomerCode='" & VendorCustomerCode & "'")
Trans_Date = Rst("Trans_date")
Nf_Specie = Rst("Nf_Specie")
Issue_Date = Rst("Issue_Date")
UF = Rst("UF")
TotalAmt = Rst("totalamt")
Set Rst = Nothing
End Sub

Nomeie os controlos de forma normalizada

Perdão pela demora.

O código funcionou certinho.
Obrigada