[Resolvido]Equipe Móvel (Funcionários)

Galera boa tarde.

Bem, estou quebrando a cabeça pra montar este sistema.
Consiste no seguinte, Tenho uma tabela de Funcionários e uma tabela de Clientes.
Criei um forma para solicitar um Funcionário com a devida Função dele quando o encarregado precisar.
Quando o Encarregado digita a Data de Início e Fim do período necessitado, o sistema gera vários registros entre estas datas.
Até aqui tudo bem.
Só que em outro setor, o Chefe de Manutenção terá que liberar este funcionário escolhido.
Ai é que vêm o problema:
Como faço para que o sistema identifique se por acaso aquele Funcionário (função) já está locado em algum lugar naquele mesmo período solicitado?
E como ele reserva este funcionário para um futuro período?
Tá complicado demais fazer isso. Além dos relatórios que são ainda mais complicados, já procurei na internet e aqui no fórum, mas não encontro nada parecido.
Por favor, quem puder ajudar, explico melhor.
Obrigado

Não consegui postar o arquivo aqui no fórum.
Segue o link do exemplo: https://www.dropbox.com/s/e46wqailr1bdxag/EQUIPE_MOVEL.zip?dl=0

Bom dia.
Subindo o tópico.
Obrigado

Olá Cláudio, não tive oportunidade de explorar o seu projecto, mas dei uma espreitadela.
Ao fazer a marcação, poderia fazer uma consult a verificar.
Exemplo

Verificar se DataInicoNovaMarcacao da equipe x existe da dataMarcadaInicio até dataMarcadaFim

O mesmo deveria ser efectuado ao colocar a DataFimNovaMarcaçao.

Fica sugestão.
Abraço

Viva Cláudio
Não consigo dar uma espreitadela.
Tenho o 2007.

Olá Assis. Companheiro!
Não seja por isso, segue em 2007.
Obrigado pela atenção

https://www.dropbox.com/s/y0dm4ityb7dqbr9/EQUIPE_MOVEL_2007.zip?dl=0

Teixeira, dica legal.
Mas cara eu já quebrei tanto a cabeça com isso, que nem ideias para fazer isso eu tenho mais.
Sinceramente, só não desisti, porquê o patrão botou a corda em meu pescoço pra esse projeto.
Até hoje, foi a única coisa que não consegui desenvolver ainda.
Se puder ajudar com mais esclarecimentos sobre isso, agradeço.

Olá, é a tabela EQUIPE_MOVEL que tem as marcações?
E os campos é Periodo_Inicial e Periodo_Final?
No aguardo

Não, eu tentei trabalhar com ela, mas não deu certo.
Mas se achar que dá pode ser essa mesma.
Hoje estou trabalhando com a EQUIPE_MOVEL_SUB.
Sim é Periodo_Inicial e Periodo_Final na tabela EQUIPE_MOVEL.

Obrigado amigo.

Olá Cláudio, efectuei um pequeno exemplo com base na sua tabela.
O código utilizado é o seguinte:

Código:

Private Sub cmdVerificar_Click()
    'ahteixeira 2015 - maximoaccess
    If IsNull(Me.noFunc) Then MsgBox "Escolha funcionarios", vbInformation, "": Me.noFunc.SetFocus: Exit Sub
    If IsNull(Me.dtInicial) Then MsgBox "Escolha data inicial", vbInformation, "": Me.dtInicial.SetFocus: Exit Sub
    If IsNull(Me.dtFinal) Then MsgBox "Escolha data final", vbInformation, "": Me.dtFinal.SetFocus: Exit Sub
    
    Dim xVer
    xVer = DLookup("Período_De", "EQUIPE_MOVEL_SUB", "EQUIPE_MOVEL_SUB.Funcionário = " & Me.noFunc.Column(0) & " and EQUIPE_MOVEL_SUB.Período_De>=#" & Format(Me.dtInicial, "mm/dd/yyyy") & "# and EQUIPE_MOVEL_SUB.Período_De<=#" & Format(Me.dtFinal, "mm/dd/yyyy") & "#")
    
    If IsNull(xVer) Then
        MsgBox "Data livre, pode finalizar marcação", vbInformation, ""
    Else
            If MsgBox("Já existe marcação, deseja ver as datas?", vbYesNo + vbQuestion, " ") = vbYes Then
               DoCmd.OpenQuery "qyr_frm_teste", acNormal, acEdit
            End If
    End If
End Sub

Nota:
A tabela de dados disponibilizada não é consistente.
Foi necessário efectuar um ajuste na tabela.
Sou da opinião que deverá efectuar uma verificação da modelagem de dados.

Segue link do meu exemplo para download: equip_movel_rev.zip
Abraço

Olá, so agora reparei que não li bem a sua última mensagem.
Fiz exemplo da SUB, na minha opinião o resultado é o mesmo.
Veja bem os seus dados, campos duplicados desnecessários, só a confundir.
Ex: Não precisa denpor o nome do funcionário se ja tem o código do funcionário.
Abraço

Bom dia.
Teixeira salvou meu emprego!
Difícil foi entender a lógica para fazer funcionar, mas acho que ficou do jeito que preciso.
Segue como ficou.

Agora se você percebeu, quando postei o tópico, falei sobre o relatório.
Então, preciso que neste mesmo sistema, o relatório individual saia com todos os dias do mês, incluindo os em que o funcionário está lotado.
Tipo:

Dia  Requisitante   Cliente   OS           Título da O.S.

01  
02
03   CLÀUDIO            HSA      000572    RECOMPOSIÇÃO DE PISO (FORNOVO)
04     CLÀUDIO            HSA      000572    RECOMPOSIÇÃO DE PISO (FORNOVO)
05     CLÀUDIO            HSA      000572    RECOMPOSIÇÃO DE PISO (FORNOVO)
07     CLÀUDIO            HSA      000572    RECOMPOSIÇÃO DE PISO (FORNOVO)
..
31

Se verificar, eu consigo gerar, mas só exibe os dias registrados.

Obrigado amigo.

Versão 2007
https://www.dropbox.com/s/y0dm4ityb7dqbr9/EQUIPE_MOVEL_2007.zip?dl=0

Versão 2010
https://www.dropbox.com/s/rw4odipnun0mo3r/EQUIPE_MOVEL_2010.zip?dl=0

Olá, obrigado pelo retorno.
Quanto ao emprego, espero que o seu Chefe esteja mais calmo e contente com o funcionário.

Bom, quanto à questão do relatório (nem vi o projecto postado), mas uma forma rápida e certa será criar uma tabela temporária, gerar um registo para cada dia (apenas com a data), finalizando lançando os registos com marcações (registados). Por fim será uma consulta agrupar por dia e já deve ter os dados como pretendido.

Recapitualando:
1º Criar tabela temporaria, com campos necessários para a listagem
2º Função para gerar um registo por dia, ou seja se pedir uma listagem de 02-05-2015 a 05-05-2015, deverá ter na tabela temporaria (4 registos, 1 para cada dia)
3º Consulta acrescentar os dados pretendidos os que você referiu "...eu consigo gerar, mas só exibe os dias registrados"
4º Ajustar o seu reporte com origem dos dados na tabela temporária.

Abraço

Hahaha.
Bem Teixeira, a questão do emprego, foi mais uma brincadeira minha, mas é claro que chefe nenhum fica satisfeito com demora, e eu já estava muito atrasado.

Bem, vou analisar a forma como você comentou, não entendi muito bem a questão, mas vou estudar melhor a lógica e tentar adaptar isso.
Obrigado de qualquer forma companheiro.

Olá Claudio, pode existir várias soluções,
Efectuei um teste, acho que desta forma consegue resolver o pretendido, veja:

Código:

Option Compare Database

Private Sub cmdVerificar_Click()
    'ahteixeira 2015 - maximoaccess
    If IsNull(Me.noFunc) Then MsgBox "Escolha funcionarios", vbInformation, "": Me.noFunc.SetFocus: Exit Sub
    If IsNull(Me.dtInicial) Then MsgBox "Escolha data inicial", vbInformation, "": Me.dtInicial.SetFocus: Exit Sub
    If IsNull(Me.dtFinal) Then MsgBox "Escolha data final", vbInformation, "": Me.dtFinal.SetFocus: Exit Sub

    'apagar tmp
    CurrentDb.Execute "DELETE * FROM tmpEquipMovel"
    

    'criar datas
    For x = Me.dtInicial To Me.dtFinal
        CurrentDb.Execute "INSERT INTO tmpEquipMovel ( Funcionário, Período_De ) SELECT " & Me.noFunc & ", #" & Format(x, "mm/dd/yyyy") & "#"
    Next

    'lançar movimentos existentes, ver consulta
    DoCmd.OpenQuery "qyr_frm_teste_imp", acNormal, acEdit
        
    MsgBox "operação concluída", vbInformation, ""
    
   'mostrar resultado em consulta
    DoCmd.OpenQuery "qry_tmpEquipMovel", acNormal, acEdit

End Sub


Foi um teste "expresso", segue abaixo o meu ficheiro:
equip_movel_rev2.zip

Abraço

Boa tarde Teixeira.
Realmente ficou muito bom, vou estudar a lógica e tentar adaptar ao meu sistema.
Te dou um retorno assim que terminar.
Obrigado pela grande ajuda companheiro.

Teixeira perfeito o Relatório Individual!
Adptei aqui e ficou ótimo. Obrigado de novo.

Mas, ainda no contexto deste sistema (Desculpa abusar da sua boa vontade)

Existe um "Relatório de referência cruzada dinâmica" (8-EQUIPE_MOVEL_CONSULTA_SEMANAL) que está repetindo os valores.
Cara já havia feito este relatório antes em outros sistemas, mas não encontro o problema, ele gera tudo certinho na consulta, mas quando visualizo o relatório dá xabú!

Não consigo entender.

https://www.dropbox.com/s/rw4odipnun0mo3r/EQUIPE_MOVEL_2010.zip?dl=0

Claudio, será possivel postar em 2007 ou MDB (2003).
Abraço

Valeu amigo!
Vou postar.

Teixeira segue amigo. Obrigado

https://www.dropbox.com/s/y0dm4ityb7dqbr9/EQUIPE_MOVEL_2007.zip?dl=0

Olá, exemplo que postou está a dar erros e falta modulos.
Verifique e poste exemplo funcional a partir do formulário 8-EQUIPE MOVEL RELATORIOS
Abraço

Desculpe mas fiz ontem pelo celular.
Segue novamente.
Obrigado

https://www.dropbox.com/s/y0dm4ityb7dqbr9/EQUIPE_MOVEL_2007.zip?dl=0

Subindo tópico.

Olá Claudio, testou o exemplo que postou, continua com erros.
Coloque em MDB (2003) e teste antes de postar.
Abraço

Bom dia amigo.
Testei e postei convertido.
Funciona normal.
Quais erros que estão dando?

Segue novamente.

https://www.dropbox.com/s/uxawwzta7skazq0/EQUIPE_MOVEL_2002.zip?dl=0

Olá Claudio, a ultima versão postada, já funfa sem erros.
Estive a ver o código. o reporte é efectuado via código.
Como não sei se está o código todo, fica mais complicado de analisar.
Acho que está a faltar a mudança do registo, pois está a repetir, vou ver melhor o código.

Entretanto, tem a base de dados do exemplo do código que utiliza (exemplo original), pode partilhar?
Interessante este código para utilizar com consultas de referencia cruzada.

Vamos ver se algum colega aqui do fórum também poderá dar alguma ajuda.
Abraço

Obrigado por estar me ajudando. O que te enviei, está completo, tanto os códigos quanto a base de dados. Tá faltando alguma coisa?

O original é este aqui.

https://support.microsoft.com/pt-br/kb/328320

Olá Claudio,
Obrigado pela partilha, ainda não vi, mas estou curioso.
Até agora estive de volta do seu problema, e nada como mudar o problema, acho que resolvi o que pretende sem uma única linha de código.
A origem dos dados do relatório (consulta sql) é dependente de outra consulta qry_Equipe_Movel_semanal
Gostaria de ter incluído tudo numa única consulta, mas confesso, tenho ainda muita dificuldade.
Segue meu exemplo de teste:
EQUIPE_MOVEL_2002alternativa.rar

Abraço

Obrigado amigo. Mas só vou poder testar amanhã, estou na rua e bem longe de casa.
Mas te dou um retorno disso.
Obrigado por me ajudar de novo.

Teixeira boa noite.
Ainda não te dei uma resposta porquê estou analisando melhor se será possível utilizar da forma que você postou.
É interessante e funcional.
Mas preciso fazer testes para ver se posso usar sua ideia.
Assim que finalizar te repasso aqui.
Obrigado novamente amigo.

Então Teixeira tudo bem?
Bem, realmente ficou bom a parte da do Relatório Semanal.

Como percebi que você é bom em Consultas, amigo preciso de uma última ajuda pra finalizar esse sistema.
Precisava que o Relatório Mensal exibisse todos os funcionários ao invés de somente os filtrados por data.
Ou seja, criei uma consulta de adição que gera os registros de todos os funcionários em uma tabela temp (assim como você fez com a individual)
só que não dá certo, porquê preciso que exiba todos os funcionários, mas que também filtre pelo período escolhido.

Têm como ajudar nisso (sou bom em vba e forms, mas em consultas, sou negação)

Obrigado amigo.

Olá Claudio, obrigado pelo retorno, os utilizadores do fórum agradecem.
Relativamente ao mensal, poste na versão como fez na mensagem n. 24 doo necessário do que tem e teste se rola sem erros.
Ficamos aguardar.
Abraço

Obrigado por seu interessa Alvaro, segue:

https://www.dropbox.com/s/lcokofvgu52lykd/EQUIPE_MOVEL_2002_II.zip?dl=0

Escolha a opção Mensal.

Abraço

Olá Claudio,
Volto a referir a modelagem de dados e campos repetidos.
Veja se atende o pretendido:
EQUIPE_MOVEL_2002_II_rev.rar
Abraço

Alvaro, obrigado pelas dicas, vou refazer estes forms e consultas para ficar mais profissa.
É que feito tudo na correria e o amigo ajudando, acaba ficando meio embolado.
Mas já já, dou como resolvido, só finalizando aqui.
Obrigado meu amigo.
Você me ajudou demais neste projeto.

Alvaro meu amigo.
Vou dar o tópico como fechado, qualquer coisa peço pra reabrir.
Realmente funcionou perfeitamente. Você é bom mesmo em consultas.
Muito obrigado mesmo por se dedicar em me ajudar.
Espero que no futuro, se precisar, eu possa ser útil. Obrigado mesmo.
Abraço querido.

Olá Cláudio Machado, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço