MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Inputbox num comando SQL

    Compartilhe

    Ernesto Silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 09/02/2011

    [Resolvido]Inputbox num comando SQL

    Mensagem  Ernesto Silva em Dom 20 Out 2013, 11:22

    Mais uma vez a solicitar a colaboração da malta.

    Pretendo colocar um critério num comando SQL (Where Conta = 'a'), mas depois de tantas voltas não consigo entender como posso fazer.Crying or Very sad 

    Junto o código para ver se alguém me dá um help.

    Sub ConsultaVBA()

    Dim ws As Workspace
    Dim db As Database
    Dim qry1 As QueryDef
    Dim qry2 As QueryDef
    Dim a As String

    DoCmd.DeleteObject acQuery, "ExtratoVBA"
    DoCmd.DeleteObject acQuery, "ExtratoVBAcum"

    a = InputBox("Qual a Conta?")


    Set ws = DBEngine.Workspaces(0)
    Set db = CurrentDb

    Set qry1 = db.CreateQueryDef("ExtratoVBA", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, (Debito-Credito) as Saldo FROM TransactionID WHERE Conta = 'a' ORDER BY Documento")
    Set qry2 = db.CreateQueryDef("ExtratoVBAcum", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, Formatcurrency(DSum('[Saldo]','ExtratoVBA','Documento <=' & [Documento])) as SaldoAcum FROM ExtratoVBA")


    End Sub

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: [Resolvido]Inputbox num comando SQL

    Mensagem  Alexandre Neves em Dom 20 Out 2013, 12:34

    Boa tarde,
    Crie nomes sugestivos
    Dim strConta as string
    strConta= InputBox("Qual a Conta?")

    Set qry1 = db.CreateQueryDef("ExtratoVBA", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, (Debito-Credito) as Saldo FROM TransactionID WHERE Conta = '" & strConta & "' ORDER BY Documento")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Ernesto Silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 09/02/2011

    Re: [Resolvido]Inputbox num comando SQL

    Mensagem  Ernesto Silva em Seg 21 Out 2013, 22:39

    Boas,

    Funcionou. bounce 

    Muito obrigado mais uma vez

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: [Resolvido]Inputbox num comando SQL

    Mensagem  Alexandre Neves em Seg 21 Out 2013, 22:47

    Faltou o Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Dom 11 Dez 2016, 00:12