MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda com módulo em formulário de multas

    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 20/5/2020, 20:41

    Sr. Boa tarde!!
    Estou precisando resolver uma questão com um módulo em um formulário de lançamento de multas que tenho em um sistema de controle de veículos que montei com a valiosa ajuda dos Srs.
    O problema é que quando vou lançar uma multa ele só libera a caixa do usuário após eu colocar a placa do veículo, isso se o veículo estiver em uso.
    A minha idéia é:

    Vamos supor que o veiculo placa WWL-1234 tenha sido usado em 18/05/2020 das 08:00 as 12:30 pelo usuário Antonio da Silva e das 13:10 as 17:50 pelo usuário José Alberto, pois bem

    Chegou uma multa hoje dia 20/05/2020 do veículo placa WWL-1234 de 18/05/2020 as 14:55.
    Pergunto:
    Tem como nesse formulário de lançamento de multas ao lancar a data da multa em uma janela ele me mostrar a seguinte informação:

    Antonio da Silva 08:00 as 12:30
    Jose Alberto 13:10 as 17:50

    Para que no campo usuário eu coloque o Jose Alberto, pois na hora da infração era ele quem estava usando o veículo

    Abaixo o módulo

    Código:
    Private Sub bt_gravar_Click()

    If IsNull(Me.Placa) Then
       MsgBox "Informe a Placa do Veículo", vbCritical, "Atenção"
    ElseIf IsNull(Me.DataDaMulta) Then
       MsgBox "Informe a Data da Infração", vbCritical, "Atenção"
    ElseIf IsNull(Me.Motivo) Then
       MsgBox "Informe o Motivo da Infração", vbCritical, "Atenção"
    ElseIf IsNull(Me.Usuario) Then
       MsgBox "Escolha o Usuário", vbCritical, "Atenção"
    ElseIf IsNull(Me.Local) Then
       MsgBox "Informe o Local", vbCritical, "Atenção"
    ElseIf IsNull(Me.Hora_infracao) Then
       MsgBox "Informe a Hora da Infração", vbCritical, "Atenção"
    Else

    Me.gravado = True

    DoCmd.RunCommand acCmdSaveRecord
     
       
    If MsgBox("Infração do Veículo gravada com Sucesso!" & vbCrLf & "Deseja registrar outra Infração ? ", vbQuestion + vbYesNo, "Informando") = vbYes Then
       DoCmd.GoToRecord , , acNewRec
    Else
       DoCmd.Close acForm, "veiculos_multas_registra"
    End If
                 
    End If

    End Sub

    Private Sub bt_novo_Click()
    DoCmd.GoToRecord , , acNewRec
    End Sub


    Private Sub Form_Current()
    If Me.gravado = True Then
       Me.bt_gravar.Visible = False
       Me.DataDaMulta.Enabled = False
       Me.Hora_infracao.Enabled = False
       Me.Placa.Enabled = False
       Me.Local.Enabled = False
       Me.Motivo.Enabled = False
       Me.Pontos.Enabled = False
       Me.Valor_infracao.Enabled = False
       Me.DataVcto.Enabled = False
       Me.gravado.Enabled = False
    Else
       Me.bt_gravar.Visible = True
       Me.DataDaMulta.Enabled = True
       Me.Hora_infracao.Enabled = True
       Me.Placa.Enabled = True
       Me.Local.Enabled = True
       Me.Motivo.Enabled = True
       Me.Pontos.Enabled = True
       Me.Valor_infracao.Enabled = True
       Me.DataVcto.Enabled = True
       Me.gravado.Enabled = True
    End If

    End Sub

    Private Sub Form_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End Sub

    Private Sub Placa_AfterUpdate()
    Usuario = DLookup("[Usuario]", "Tbl_Uso_Veiculo", "[Placa] = '" & Placa & "' and data_saida = #" & Format([DataDaMulta], "mm/dd/yyyy") & "#")
    End Sub

    Desde já agradeço a ajuda dos senhores
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Finformática em 27/5/2020, 19:08

    Caro Amigo,

    Coloque esse código dentro de uma nova consulta, faça as devidas adaptações e veja se ajuda em alguma coisa. Estou considerando aqui uma TbAluguel onde tenho a placa, data, intervalo de hora de locação e responsável. Outra TbMulta com placa, data, Horário. Fazendo o cruzamento das informações tenho quem estava com determinado carro em determinada hora da multa. Isso é uma sugestão.

    SELECT TbAluguel.Alu_Placa, TbAluguel.Alu_Data, TbAluguel.Alu_HoraInicio, TbAluguel.Alu_HoraFinal, TbAluguel.Locatário, TbMulta.Mul_Placa, TbMulta.Mul_Data, TbMulta.Mul_Horario
    FROM TbMulta INNER JOIN TbAluguel ON (TbAluguel.Alu_Data = TbMulta.Mul_Data) AND (TbMulta.Mul_Placa = TbAluguel.Alu_Placa)
    WHERE (((TbMulta.Mul_Horario) Between [Alu_HoraInicio] And [Alu_HoraFinal]));

    Lembrando que isso serve para locações em um mesmo dia. Para mais de um dia tem que fazer as devidas adaptações.

    Faz seus lançamentos de locações e multas normalmente e depois ver resultados nessa consulta.

    Espero que ajude em alguma coisa.

    Abraços (cuidado com corona)
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 4/6/2020, 14:00

    Bom dia Finformática

    Desculpe pela demora, mas é que estava com alguns problemas difíceis de serem resolvidos.
    Em primeiro lugar eu agradeço muito pela ajuda, mas não consegui fazer funcionar
    Estou colocando anexo o banco de dados para que você possa ver como ele funciona e ai poder me direcionar para uma resolução.
    Desde já agradeço a atenção.

    Um forte abraço
    Anexos
    [Resolvido]Ajuda com módulo em formulário de multas AttachmentControle de veiculos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (899 Kb) Baixado 10 vez(es)
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 4/6/2020, 14:02

    Em tempo

    O usuário do banco é: Teste
    A senha é: 123456

    Grato
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 9/6/2020, 18:49

    Boa tarde a todos

    Alguém ai consegue, por favor, me ajudar com essa questão?

    Desde já agradeço
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 13/7/2020, 15:39

    Bom dia a todos

    Alguém poderia me dizer, por favor, se o que preciso não é viável

    Desde já agradeço

    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 397
    Registrado : 25/02/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  FranklinJSP em 13/7/2020, 18:04

    Boa tarde Carlos!

    Em anexo

    Saludos
    Anexos
    [Resolvido]Ajuda com módulo em formulário de multas AttachmentControle de veiculos (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (893 Kb) Baixado 10 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 15/7/2020, 17:35

    Franklin
    Bom dia!

    Está perfeito a não ser pelo fato de, o formulário de multa não deixar colocar o usuário
    Se tentar gravar ele pede para selecionar o usuário mas o campo não habilita

    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 397
    Registrado : 25/02/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  FranklinJSP em 16/7/2020, 15:52

    Bom dia Carlos

    Funciona sim!!!
    Anexos
    [Resolvido]Ajuda com módulo em formulário de multas AttachmentControle de veiculos X (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (876 Kb) Baixado 11 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  Carlao2 em 17/7/2020, 19:56

    Boa tarde Franklin

    Ficou perfeito
    Agora é continuar com os ajustes para ficar redondo

    Muito obrigado pela valiosa ajuda

    Um forte abraço
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 397
    Registrado : 25/02/2016

    [Resolvido]Ajuda com módulo em formulário de multas Empty Re: [Resolvido]Ajuda com módulo em formulário de multas

    Mensagem  FranklinJSP em 18/7/2020, 19:36

    Que bom Carlos!!!

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 3/12/2020, 20:50