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

    consulta SQL vba e geração de relatorio

    avatar
    caojcarlos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 28/02/2012

    consulta SQL vba e geração de relatorio Empty consulta SQL vba e geração de relatorio

    Mensagem  caojcarlos 20/2/2013, 18:17

    Primeiramente gostaria de dar meus parabens pelo forum é simplismente fantastico, as coisas que venho aprendendo com programação vba graças as experiencia de vocês. Como sou novo na programação surgem algumas duvidas, mas sei que para vocês deve ser fichinha.
    Vamos ao meu problema, estou fazendo um sistema simples de contas a pagar para a empresa onde trabalho e estou criando um formulario para dar entrada nos pagamentos, até ai tudo bem, criei um botao para gerar um relatorio de ficha de custo fixo caso o fornecedor seja de custo fixo(Ex LUZ, Agua, Telefone) ou solicitação de pagamento(pagamento Avulso) e atrelei ao botão o seguinte codigo. Gostaria saber se estou indo no caminho certo?

    Private Sub btRelSolPgto_Click()
    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    Dim strSql As Boolean


    strSql = DoCmd.RunMacro("select fixo from fornecedores where idfornec = " & Me.cboFornecedor.Column(0) & "; ")

    If strSql <> True Then
    strDocName = "RelSolPgto"
    strFilter = "idContaPagar = Forms!frmCtaPagarCadastro!idContaPagar"
    Else
    strDocName = "RelSolCustoFixo"
    strFilter = "idContaPagar = Forms!frmCtaPagarCadastro!idContaPagar"

    End If
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter

    end Sub
    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

    consulta SQL vba e geração de relatorio Empty Re: consulta SQL vba e geração de relatorio

    Mensagem  Cláudio Más 22/2/2013, 12:14

    strSql = DoCmd.RunMacro("select fixo from fornecedores where idfornec = " & Me.cboFornecedor.Column(0) & "; ")

    O que vc espera que ocorra no programa com a linha acima?

      Data/hora atual: 21/11/2024, 21:26