MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 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 em Qua 4 Set - 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3206
    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 em Qui 5 Set - 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.


    .................................................................................
    Marcelo David | [Resolvido]Ajuda com sql distribuir valor recuperado para campos LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    Misson Lira
    Avançado
    Avançado

    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 em Qui 5 Set - 13:57

    Bom dia !

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em Qui 5 Set - 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3206
    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 em Qui 5 Set - 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.


    .................................................................................
    Marcelo David | [Resolvido]Ajuda com sql distribuir valor recuperado para campos LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    Misson Lira
    Avançado
    Avançado

    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 em Sex 13 Set - 14:33

    Conseguir resolver !!!!

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em Sex 13 Set - 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: Ter 24 Nov - 8:40