MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Misson Lira 4/9/2019, 21:26

    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 ?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 21/04/2011

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty Re: [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Marcelo David 5/9/2019, 13:41

    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.


    .................................................................................
    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Logo-coral Aprenda Formulário Desacoplado, clique aqui. | Marcelo David
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty Re: [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Misson Lira 5/9/2019, 13:57

    Bom dia !

    Pois o meu formulário não esta acoplado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1552
    Registrado : 13/12/2016

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty Re: [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Alexandre Fim 5/9/2019, 17:21

    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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 21/04/2011

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty Re: [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Marcelo David 5/9/2019, 17:45

    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.


    .................................................................................
    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Logo-coral Aprenda Formulário Desacoplado, clique aqui. | Marcelo David
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty Re: [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Misson Lira 13/9/2019, 14:33

    Conseguir resolver !!!!

    Muito obrigado pela ajuda dos senhores !
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1552
    Registrado : 13/12/2016

    [Resolvido]Ajuda com sql distribuir valor recuperado para campos Empty Re: [Resolvido]Ajuda com sql distribuir valor recuperado para campos

    Mensagem  Alexandre Fim 13/9/2019, 17:29

    Valeu Misson...
    O forum agradece.

    Abraços e sucesso


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 24/7/2021, 07:59