[Resolvido]Controle de KM

Uilson Brasil 6/6/2013, 16:31

Uilson Brasil: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1039
Registrado : 23/04/2013

Mensagem nº1

Controle de KM

Mensagem Uilson Brasil 6/6/2013, 16:31

Senhores, bom dia!

Tenho um desafio hoje e não estou conseguindo obter sucesso. Então espero contar mais uma vez com a experiência dos mestres desse excelente fórum.
A imagem anexo trata-se de um formulário de controle de km. O processo é simples: Quando o usuário manda inserir um novo registro é habilitada a CBO "MATRICULA" (essa que tem como rótulo "VEÍCULO"). após ele escolher o veículo, todos os dados são alimentados automaticamente, inclusive data, hora e o KM DE SAÍDA que é extraído do último registro através da função Dlast.
Vamos enfim ao que pretendo: Quando o usuário escolher o veículo - através da CBO - o sistema deverá verificar se o veículo está em uso, ou seja, se o campo "KMFIM" (KM RETORNO) for nulo significa que o veículo está em uso, o sistema reporta essa imformação ao usuário e limpa a CBO.

Desde já agradeço pela atenção,

By Uilson Oliveira

Anexos

ControleKm.zip: Você não tem permissão para fazer download dos arquivos anexados.; (54 Kb) Baixado 61 vez(es)

**Leandro** 6/6/2013, 19:45

Leandro

Leandro: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1601
Registrado : 12/11/2009

Mensagem nº2

Re: [Resolvido]Controle de KM

Mensagem Leandro 6/6/2013, 19:45

Uilson, eu aconselho fazer isso por Recordset.

Só aconselhar é fácil não é verdade? Laughing

PRa te ajudar mais efetivamente preciso das tabelas envolvidas nesse processo.

Inclusive vamso ver se tiramos essa DLast e deixamos por Recordset também.

Até mais.

.................................................................................
n

ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

Menu Treeview
Menu Treeview Atualização 2017
Restringir 'valores' lançados em caixa de combinação - Texto
Restringir valores lançados em caixa de combinação - Número
Modelo de Calendário

Uilson Brasil 6/6/2013, 20:39

Uilson Brasil

Uilson Brasil: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1039
Registrado : 23/04/2013

Mensagem nº3

Re: [Resolvido]Controle de KM

Mensagem Uilson Brasil 6/6/2013, 20:39

Leandro meu amigo,

Mas uma vez colocando-se a disposição. Ainda ontem me ajudou neste mesmo módulo. Com esse implemento o módulo "Controle de Km" o qual faz parte de um sistema em desenvolvimento, ficará 100%.

Segue o módulo anexo...

Grato! Uilson Brasil

Anexos

SysFrota.zip: Você não tem permissão para fazer download dos arquivos anexados.; (145 Kb) Baixado 100 vez(es)

**Leandro** 6/6/2013, 21:30

Leandro

Leandro: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1601
Registrado : 12/11/2009

Mensagem nº4

Re: [Resolvido]Controle de KM

Mensagem Leandro 6/6/2013, 21:30

Camarada, amanhã cabamos isso. Agora tenho que pegar meu filho na escola. Até.

.................................................................................
n

ALGUMAS SOLUÇÕES E IDEIAS EM ACCESS

Menu Treeview
Menu Treeview Atualização 2017
Restringir 'valores' lançados em caixa de combinação - Texto
Restringir valores lançados em caixa de combinação - Número
Modelo de Calendário

Uilson Brasil 6/6/2013, 23:50

Uilson Brasil

Uilson Brasil: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1039
Registrado : 23/04/2013

Mensagem nº5

Re: [Resolvido]Controle de KM

Mensagem Uilson Brasil 6/6/2013, 23:50

Valeu Leandro...

Uilson Brasil 8/6/2013, 17:18

Uilson Brasil

Uilson Brasil: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1039
Registrado : 23/04/2013

Mensagem nº6

Re: [Resolvido]Controle de KM

Mensagem Uilson Brasil 8/6/2013, 17:18

Amigo Leandro,

Alguma novidade ???

**Alexandre Neves** 9/6/2013, 13:18

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº7

Re: [Resolvido]Controle de KM

Mensagem Alexandre Neves 9/6/2013, 13:18

Aconselho a todos
1 - Quando disponibilizar alguma bd, não coloquem armadilhas que dificultam quem pretende ajudar (access invisível, senhas desnecessárias, código de fecho da bd durante a execução, etc.)
2 - Acompanhem o fórum. Muitas vezes o assunto já foi abordado até com as mesmas características.
3 - Nomeiem os controlos de forma normalizada (TxtQualquerCoisa, CxcQualquerCoisa, VerQualquerCoisa, CmdQualquerCoisa, etc.)

Sobre a sua dúvida, aconselho-o a colocar código para disponibilizar apenas os veículos que permitem inserir registos.
Assim
Private Sub NOVOREG_Click()
If MsgBox("Deseja realizar um novo registro?", vbYesNo + vbDefaultButton1 + vbInformation, " Aviso") = vbNo Then Exit Sub
DoCmd.GoToRecord , , acNewRec
Me.MATRICULA.RowSource = "SELECT MATRICULA, PLACA, USUARIORESP, MARCA, MODELO FROM tblFrota WHERE Matricula NOT IN (SELECT Matricula FROM tblControlKm WHERE IsNull(KmFim))"
Me.PRIMREG.Enabled = False
Me.PROXREG.Enabled = False
Me.REGANT.Enabled = False
Me.ULTREG.Enabled = False
Me.Alterar.Enabled = False
Me.Editar.Visible = False
Me.salvar.Enabled = True
Me.MATRICULA.Enabled = True
Me.USUARIO.Enabled = False
Me.PLACA.Enabled = False
Me.MARCA.Enabled = False
Me.MODELO.Enabled = False
Me.DATA_S.Enabled = False
Me.DATA_R.Enabled = False
Me.HORA_S.Enabled = False
Me.HORA_R.Enabled = False
Me.KMINI.Enabled = False
Me.KMFIM.Enabled = False
Me.RetVeic.Enabled = False
Me.AltUser.Enabled = True
Me.MATRICULA.SetFocus
End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Uilson Brasil 10/6/2013, 00:52

Uilson Brasil

Uilson Brasil: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1039
Registrado : 23/04/2013

Mensagem nº8

Re: [Resolvido]Controle de KM

Mensagem Uilson Brasil 10/6/2013, 00:52

Mestre Alexandre, boa noite!

Primeiramente obrigado pelas dicas no caput da mensagem (Sou novo no fórum e ainda não estou totalmente habituado).
Quanto ao código ficou perfeito, prático e eficiente.

Muito obrigado por compartilhar seu conecimento.

Abraços,

Uilson Brasil

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº9

Re: [Resolvido]Controle de KM

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Controle de KM

Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Re: [Resolvido]Controle de KM

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada