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


2 participantes

    [Resolvido]Tem um método facil para converter uma consulta para VBA

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Tem um método facil para converter uma consulta para VBA Empty [Resolvido]Tem um método facil para converter uma consulta para VBA

    Mensagem  Connekta Informatica 24/2/2014, 11:21

    Bom dia,

    Nos meus sistema sempre foram criado muitas consultas. Apesar da quantidade ser muito grande, resolvi converter para vba.

    Será que existe um método fácil para fazer esse processo?

    Pois são muitas consultas para converter.

    Sendo consultas Acréscimo, Atualização e Exclusão.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Tem um método facil para converter uma consulta para VBA Empty Re: [Resolvido]Tem um método facil para converter uma consulta para VBA

    Mensagem  Cláudio Más 24/2/2014, 12:53

    Bom dia,

    O que quer dizer com converter para vba?
    Usar a instrução da consulta em um recordset?
    Nesse caso, só precisa alternar a consulta para o "Modo SQL" e copiar a instrução.
    Se utilizar o "Documentador de Banco de Dados", poderá visualizar todas as instruções de todas as consultas em um relatório, mas não conheço nenhuma ferramenta para gerar o código correspondente.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Tem um método facil para converter uma consulta para VBA Empty Re: [Resolvido]Tem um método facil para converter uma consulta para VBA

    Mensagem  Connekta Informatica 24/2/2014, 13:04

    Pode me ajudar a elaborar algumas:

    Código:

    INSERT INTO tblVENDAA ( CodigoBarras, PrecoUnitario, Qtde, Desconto, Acrescimo, SubTotal )
    SELECT Formulários!frmVENDAA!txtCodigoBarras AS Expr1, Formulários!frmVENDAA!txtPrecoUnitario AS Expr3, Formulários!frmVENDAA!txtQtde AS Expr4, Formulários!frmVENDAA!txtDesconto AS Expr5, Formulários!frmVENDAA!txtAcrescimo AS Expr6, Formulários!frmVENDAA!txtSubTotal AS Expr7;



    Código:

    UPDATE tblPRODUT SET tblPRODUT.Estoque = tblPRODUT!Estoque-Formulários!frmVENDAA!txtQtde
    WHERE (((tblPRODUT.CodigoBarras)=[Formulários]![frmVENDAA]![txtCodigoBarras]));



    Código:

    UPDATE tblVENDAA INNER JOIN tblPRODUT ON tblVENDAA.CodigoBarras = tblPRODUT.CodigoBarras SET tblPRODUT.Estoque = tblPRODUT!Estoque+tblVENDAA!Qtde;


    Código:

    DELETE tblVENDAA.Codigo
    FROM tblVENDAA;



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Tem um método facil para converter uma consulta para VBA Empty Re: [Resolvido]Tem um método facil para converter uma consulta para VBA

    Mensagem  Cláudio Más 24/2/2014, 13:38

    Consultas do tipo ação (acréscimo, atualização, exclusão) são executadas assim, por exemplo:

    Código:
    CurrentDb.Execute "DELETE tblVENDAA.Codigo FROM tblVENDAA"

    Código:
    CurrentDb.Execute  "UPDATE tblPRODUT SET tblPRODUT.Estoque = tblPRODUT!Estoque-" & Forms!frmVENDAA!txtQtde & " WHERE tblPRODUT.CodigoBarras=" & Forms![frmVENDAA]![txtCodigoBarras]"

    Se o código de barras for do tipo texto:

    Código:
    CurrentDb.Execute  "UPDATE tblPRODUT SET tblPRODUT.Estoque = tblPRODUT!Estoque-" & Forms!frmVENDAA!txtQtde & " WHERE tblPRODUT.CodigoBarras='" & Forms![frmVENDAA]![txtCodigoBarras] & "'"
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Tem um método facil para converter uma consulta para VBA Empty Re: [Resolvido]Tem um método facil para converter uma consulta para VBA

    Mensagem  Connekta Informatica 25/2/2014, 17:58

    Valeu, vou fazer aos pouquinhos.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Conteúdo patrocinado


    [Resolvido]Tem um método facil para converter uma consulta para VBA Empty Re: [Resolvido]Tem um método facil para converter uma consulta para VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:30