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

[Anacleto]

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!

[Bráulio Figueiredo Pinto]

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
braulio@braulioti.com.br
http://www.skysistemas.com.br

[Anacleto]

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 braulio@braulioti.com.br.

Fico no seu aguardo!

Atenciosamente;

Adriano Anacleto

e-mails: anacleto@transtusa.com.br ou anacletotranstusa@hotmail.com

[Anacleto]

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