'UPDATE DE MARCA, MODELO, MOTORIZAÇÃO, ANO INICIO, ANO FIM, DATA MATRICULA, NUMERO DE PORTAS E COMBUSTIVEL QUANDO VFV EXISTIR
Private Sub Comando713_Click()
If Not IsNull(Me!Texto689.Value) Then
    Me!Combinação65.Value = DLookup("[MARCA]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Combinação69.Value = DLookup("[MODELO]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Texto73.Value = DLookup("[ANO INICIAL]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Texto75.Value = DLookup("[ANO FINAL]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Texto137.Value = DLookup("[MOTORIZAÇÃO]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Combinação611.Value = DLookup("[NUMERO DE PORTAS]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Texto137.Value = DLookup("[MOTORIZAÇÃO]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Texto445.Value = DLookup("[CODIGO MOTOR]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me!Combinação435.Value = DLookup("[COMBUSTIVEL]", "[CONSULTA DE VFV INSERIR PEÇAS]")
    Me.Texto696.SetFocus
    Me.Combinação65.AllowValueListEdits = False
End If
End Sub

Me.Combinação65.AllowValueListEdits = False