Entre para seguir isso  
Seguidores 0

Controle de Saida e Entrada de Veiculos.....

4 posts neste tópico

Postado

Boa Noite!

Possuo um controle de portaria onde é registrado toda saída e entrada dos veículos através do VBA. São utilizadas duas UseForm, uma para saída e outra para entrada, segue abaixo o link.

http://www.4shared.com/file/KYgI13Os/controle_portaria25-05-Forum_2.html

O que preciso fazer é no momento do cadastro de saída do veiculo da empresa for efetuado e caso seja realizado outro cadastro de saída sem que o veiculo retorne houvesse um bloqueio não possibilitando o operador cadastrar outra saída visto que já houve o registro de saída e esse carro ainda não registrou sua entrada.

Do mesmo modo ocorre com o veiculo que está entrando na empresa, caso o veiculo não tenha registro de saida não pode deixar registrar a entrada desse veiculo.

Preciso muito deste auxilio, só me falta essas condições para concluir o aplicativo.

Seria uma forma de deixar condicionado! Fico no aguardo!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

Olá, Anacleto!

Baixei a sua planilha mas tive problemas na hora de executar. Você faz uma chamada a uma DLL 32 bits e meu Sistema Operacional é 64 bits. Enfim, não consegui editar sua planilha mas vou lhe propor uma abordagem simples. Coloque uma nova coluna na planilha. Quando houver uma saída de veículo, marque um "X" nesta coluna e apague o "X" na entrada. No formulário de saída você verifica se existe ou não o "X" no veículo e caso exista, uma mensagem de erro será emitida.

Caso não tenha entendido a abordagem, sinta-se a vontade para entrar em contato comigo por e-mail. Desta forma posso fazer um exemplo simples e te enviar para facilitar sua vida.

Grande abraço.

Bráulio Figueiredo Pinto
[email protected]
http://www.skysistemas.com.br

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

Bom dia, Bráulio!

Desde já agradeço sua atenção em tentar me auxiliar!

Entendi sua dica, entretanto não consegui colocá-la em pratica, desta forma encaminhei um e-mail para [email protected].

Fico no seu aguardo!

Atenciosamente;

Adriano Anacleto

e-mails: [email protected] ou [email protected]

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

Bom dia, Pessoal

Alguém poderia me ajudar em uma lógica de programação VBA para o registro de saída de veiculo bloquear se o operador quiser realizar por engano duas vezes o numero do veiculo que já tem registrado a saída e que ainda não retornou para as dependências da empresa

Este é o código que utilizo para o botão para cadastrar as Saidas

Private Sub CommandButton2_Click()
'Ativar a primeira planilha
ThisWorkbook.Worksheets("Controle").Activate
'Selecionar a célula A3
Range("A3").Select

'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = cpFrota.Value
ActiveCell.Offset(0, 1).Value = cpPlaca.Value
ActiveCell.Offset(0, 2).Value = cpDescricao.Value
ActiveCell.Offset(0, 3).Value = cpSetor.Value
ActiveCell.Offset(0, 4).Value = cpmatri.Value
ActiveCell.Offset(0, 5).Value = cpCondutor.Value
ActiveCell.Offset(0, 6).Value = cpData.Value
ActiveCell.Offset(0, 7).Value = cpKm.Value
ActiveCell.Offset(0, 8).Value = cpdestino.Value
ActiveCell.Offset(0, 9).Value = cpobservi.Value

'Limpar as caixas de texto
cpPlaca.Value = Empty
cpDescricao.Value = Empty
cpSetor.Value = Empty
cpCondutor.Value = Empty
cpData.Value = Empty
cpKm.Value = Empty
cpdestino.Value = Empty
cpobservi.Value = Empty

'Limpar as caixas de combinação
cpFrota.Value = Empty
cpmatri.Value = Empty


'Colocar o foco na primeira caixa de texto
cpFrota.SetFocus
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0