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

    [Resolvido]Erro no Parametro

    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1282
    Registrado : 07/12/2011

    [Resolvido]Erro no Parametro Empty [Resolvido]Erro no Parametro

    Mensagem  tauron 18/11/2014, 14:01

    Alguém poderia me ajudar neste código. este dando erro na linha em destaque.

    Private Sub Report_Open(Cancel As Integer)


    Dim intX As Integer
    Dim qdf As QueryDef
    Dim frm As Form

    Set dbsReport = CurrentDb
    Set frm = Forms!FTP

    Set qdf = dbsReport.QueryDefs("TESTEP")

    qdf.Parameters("Forms!FTP!datainicial") _
    = frm!DataInicial
    qdf.Parameters("Forms!FTP!datafinal") _
    = frm!DataFinal
    qdf.Parameters ("[Informe a Unidade] text(15)")

    Set rstReport = qdf.OpenRecordset()

    intColumnCount = rstReport.Fields.Count

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro no Parametro Empty Re: [Resolvido]Erro no Parametro

    Mensagem  Alexandre Neves 18/11/2014, 16:15

    Tem de começar a ganhar agilidade: qdf.Parameters("[Informe a unidade]") = InputBox("Informe a unidade.")


    .................................................................................
    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
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1282
    Registrado : 07/12/2011

    [Resolvido]Erro no Parametro Empty Erro no Parametro

    Mensagem  tauron 19/11/2014, 15:17

    Caro Mestre, realmente ainda tenho muito que aprender mas gostaria foi explicado porque ao abrir a diretamente a consulta é necessario informar as datas (inicial e final) e a unidade (apenas uma vez) e quando vou abrir o relatório é necessário informar a unidade três vezes.
    Na consulta:

    PARAMETERS [forms]![ftp]![DataInicial] DateTime, [forms]![ftp]![DataFinal] DateTime, [Unidade] Text ( 15 );
    TRANSFORM Sum(Teste.SomaDeQuant) AS SomaDeSomaDeQuant
    SELECT Teste.Definicao, Sum(Teste.SomaDeQuant) AS Quant
    FROM Teste
    WHERE (((Teste.Periodo) Between [forms]![ftp]![DataInicial] And [forms]![ftp]![DataFinal]) AND ((Teste.Sigla)=[Unidade]))
    GROUP BY Teste.Definicao, Teste.Sigla
    PIVOT Format([Periodo],"Short Date");

    No Abrir do Relatório:

    Private Sub Report_Open(Cancel As Integer)


    Dim intX As Integer
    Dim qdf As QueryDef
    Dim frm As Form

    Set dbsReport = CurrentDb
    Set frm = Forms!FTP

    Set qdf = dbsReport.QueryDefs("TESTEP")

    qdf.Parameters("Forms!FTP!datainicial") _
    = frm!DataInicial
    qdf.Parameters("Forms!FTP!datafinal") _
    = frm!DataFinal
    qdf.Parameters ("Unidade") _
    = InputText("Unidade")

    Set rstReport = qdf.OpenRecordset()

    intColumnCount = rstReport.Fields.Count

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro no Parametro Empty Re: [Resolvido]Erro no Parametro

    Mensagem  Alexandre Neves 19/11/2014, 15:57

    Boa tarde,
    Tente criar variável para trabalhar esses argumentos e, assim, introduzir apenas uma vez


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

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro no Parametro Empty Re: [Resolvido]Erro no Parametro

    Mensagem  Alexandre Neves 20/11/2014, 19:48

    Como anda o assunto?


    .................................................................................
    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
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1282
    Registrado : 07/12/2011

    [Resolvido]Erro no Parametro Empty Erro no Parametro

    Mensagem  tauron 20/11/2014, 21:50

    Como eu disse ainda tenho muito que aprender mas estou tentando resolver, tive um contratempo hoje mas vou retomar os estudos.
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1282
    Registrado : 07/12/2011

    [Resolvido]Erro no Parametro Empty Re: [Resolvido]Erro no Parametro

    Mensagem  tauron 28/10/2015, 18:05

    Obrigado a pela ajuda.

      Data/hora atual: 11/4/2021, 13:14