[Resolvido]Função Randomize usando consulta com critério

Olá pessoal, boa tarde.
Seguinte estou tentando fazer um randomize com o exemplo do Grande JPAulo

Function aleatorio()
Randomize
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblSorteioParticipantesQry", dbOpenDynaset)
With rs
If .EOF Then
Exit Function
Else
Me.Vencedor.Visible = False
.MoveLast
.AbsolutePosition = CLng(Rnd() * .RecordCount)
Me.Nome_Membro = !Participante
Me.FotoMembro = !FotoMembro
Me.cxRegiao = !RegiaoNome
Me.cxSetor = !SetorNome
Me.cboIgreja = !IgrejaNome
Me.Telefone = !Telefone
Me.Celular = !Celular
Call colocafoto
End If
.Close
End With
Set rs = Nothing
Me.Vencedor.Visible = False
End Function

Private Sub Form_Timer()
Static Contador As Integer
On Error Resume Next

Contador = Contador + 1
Me.Vencedor.Visible = False
If Contador < 47 Then
If Contador = 1 Then
Call aleatorio
Me.TimerInterval = 200

ElseIf Contador = 2 Then
Call aleatorio
Me.TimerInterval = 190

ElseIf Contador = 3 Then

Call aleatorio
Me.TimerInterval = 180

ElseIf Contador = 4 Then
Call aleatorio
Me.TimerInterval = 170

ElseIf Contador = 5 Then

Call aleatorio
Me.TimerInterval = 160

ElseIf Contador = 6 Then

Call aleatorio
Me.TimerInterval = 150

ElseIf Contador = 7 Then

Call aleatorio
Me.TimerInterval = 140

ElseIf Contador = 8 Then

Call aleatorio
Me.TimerInterval = 130

ElseIf Contador = 9 Then

Call aleatorio
Me.TimerInterval = 120

ElseIf Contador = 10 Then

Call aleatorio
Me.TimerInterval = 110

ElseIf Contador = 11 Then
Call aleatorio
Me.TimerInterval = 100

ElseIf Contador = 12 Then
Call aleatorio
Me.TimerInterval = 90

ElseIf Contador = 13 Then
Call aleatorio
Me.TimerInterval = 80

ElseIf Contador = 14 Then
Call aleatorio
Me.TimerInterval = 70

ElseIf Contador = 15 Then
Call aleatorio
Me.TimerInterval = 60

ElseIf Contador = 16 Then
Call aleatorio
Me.TimerInterval = 50

ElseIf Contador = 17 Then
Call aleatorio

ElseIf Contador = 18 Then
Call aleatorio

ElseIf Contador = 19 Then
Call aleatorio

ElseIf Contador = 20 Then
Call aleatorio

ElseIf Contador = 21 Then
Call aleatorio

ElseIf Contador = 22 Then
Call aleatorio

ElseIf Contador = 23 Then
Call aleatorio

ElseIf Contador = 24 Then
Call aleatorio

ElseIf Contador = 25 Then
Call aleatorio

ElseIf Contador = 26 Then
Call aleatorio

ElseIf Contador = 27 Then
Call aleatorio

ElseIf Contador = 28 Then
Call aleatorio

ElseIf Contador = 29 Then
Call aleatorio

ElseIf Contador = 30 Then
Call aleatorio

ElseIf Contador = 31 Then
Call aleatorio

ElseIf Contador = 32 Then
Call aleatorio

ElseIf Contador = 33 Then
Call aleatorio

ElseIf Contador = 34 Then
Call aleatorio

ElseIf Contador = 35 Then
Call aleatorio

ElseIf Contador = 36 Then
Call aleatorio

ElseIf Contador = 37 Then
Call aleatorio

ElseIf Contador = 38 Then
Call aleatorio

ElseIf Contador = 39 Then
Call aleatorio

ElseIf Contador = 40 Then
Call aleatorio

ElseIf Contador = 41 Then
Call aleatorio

ElseIf Contador = 42 Then
Call aleatorio

ElseIf Contador = 43 Then
Call aleatorio

ElseIf Contador = 44 Then
Call aleatorio

ElseIf Contador = 45 Then
Call aleatorio

ElseIf Contador = 46 Then
Call aleatorio

ElseIf Contador = 47 Then
Call aleatorio

End If

End If
Me.Vencedor.Visible = True
End Sub


Funciona perfeito, mas eu queria usar um critério na consulta baseando-se no ID de outro formulario aberto
Exemplo:

Ou Usar na consulta assim: Como [Formulários]![FrmSorteioInicia]![cboSeleciona]
Só que assim não faz o randomize

ou usar o critério aqui: Set rs = CurrentDb.OpenRecordset("tblSorteioParticipantesQry", dbOpenDynaset)
ID_Sorteio_Nomes like cboSeleciona
Alguem sabe como fazer?

abs

Amigão, não testei por falta de tempo.

Teste;

Set rs = CurrentDb.OpenRecordset("Select * from tblSorteioParticipantesQry Where ID_Sorteio_Nomes=" & Me.cboSeleciona & "")

Perfeito, funcionou, muitissimo obrigado amigo!!!, ótimo fim de semana para vc

Resolvido, Sorry