Simular registos (parcelas) em falta entre datas

Boa noite

eu to fazendo um controle para saber se tem documentos faltando:
tenho um campo de documento = Holerite que é gerado a cada mes, e um campo competencia= 07/2015

no registro do funcionario tem a data de admissão eu queria que gerasse uma consulta que puxa desdo me que entrou ate a data atual e mostre quais competencia tem lancado daquele documento holerite e quais competencia ainda nao foram lançado tem como?

Boa noite montei um sistema simples para controle de documento, esse documento é holerite, eu gostaria de saber como faço um filtro para gerar um relatorio que mostre os meses faltantes entre duas datas?

Olá, para campos em branco podera ser:

= null

Ou

Empty

Eu normalmente gosto mais assim:
Len (CampoPretendido &"") = 0

Está a verificar o tamanho do conteodo do campo se é igual a zero.

Espero que ajude.
Abraço

No caso seria um campo data , tenho um formulario que tem data inicial e data final, e entre esse periodo voltar valor nulo

=Null(entre[formulario]![frmconsulta]![txtdatainicial] e [formulario]![frmconsulta]![txtdataFinal] Seria desse modo?

Olá, a instrução que postou está numa consulta?
Ual o nome do campo que contem a data?
Abraço

campo Competencia

Quero criar uma consulta aonde me retorne as competencia que falta dos documentos por funcionario, pois no caso holerite ele tem que ter todos os meses ai se nao tiver gero um relatorio mostrando qual competencia falta entre duas data.

sege o banco

Olá, estou no celular, de momento não posso ver.
Tente assim:

entre[formulario]![frmconsulta]![txtdatainicial] e [formulario]![frmconsulta]![txtdataFinal] AND Len([competencia] &"") = 0

Abraço

Infelizmente não deu certo, vlw pela ajuda

Olá, qual o formulario e relatorio em questão.
Abraço

Olá, veja se é o que pretende na Cons_Caixa_teste
Segue o meu ficheiro de teste:
ArquivoMorto_rev.zip
Abraço

Bom dia ahteixeira!

Então o que eu preciso seria do campo competência, nesse caso seria assim tenho os campos Documentos ; Funcionario e Competencia

ex: Funcionario teste
Documento Holerite
Competencia 01/2016 ; 02/2016

Ai filtro por um periodo de 01/01/2016 á 01/05/2016
ele me retorna que pro funcionario teste não foi lançado o holerite para competencia 03/2016; 04/2016 ; 05/2016

Olá André, bom dia
O seu projecto tem muitas tabelas e talvez não tenha compreendido.

1) A tabela que tem a origem dos dados é Det_Lancamento ?
2) Neste caso Holerite é o cod_lancamento igual a 5 ?
3) Vai existir na tabela os 12 meses para cada ano e existe algum identificador para verificar?
4) ou por exemplo se tiver JAN,FEV,MAR,ABR,MAI e DEZ lançados de um determinado ano verificar os registos em falta que seria JUN,JUL,AGO,SET,OUT,NOV
Se for a 4 vai ficar pesadito

Abraço

1) A tabela que tem a origem dos dados é Det_Lancamento.
2) o Holerite é o cod_lancamento igual a 5
no caso sera igual ao item 4

Então na
3) é não
Portanto não existe os registos dos meses em falta?

desculpa esse 3 nao entendi

Veja pergunta mensagem 11

3 é nao

Ok, voltando ao seu exemplo:

ex: Funcionario teste
Documento Holerite
Competencia 01/2016 ; 02/2016

Ai filtro por um periodo de 01/01/2016 á 01/05/2016

O resultado que iria ter é:
03/2016
04/2016
05/2016

é isso?
Abraço

ISSO MESMO

Olá André,
Em "cima do joelho", consegui fazer pequeno exemplo.
Foi necessário fazer uso de uma tabela temporária e uma consulta mais o código abaixo:

Código:


Private Sub cmdCompetencia_Click()
Dim x, y As Integer
Dim z
'ahteixeira 2016 para MaximoAccess
'verifica se foi escolhido funcionario
If Len(Me.ListaFuncionario.Column(0) & "") = 0 Then
    MsgBox "Escolha funcionario", vbInformation, ""
    Me.ListaFuncionario.SetFocus
    Exit Sub
End If

    'calcula meses entre datas, aqui foi dificl compara "alhos" com "bogalhos"
    'ou seja na sua tabela tem mm/aaaa e o campo é data e tem dd/mm/aaaa
    y = DateDiff("m", Me.txtDataI - 1, Me.txtDataF)
    
    'apaga dados temporarios
    DoCmd.RunSQL "DELETE tmpCompetencia.* FROM tmpCompetencia"
    
    If y > 0 Then ' se a diferença for maior que zero acrescenta meses à tabela temporaria
        For x = 1 To y
            z = "01/" & Format(DateAdd("m", x, Me.txtDataI - 1), "mm/yyyy")
            DoCmd.RunSQL "INSERT INTO tmpCompetencia ( FuncionarioTmp, CompetenciaTmp ) SELECT '" & Me.ListaFuncionario.Column(0) & "','" & z & "'"
        Next
        DoCmd.OpenQuery "tmpLancamentosFalta", acViewNormal
    End If

End Sub


Segue o meu teste ArquivoMorto_rev2.zip
Obtemos o resultado pretendido, mas talvez exista outra forma.
Abraço

isso ai, so uma duvida, vc pediu para fazer isso com holerite? como vc selecionou esse tipo de documento?

Olá , Veja na consulta, acho que coloquei fixo para o tipo 5.
Mas pode criar uma combo no form para o tipo de documento e referenciar para a consulta.
Acho que foi como fiz para o funcionário.
Mãos à obra.
Abraço

Cara Valeu, Brigadão, me desculpe nao consegui localizar o docmento na consulta

Olá Andre, obrigado pelo retorno.

Nota, tinha outro tópico aberto sem qualquer resposta, foi fundido por considerar a mesma questão. Tenha atenção as regras do fórum.
Abraço

Bom dia!

Peço desculpas, precisaria de mais uma ajuda, como posso fazer para selecionar varios funcionarios de uma so vez?

Olá André,
Veja se atende, veja o código:

Código:

Private Sub cmdCompetencia_Click()
'ahteixeira 2016 para MaximoAccess
Dim x, y As Integer
Dim z
  
    'verifica se foi escolhido funcionario
    If Len(Me.ListaFuncionarioInicial & "") = 0 Then
        MsgBox "Escolha funcionario inicial", vbInformation, ""
        Me.ListaFuncionarioInicial.SetFocus
        Exit Sub
    End If

    If Len(Me.ListaFuncionarioFinal & "") = 0 Then
        MsgBox "Escolha funcionario final", vbInformation, ""
        Me.ListaFuncionarioFinal.SetFocus
        Exit Sub
    End If

    If Me.ListaFuncionarioFinal < Me.ListaFuncionarioInicial Then
        MsgBox "O funcionario final não pode ser menor que o inicial, verifique.", vbInformation, ""
        Me.ListaFuncionarioFinal.SetFocus
        Exit Sub
    End If
      
    'calcula meses entre datas, aqui foi dificl compara "alhos" com "bogalhos"
    'ou seja na sua tabela tem mm/aaaa e o campo é data e tem dd/mm/aaaa
    y = DateDiff("m", Me.txtDataI - 1, Me.txtDataF)
    
    'apaga dados temporarios
    DoCmd.RunSQL "DELETE tmpCompetencia.* FROM tmpCompetencia"
    

    'corre recordset dos funcionarios
    Dim db As Database, RS As Recordset
    Dim strSQL As String
    Set db = CurrentDb
        strSQL = "SELECT TB_CadFunc.[Codigo] FROM TB_CadFunc WHERE TB_CadFunc.[Codigo] >= " & Me.ListaFuncionarioInicial & " And TB_CadFunc.[Codigo] <= " & Me.ListaFuncionarioFinal
        Set RS = db.OpenRecordset(strSQL)
        With RS
            Do While Not .EOF
                If y > 0 Then ' se a diferença for maior que zero acrescenta meses à tabela temporaria
                    For x = 1 To y
                        z = "01/" & Format(DateAdd("m", x, Me.txtDataI - 1), "mm/yyyy")
                        DoCmd.RunSQL "INSERT INTO tmpCompetencia ( FuncionarioTmp, CompetenciaTmp ) SELECT '" & RS.Fields(0) & "','" & z & "'"
                    Next
                End If
               .MoveNext
            Loop
        End With
    
    RS.Close
    
    Set RS = Nothing
    Set db = Nothing

    DoCmd.OpenQuery "tmpLancamentosFalta", acViewNormal
End Sub


Segue o meu teste ArquivoMorto_rev3.zip

Abraço

Meu amigo, sei que é pedir muito mais esse é o mesmo padrão para eu selecionar varios tipos de documentos?
Tem como eu por na consulta tmpLancamentosFalta, aparecer tambem documento?

Por Algo mais complexo, de a datas dos periodos fossem filtradas no registro do funcionarios como data de admissão ate data de demissão, caso não houvesse data de demissão seria a data atual, existe essa possibilidade?

Olá André, o céu é o limite.
No entanto está na hora de arregaçar as mangas e mãos à obra.
O conceito é o mesmo.
Estude as alterações do exemplo 2 para o 3.

Na minha opinião, você tem um sistema tipo avenças ou quotização mensal.
Sendo este o caso eu modelava o meu projecto para gerar a linha do movimento no seu vencimento e teria outro campo data para o pagamento.
Assim ficava muito mais simples a sua gestão (apenas a minha opinião).

Nota: Alterei o título do tópico para ficar mais fácil e compreensivo nas pesquisas.
Abraço