Ir para conteúdo


Foto

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


3 respostas neste tópico

#1 Anacleto

Anacleto
  • Membros
  • 12 posts

Postado 17 September 2013 - 21:10 PM

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.c...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!



#2 Bráulio Figueiredo Pinto

Bráulio Figueiredo Pinto
  • Membros
  • 15 posts
  • Gender:Male
  • Location:Sabará / MG

Postado 22 September 2013 - 20:47 PM

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



#3 Anacleto

Anacleto
  • Membros
  • 12 posts

Postado 24 September 2013 - 06:13 AM

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



#4 Anacleto

Anacleto
  • Membros
  • 12 posts

Postado 16 October 2013 - 07:44 AM

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





Responder



  


0 usuário(s) está(ão) lendo este tópico

0 membros, 0 visitantes, 0 membros anônimos