[Resolvido]2 pesquisas mesma ação

Bom dia, o código abaixo faz uma pesquisa com os criterios passados, mas eu queria fazer uma outra pesquisa na mesma ação, ou seja, quando chama-lá, gostaria de chamar outra pesquisa também. EX



Pesquisa 01
'By JPaulo ® Maximo Access
On Error Resume Next

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

On Error Resume Next
strSQL = "SELECT * FROM cad_animais1 WHERE codigo_animal = " & codigo_animal & " and entrada = " & entrada & " and status = '" & status & "'"


Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.teste = rs("idade")




Else

Me.teste = ""
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End If


Pesquisa 02

'By JPaulo ® Maximo Access
On Error Resume Next

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

On Error Resume Next
strSQL = "SELECT * FROM cad_animais1 WHERE registro_votacao = " & codigo_animal & "

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.teste = rs("nome")




Else

Me.teste = ""
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End If

Tente:

Dim db As DAO.Database
Dim db2 As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strSQL As String
Dim str2SQL As String

Na segunda pesquisa, adicione o 2 como nas linhas acima.

Criquio:

O Altair ainda não retornou do Post de ontem e abriu outro na mesma secção. Só para lembrar que era útil saber do post anterior já que o assunto também diz respeito.

Obrigado. Funcionou. Ficou da seguinte forma

'By JPaulo ® Maximo Access
On Error Resume Next

Dim db As DAO.Database
Dim db2 As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strSQL As String
Dim str2SQL As String

On Error Resume Next
strSQL = "SELECT * FROM cad_animais1 WHERE codigo_animal = " & teste1 & ""


Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
'Me.entrada.SetFocus
Me.teste2 = rs("nome")
'Me.link_foto = rs("link_foto")



Else


rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If


On Error Resume Next
str2SQL = "SELECT * FROM cad_animais1 WHERE entrada = " & teste3 & ""


Set db2 = CurrentDb
Set rs2 = db2.OpenRecordset(str2SQL)
If Not rs2.BOF Then
'Me.entrada.SetFocus
Me.teste4 = rs2("status")

'Me.link_foto = rs("link_foto")



Else


rs2.Close
Set rs2 = Nothing
db2.Close
Set db2 = Nothing






End If


Até a próxima.

Obrigado pelo retorno. Passando o tópico a Resolvido.