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


3 participantes

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

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 28/8/2015, 20:53

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 31/8/2015, 13:50

    Bom dia.
    Subindo o tópico.
    Obrigado


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 31/8/2015, 18:05

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

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

    Mensagem  Assis 31/8/2015, 18:46

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


    .................................................................................
    *** Só sei que nada sei ***
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 31/8/2015, 19:35

    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


    Última edição por Cláudio Machado em 2/9/2015, 14:34, editado 1 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 31/8/2015, 19:38

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 31/8/2015, 22:08

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 1/9/2015, 13:33

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 1/9/2015, 15:09

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 1/9/2015, 15:33

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 2/9/2015, 14:26

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 3/9/2015, 08:14

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 4/9/2015, 20:09

    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.



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 7/9/2015, 12:40

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 7/9/2015, 18:18

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 8/9/2015, 21:40

    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



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 8/9/2015, 23:42

    Claudio, será possivel postar em 2007 ou MDB (2003).
    Abraço
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 9/9/2015, 00:24

    Valeu amigo!
    Vou postar.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 9/9/2015, 01:10

    Teixeira segue amigo. Obrigado

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 9/9/2015, 11:53

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 9/9/2015, 14:06

    Desculpe mas fiz ontem pelo celular.
    Segue novamente.
    Obrigado

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 10/9/2015, 18:30

    Subindo tópico.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 11/9/2015, 14:29

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 11/9/2015, 14:53

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 13/9/2015, 15:46

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 13/9/2015, 16:45

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 13/9/2015, 16:48

    O original é este aqui.

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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 13/9/2015, 16:54

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 13/9/2015, 17:20

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 15/9/2015, 23:45

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 18/9/2015, 15:53

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 18/9/2015, 17:53

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 18/9/2015, 18:22

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 21/9/2015, 13:09

    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
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 21/9/2015, 23:19

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado 22/9/2015, 21:15

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Equipe Móvel (Funcionários) 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 23/9/2015, 12:42

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 11:58