[Resolvido]Suprimir mensagem de erro em caixa de texto desacoplada quando não há registros na tabela

Amigos.. tenho uma caixa texto com uma expressão utilizando o Selmed que exibe Nome do cliente ou fornecedor obedecendo ao critério de nulo ou não nulo em outra caixa texto no formulário.

Funciona perfeitamente quando há ao menos 1 registro na tabela... No entanto quando a tabela estiver zerada exibe mensagem de #Erro.

Como suprimir quando não há registros?

=SeImed(ÉNulo([CodigoFornecedor])=Falso;DPesquisa("RazãoSocial";"tblFornecedores";"idFornecedor = " & [CodigoFornecedor] & "");DPesquisa("Cliente";"tblCadCliente";"CódigoCli =" & [CodigoCliente] & ""))


Cumprimentos.

Olá Piloto,
Utiliza VBA para fazer as validações quer do controlo quer do conteúdo da tabela
No acontecimento adequado:
If isNull(CodigoFornecedor) Then
If IsNull(DLookup("Cliente","tblCadCliente","CódigoCli =" & [CodigoCliente])) Then
NomeControlo=Null
Else
NomeControlo=(DLookup("Cliente","tblCadCliente","CódigoCli =" & [CodigoCliente])
End If
Else
If IsNull(DLookup("RazãoSocial","tblFornecedores","idFornecedor = " & [CodigoFornecedor])) then
NomeControlo=Null
Else
NomeControlo=DLookup("RazãoSocial","tblFornecedores","idFornecedor = " & [CodigoFornecedor])
End If
End If
Abraço,

Boa tarde Grande Mestre!!

Pois, eu que ja tenho conhecimento razoável em vba aproveitei esta expressão de uma consulta que fiz.. e a utilizei na caixa texto para me poupar trabalho... creio que em realidade me deu mais... Lol!!!!


Eis:

Private Sub Form_Current()
If Me.txConta = "ENTRADAS" Then
    Me.lbContaRec.Caption = "Conta  a Receber"
Else
    Me.lbContaRec.Caption = "Conta a Pagar"
End If
Call PreencheClieFor
End Sub

Sub PreencheClieFor()
If IsNull(Me.IdFornecedor) And IsNull(Me.IdCliente) Then Exit Sub
If IsNull(Me.IdFornecedor) Then
    Me.txtBase = DLookup("Cliente", "tblCadCliente", "CódigoCli =" & Me.IdCliente & "")
    Me.lbBase.Caption = "Cliente"
Else
    Me.txtBase = DLookup("RazãoSocial", "tblFornecedores", "idFornecedor = " & Me.IdFornecedor & "")
    Me.lbBase.Caption = "Fornecedor"
End If
End Sub

Obrigado!

Só mais um passo
Em vez de
If IsNull(Me.IdFornecedor) And IsNull(Me.IdCliente) Then Exit Sub
Coloca
If Len("" & Me.IdFornecedor)=0 And Len("" & Me.IdCliente)=0 Then Exit Sub

Assim, prevê o nulo e o branco
Abraço,

Melhor mesmo.

Obrigado amigo e tenha uma ótima tarde.


Cumprimentos.