[Resolvido]Alterar valor de um campo via VBA

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

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