Sistema de Emissão de Contratos

Boa Tarde, estou desenvolvendo um sistema de emissão de contratos, mas estou tendo um problema.

O problema é o seguinte, no meu formulário tenho um campo "txtCodContrato" onde eu aperto no F2 abre o formulário com os contratos e dando duplo clique preenche o campo "txtCodContrato" com o codigo (até aqui tudo bem), mas quando eu quero emitir um novo contrato eu devo ir ao campo "txtLocador", como o meu campo "txtCodContrato" esta com o foco aparece o seguinte:

Código:

Erro de sintaxe (operador faltando) na expressão da consulta 'ID = '

Como eu faço para eu ir para o campo "txtCodLocador" sem aparecer esse erro?

O código é esse:

Ao sair do Campo:

Código:


Private Sub txtCodContrato_Exit(Cancel As Integer)

Me.txtCodLocador = DLookup("IDLocador", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtCodLocatario = DLookup("IDLocatario", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtCodFiador = DLookup("IDFiador", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.cboTipoContrato = DLookup("TipoContrato", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtVlrPg = DLookup("ValorContrato", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtDPg = DLookup("DiaPagamento", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtDtInico = DLookup("DataInicio", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtDtTermino = DLookup("DataTerminino", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtPrazo = DLookup("Prazo", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
Me.txtObj_contrato = DLookup("ObjContrato", "tbl_CadContratos", "ID = " & Me.txtCodContrato & "")
End Sub



Não entendi, você quer ir para o campo txtCodLocador após sair do "txtCodContrato ?
Se for use o SetFocus, acho que é isso que quer né?

Ficou estranho sua dúvida sem ver o form.

Outra coisa, porquê não usa um botão para efetuar a busca dos códigos ao invés de usar o "Ao Sair" ?

Explique melhor.

No aguardo.