MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Trocas de lubrificantes

    avatar
    staruck
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/05/2012

    [Resolvido]Trocas de lubrificantes Empty [Resolvido]Trocas de lubrificantes

    Mensagem  staruck em 14/9/2017, 19:21

    Boa Tarde
                  Senhores estou desenvolvendo um sistema de controle de frota e tenho a alguns meses pesquisado nesse forum, mas ainda não encontrei e venho pedir a ajuda de voces. Como estou fazendo por partes vou disponibilizar esse modulo que é o controle de  troca dos lubrificantes, já que tenho máquinas que trabalham por horas e veiculos por kilometragem então pairou o seguinte:

    - ao selecionar hodometro a kilometragem tem que ficar ativa;
    - ao selecionar horimetro as horas devem ficar ativa


    Quando selecionar uma das alternativas ou mais, as outras não podem receber dados, por exemplo se selecionar "motor" seja por km ou horas, então só o campo motor recebe dados os outros não


    Todo mes se recebe o diario de bordo onde é extraido a última kilometragem ou hora anotada pelo motorista/operador e lança-se no sistema que ao confrontar com a última troca, avisa se já está no tempo de trocar.

    Mais ou menos isso, alguma idéia?
    Anexos
    [Resolvido]Trocas de lubrificantes AttachmentBanco de Dados1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (179 Kb) Baixado 18 vez(es)
    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  Cláudio Machado em 15/9/2017, 14:56

    Bom dia.
    Simples.
    Ao receber foco no campo inclua este código:

    Para Horímetro:
    Código:

    Me.kilometragem.Enabled = False
    Me.Horas.Enabled = True

    Para Kilometragem:

    Código:

    Me.kilometragem.Enabled = true
    Me.Horas.Enabled = false

    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]Trocas de lubrificantes 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    staruck
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/05/2012

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  staruck em 15/9/2017, 16:11

    Tão simples e tão cego valeu por essa parceiro!

    Só ainda estou encrencado na outra opção pois acontece que por exemplo o óleo do motor é uma quilometragem ou tempo e o óleo de transmissão, câmbio, freio, etc.. são cada um outras quilometragens ou tempos, é nesses problemas que estou me batendo, veja ´so:

    Imagine um veículo que chega para fazer a troca do óleo do motor e da transmissão o do motor é trocado a cada 12000 Km e da transmissão -e de 35000 Km, acontece que se escolher o de 12000 vai também para o campo transmissão e vice -versa. Não sei se ficou claro minha colocação.

    E um abraço!
    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  Cláudio Machado em 15/9/2017, 16:58

    Não entendi muito bem, faça simulações por favor.
    No aguardo.


    .................................................................................
    " 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]Trocas de lubrificantes 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    staruck
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/05/2012

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  staruck em 15/9/2017, 19:04

    Prezado Claudio.
    O que eu estava tentando explicar é o seguinte:

    O veiculo chega no setor de manutenção para fazer a troca do óleo do motor que tem um período de troca a cada 12000 Kms rodados ou 06 meses. Mas também tem a transmissão que leva outro tipo de óleo e que tem um periodo de troca maior a cada 35000 Kms ou 01 ano. Acontece que se voce perceber sempre que eu escolho por exemplo óleo de motor e óleo de transmissão não estou conseguindo colocar periodos diferentes pois os campos estão preenchendo com a primeira escolha ou seja se escolher 12000 ele vai fazer a soma de 12000 tanto no motor como na transmissão. agradeço a paciencia
    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  Cláudio Machado em 15/9/2017, 21:28

    Agora entendi.

    Veja se é isso que precisa.
    Fiz algumas alterações.
    Agora é só adaptar ao seu sistema.

    Abraço
    Anexos
    [Resolvido]Trocas de lubrificantes AttachmentBanco de Dados1_alt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (62 Kb) Baixado 25 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]Trocas de lubrificantes 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    staruck
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/05/2012

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  staruck em 16/9/2017, 01:58

    Claudio meus parabens, é isso mesmo.

    Só uma dúvida, faço um registro tudo beleza escolho o tipo e preenche tudo ok, mas ao fazer um novo registro com nova placa, ao escolher o tipo volta as anotações do primeiro registro e não importa se estiver no décimo registro sempre volta ao primeiro o que pode estar causando isso? no mais um abraço!
    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  Cláudio Machado em 18/9/2017, 14:03

    Obrigado.

    No controle Tipo, substitua o código existente por este:

    Código:


    Private Sub Tipo_AfterUpdate()
    If Me.Tipo = "Motor" Then
        Me.Motor = True
    ElseIf Me.Tipo = "Transmissão" Then
        Me.Transmissao = True
    ElseIf Me.Tipo = "Câmbio" Then
        Me.Cambio = True
    ElseIf Me.Tipo = "Torque" Then
        Me.Torque = True
    ElseIf Me.Tipo = "Diferencial" Then
        Me.Diferencial = True
    ElseIf Me.Tipo = "Hidráulico" Then
        Me.Hidraulico = True
    ElseIf Me.Tipo = "Freio" Then
        Me.Freio = True
    End If

    Call Hidraulico_Click
    Call torque_Click
    Call transmissao_Click
    Call cambio_Click
    Call diferencial_Click
    Call freio_Click
    Call Motor_Click


    End Sub


    Em No Atual do form, substitua o existente por esse.

    Código:


    If Me.Tipo = "Motor" Then
        Me.Motor.Enabled = True
    ElseIf Me.Tipo = "Transmissão" Then
        Me.Transmissao = True
    ElseIf Me.Tipo = "Câmbio" Then
        Me.Cambio = True
    ElseIf Me.Tipo = "Torque" Then
        Me.Torque = True
    ElseIf Me.Tipo = "Diferencial" Then
        Me.Diferencial = True
    ElseIf Me.Tipo = "Hidráulico" Then
        Me.Hidraulico = True
    ElseIf Me.Tipo = "Freio" Then
        Me.Freio = True
    End If


    Call Hidraulico_Click
    Call torque_Click
    Call transmissao_Click
    Call cambio_Click
    Call diferencial_Click
    Call freio_Click
    Call Motor_Click


    Isso já resolve.
    O problema é que o form estava recarregando após escolher o tipo e assim voltava para o primeiro registro.

    No aguardo


    .................................................................................
    " 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]Trocas de lubrificantes 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    staruck
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/05/2012

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  staruck em 18/9/2017, 15:14

    Bom Dia!

    Muito obrigado Claudio, resolvido o problema só de um jeito um pouco diferente mas o seu é mais simples, vou continuar no desenvolvimento e depois eu coloco ele inteiro para que outros colegas possam aproveitar, é um sistema completo de manutenção para frota municipal inclusive com ordem de serviço e todo o tipo de acessório colocado nos veículos, onde até a disposição dos pneus no veículo é inclusa.

    Mais uma vez obrigado e um abraço a todos vcs!
    Cláudio Machado
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  Cláudio Machado em 18/9/2017, 17:53

    Boa tarde.
    Que bom que resolveu amigo.
    O fórum agradece o retorno.
    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]Trocas de lubrificantes 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado

    [Resolvido]Trocas de lubrificantes Empty Re: [Resolvido]Trocas de lubrificantes

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 01:43