[Resolvido]Desativar um campo Controle e puder editar

Boa Tarde Amigos do Forum,

Tenho um formulário para registrar a abertura de viagens dos Motoristas onde o mesmo possui uma combo para selecionar o motorista, e após eu selecioná-lo, tenho uma caixa de texto que me retorna o último KM da última viagem fechada. O campo da caixa de texto no controle está assim:
=DMáx("KM_CHEGADA";"Movimento_Motoristas";"[Id_Motorista] = " & Formulários!Abrir_Viagem!cmbMotorista & "").
O que eu preciso é o seguinte:
Quando determinado Motorista não possuir nenhum registro de KM, eu possa colocar o KM Inicial na mesma caixa de texto, ou seja teria que cancelar o controle pra inserir um valor.

Se Alguém puder me ajudar , desde já Agradeço.

Sds,

Meio à pressa, mas é algo assim;

Private Sub SuaCombo_AfterUpdate()
If DCount("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Formulários!Abrir_Viagem!cmbMotorista & "") = 0 Then
Me.SuaCaixaTexto.ControlSource = ""
Else
Me.SuaCaixaTexto.ControlSource = DMáx("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Formulários!Abrir_Viagem!cmbMotorista & "")
End If
End Sub

Bom dia JPaulo,

Muito obrigado, sua dica foi de grande ajuda.

Só estou com uma dúvida.

Se eu colocar a extensão .ControlSource na linha Dmax o Form da

erro: #Nome

Mudei para .Value, e dá certo:

If DCount("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Forms!Abrir_Viagem!cmbMotorista & "") = 0 Then
Me.txtKM_PARTIDA.ControlSource = ""
Else
Me.txtKM_PARTIDA.Value = DMax("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Forms!Abrir_Viagem!cmbMotorista & "")
End If

Pode dar algum problema?

Nenhum penso eu.

É isso ae, como lhe disse foi meio à pressa, mas a ideia é essa.

JPaulo, aconteceu um probleminha sim.

Quando existe o KM do Motorista, ex: O último KM do Luiz da Silva foi de 43.500km.
Blz quando seleciono o Luiz aparece os 43.500km, mas a caixa de texto pode ser editada pelo operador.
Não sei se deu pra entender.Queria que a caixa de texto fosse editada somente se algum motorista não tivesse KM.

Desde já agradeço pela atenção.

Sds,

teste;

If DCount("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Forms!Abrir_Viagem!cmbMotorista & "") = 0 Then
Me.SuaCaixaTexto.Locked = False
Me.txtKM_PARTIDA.ControlSource = ""
Else
Me.txtKM_PARTIDA.Value = DMax("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Forms!Abrir_Viagem!cmbMotorista & "")
Me.SuaCaixaTexto.Locked = True
End If

Perfeito Amigão,

Só precisei liberar a cx de texto no começo do bloco, caso tenha algum erro de digitação.

Muito Obrigado mesmo.

Private Sub cmbMotorista_AfterUpdate()

Me.txtKM_PARTIDA.Locked = False
If DCount("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Forms!Abrir_Viagem!cmbMotorista & "") = 0 Then
Me.txtKM_PARTIDA = False
Me.txtKM_PARTIDA.ControlSource = ""
Else
Me.txtKM_PARTIDA.Value = DMax("KM_CHEGADA", "Movimento_Motoristas", "[Id_Motorista] = " & Forms!Abrir_Viagem!cmbMotorista & "")
Me.txtKM_PARTIDA.Locked = True
End If

End Sub

Sds,

Valew.