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

    Função não busca valores em formulário

    avatar
    vertemati
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 25/10/2012

    Função não busca valores em formulário Empty Função não busca valores em formulário

    Mensagem  vertemati 23/1/2014, 12:27

    Bom dia, estou usando um exemplo de calculo de horas extras que peguei na internet (não sei quem foi o autor), ele funciona bem ,mas precisa de alguns ajustes como por exemplo, especificar o intervalo de dias para o calculo de horas de um determinado funcionario... tentei filtrar digitando os parametros direto na consulta e funcionou perfeitamente, mas quando tento fazer referencia aos dados especificados em um formulario , ocorre o seguinte erro:

    Erro em tempo de execução '3061'
    Parâmetros insuficientes.Eram esperados 2.

    parece que ele não está passando para a função os dados do formulario, já que a consulta em si retorna o periodo correto. Alguém sabe me dizer o que devo fazer?? abaixo segue a função.

    Desde já, agradeço a atenção.





    Public Function fncSomaHe()
    If Not CurrentProject.AllForms("frmHe").IsLoaded Then Exit Function
    Dim rs As DAO.Recordset, TotalSoma, ht, hh As Double



    DoCmd.RunCommand acCmdSaveRecord
    Set rs = CurrentDb.OpenRecordset("qryHorasExtras")

    TotalSoma = 0
    Do While Not rs.EOF
       TotalSoma = fncSomaHora(TotalSoma, rs!HoraExtra)
       rs.MoveNext
    Loop
    Parent!Texto19 = TotalSoma
    ht = Split(TotalSoma, ":")
    hh = Round((Parent!Salário / 220) + 0.00001, 2)
    Parent!ValorPagar = (ht(0) * hh) + ((ht(1) / 60) * hh) + ((ht(2) / 3600) * hh)
    Set rs = Nothing
    End Function
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Função não busca valores em formulário Empty Re: Função não busca valores em formulário

    Mensagem  Dilson 25/1/2014, 21:58

    Era pra funcionar.
    Revise pois pode estar errando na sintaxe, possivelmente escrevendo o parâmetro de forma indevida como por exemplo o uso de aspas simples no lugar de aspas duplas ou mesmo errando no nome dos campos da tabela.

    Se desejar, coloque uma amostra do banco com a parte do problema que eu e todos do fórum podem dá uma olhada e tentar ajudá-lo.

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