MaximoAccess

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

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 : 10/02/2011

    [Resolvido]Inputbox num comando SQL

    Mensagem  Ernesto Silva em Dom 20 Out 2013, 3:52 pm

    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    Registrado : 06/11/2009

    Re: [Resolvido]Inputbox num comando SQL

    Mensagem  Alexandre Neves em Dom 20 Out 2013, 5:04 pm

    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 : 10/02/2011

    Re: [Resolvido]Inputbox num comando SQL

    Mensagem  Ernesto Silva em Ter 22 Out 2013, 3:09 am

    Boas,

    Funcionou. bounce 

    Muito obrigado mais uma vez
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    Registrado : 06/11/2009

    Re: [Resolvido]Inputbox num comando SQL

    Mensagem  Alexandre Neves em Ter 22 Out 2013, 3:17 am

    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: Ter 26 Set 2017, 3:49 am