[Resolvido]Ajuda com sql distribuir valor recuperado para campos

Boa tarde!

tenho uma tabela Chamada produto nela tem os seguintes campos

IDProduto
Descricao
CodBarra


tenho um formulário que iria receber o valores desses campos, com o seguinte comando

txtIDProduto
txtDescricao
txtCodBarra

Dim strListarFornecedor As String

strListar = "SELECT * FROM produto ORDER BY Descricao;"


O meu problema, é que não consigo distribuir os valores para os campos corretos, com esse código acima consigo trazer todos os valores da tabela corretamente, mais atribuir cada valor no seu campo já não consigo.

txtIDProduto = IDProduto
txtDescricao = Descricao
txtCodBarra = CodBarra

Alguém poderia me ajuda ?

Bom dia.

Se está carregando todos os registros da tabela porque não usa a própria tabela como fonte de registro?
Daí, em cada campo, em fonte do controle ponha o campo que quiser.

Bom dia !

Pois o meu formulário não esta acoplado

Olá Mission,

Faça assim:

Código:



Dim strListar As String
Dim rs As DAO.Recordset
Dim db As DAO.database


    'monta instrucao SQL
    strListar = "SELECT * FROM produto ORDER BY Descricao;"
    'Instancia o recordset com dados do SQL
    Set rs = db.OpenRecordset(strListar, dbOpenSnapshot)
   
    ' Se nao for o final do arquivo(END OF FILE), ou seja, se tiver registros, entao preenche os campos
    If Not rs.EOF Then
        txtIDProduto = rs("IDProduto").Value
        txtDescricao = rs("Descricao").Value
        txtCodBarra = rs("CodBarra").Value
    'Se não tiver registros, limpa os campos
    Else
        txtIDProduto = Empty
        txtDescricao = Empty
        txtCodBarra = Empty
    End If


    rs.Close  'fecha o recordset
    Set rs = Nothing 'LImpa da memória



Copie e cole o código e execute.

Boa sorte

Sim, da forma que quer o quê o Alexandre Fim
sugeriu também é minha sugestão.

Em tempo, a nível informativo/instrutivo:

Misson Lira escreveu:Dim strListarFornecedor As String

strListar = "SELECT * FROM produto ORDER BY Descricao;"

Isso aí se não for a fonte do registro de algum objeto, como formulário, relatório
ou alguma função do Access como o execute ou RunSQl, não passam de variáveis
que não consultam o banco.

Conseguir resolver !!!!

Muito obrigado pela ajuda dos senhores !

Valeu Misson...
O forum agradece.

Abraços e sucesso