[Resolvido]Consulta em 2 recordset's quando um deles não há registro

Amigos São duas tabelas relacionadas a saber

1 - DetentosDigital
2 - FotosDetentos

Nem todos detentos possuem registro em Fotos Detentos

Nesta consulta:

Set rs = db.OpenRecordset(StrSQLDigital)
Set rsFotoDet = db.OpenRecordset(StrSQLFotoDetento)

rs.FindFirst "ID_Detento = " & Me.CboDetento.Column(0) ' Encontrar primeiro registro com o código do detento.

If rs.NoMatch Then ' Se o código ainda não está cadastradona tabela digitais...
EscreveLog ("Não há registros para este Detento em Digitais")
Me.CaminhoFotoRosto = rsFotoDet!CaminhoFotoRosto
Call PreencheFoto
rs.Close
rsFotoDet.Close
db.Close
Set rs = Nothing
Set rsFotoDet = Nothing
Set db = Nothing

****Ocorre o seguinte... se não há registro em digitais remeto para o If rs.NoMatch.....
Aparecerá o Log da mensagem e mostrará a foto do detento (Linha azul)

Ocorre que nem todos tem foto.. por isso dá erro na linha em azul..

O que fazer para seguir o codigo ignorando o registro nulo?


Grato

Talvez assim:

if Not IsNull(rsFotoDet!CaminhoFotoRosto) Then
Me.CaminhoFotoRosto = rsFotoDet!CaminhoFotoRosto
End If

Como só executa mais um comando apos a linha que da erro..

Tratei o erro.. e coloquei o comando seguinte la..

TrataErro:
If err.Number = -2147352567# Then
Call PreencheFoto
rs.Close
rsFotoDet.Close
db.Close
ws.Close
Set rs = Nothing
Set rsFotoDet = Nothing
Set db = Nothing

Else
DoCmd.SetWarnings True
DoCmd.Hourglass False
MsgBox Error, , "Erro nº" & err & " ao clicar CboDetento_AfterUpdate"
End If
End Sub

Mas testarei sua dica Criquio

Obrigado

Não deu...

Em realidade o recordset não é nulo.. O que ocorre é que não existe registro no recordset no momento pois não csrrga quando executo a SQL filtrada para ele, como não há registro na tabela, o recordset não é carregado...


Creio melhor deixar com o tratamento.. que acha?

A melhor solução é aquela que resolve

Tente com
If Rst.eof then
...

Tentarei sim.. Mas por hoje ja chega... rsrs
Segunda dou retorno..
Saudações Amigos