[Resolvido]Procura com dois códigos

Ai pessoal,tenho esse exemplo e quero ver se é possivel abrir o form "Frm_Baixa_Titulos" pesquisando com dois tipos de códicos. No form "Frm_Busca" digito o código manual 0003357022015 que esta no "Frm_Cliente" codManual e abro o Frm_baixa_Titulos, o que queria é que se digitasse também o código 703 que é o CodDoCliente e abrir do mesmo o mesmoform com os dados correspondente.Ou fazer form de pesquisa para esse,acho que deu pra entender.
Abçs.

https://dl.dropboxusercontent.com/u/90217826/Parcelasys.rar

Kaynan, Espera que isso já estivesse sido resolvido ....

Veja se agora está de acordo com sua necessidade.

Código:

Option Compare Database
Option Explicit
Dim xCod As String
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Por Uilson Oliveira - uilsonbrasil@hotmail.com - Fórum Maximo Access ''
'Para Kaynan Almeida Rachid             -         Data: 14/06/2015    ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Texto0_AfterUpdate()
On Error Resume Next 'Quero que o código não seja interrompido mesmo que haja o erro 94
'----------------------------------------------------------------------------------
'Se a quantidade de caracteres digitados for igual a treze busco pelo código manual
'----------------------------------------------------------------------------------
If Len(Texto0.Text) = 13 Then
    xCod = DLookup("CodManual", "TitulosAreceberCons", "CodManual='" & Texto0 & "'")
    '-----------------------
    'Aqui eu trato o erro 94
    '-----------------------
    If err.Number = 94 Then: Texto0 = "": MsgBox "Título não localizado para o código digitado.", vbInformation, "Sistema": Exit Sub
    '-----------------------------------------------
    'Se o título existir abre o registro relacionado
    '-----------------------------------------------
    DoCmd.Close acForm, "frm_Busca"
    DoCmd.OpenForm "Frm_Baixa_Titulos", acNormal, , "CodManual='" & xCod & "'", , acWindowNormal
Else
    xCod = DLookup("CodDoCliente", "TitulosAreceberCons", "CodDoCliente=" & Texto0)
    '-----------------------
    'Aqui eu trato o erro 94
    '-----------------------
    If err.Number = 94 Then: Texto0 = "": MsgBox "Título não localizado para o código digitado.", vbInformation, "Sistema": Exit Sub
    '-----------------------------------------------
    'Se o título existir abre o registro relacionado
    '-----------------------------------------------
    DoCmd.Close acForm, "frm_Busca"
    DoCmd.OpenForm "Frm_Baixa_Titulos", acNormal, , "CodDoCliente=" & xCod, , acWindowNormal
End If
End Sub

Mas bah Tchê deu uma pane no meu pc que perdi quase tudo tinha,mas agora ta resolvido.
Obrigado mais uma vez.
Abç.

Valeu pelo retorno.

Abraços,