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

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

    Compartilhe

    vertemati
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  vertemati em Qui 23 Jan 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Sab 25 Jan 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.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

      Data/hora atual: Seg 05 Dez 2016, 04:24