MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Alterar valor de um campo via VBA

    Compartilhe

    leo.gool
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 27/02/2018

    [Resolvido]Alterar valor de um campo via VBA

    Mensagem  leo.gool em 7/6/2018, 14:22

    Olá, eu tenho um código que verifica se o veículo está disponível para o uso, para ele estar disponível eu tenho duas formas, quando o usuário finaliza a saída informando a km de chegada dele ou quando ele libera o veículo por um botão, mas as vezes ocorre do veículo ter chego mas não teve a km de chegada informada, ai eu preciso de uma terceira forma de dar baixa no veículo, onde no momento em que informa que ele está indisponível pergunte se deseje dar baixa naquele veículo, segue meu código em que eu verifico se este está disponível ou não
    Código:

    Private Sub comboVeiculo()
       mediaVeiculo = comboVeiculo.Column(3)
    '   VERIFICA DISPONIBILIDADE VEÍCULO
       Dim qtdV As Integer
       Dim strVeiculoD As String
       strVeiculoD = comboVeiculo.Column(2)
       qtdV = DCount("[ID_eventos]", "Eventos", "[Situação Veículo] <> 'DISPONIVEL' And [Veículo/Placa] = '" & strVeiculoD & "'")
       If qtdV <> 0 Then
           MsgBox ("O veículo não se encontra no pátio")
           comboVeiculo.Value = Null
       End If
    End Sub

    leo.gool
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 27/02/2018

    Re: [Resolvido]Alterar valor de um campo via VBA

    Mensagem  leo.gool em 29/6/2018, 15:00

    Resolvi de outra maneira que me foi igualmente útil, eu filtrei o formulário para mostrar os registros em que o motorista informado estivesse com a situação diferente de DISPONÍVEL e no formulário o usuário poderia dar baixa no motorista

      Data/hora atual: 25/9/2018, 04:47