[Resolvido]Populando 10 Objetos Picture no form atraves de recordset

Bem amigos... isto não seria problema, se todos os caminhos da imagem ficassem em apenas 1 registro..
Assim:

ID | Nome | Caminho1 | Caminho2 | Caminho3 | .....

O que ocorre é que é 1 registro para cada caminho com a mesma ID
Assim:

ID | Nome | Caminho |
1 | XXXX | XXXXXXX |
1 | XXXX | YYYYYYY |
1 | XXXX | NNNNNNN |... até no máximo 10


Os Objetos Imagem ficam na mesma página no form....


A SQL para isso:

StrSQLDetentos = "SELECT Detentos.ID, Detentos.Nome, tblDigital.ID_Detento, tblDigital.Digital," _
& "tblDigital.Dedo, tblDigital.Mao, tblDigital.Caminho_Imagem " _
& " FROM Detentos LEFT JOIN tblDigital ON Detentos.[ID] = tblDigital.[ID_Detento]" _
& " WHERE tblDigital.Caminho_Imagem Is Not Null And tblDigital.ID_Detento = " & Me!CboDetento.Column(0) & ";"


Set rs = db.OpenRecordset(StrSQLDetentos)



Mas Se mando contar o rs.RecordCount Apenas me retorna 1 registro apenas



Como fazer isto?


Obrigado pela ajuda

Você quer contar os rs com a mesma ID? No exemplo abaixo, 3 com ID = 1? Se for isso, pode ser feito usando "SELECT * FROM Tabela WHERE ID=" & Me.ID & ""

Amigão Vamos partir desta ideia seguinte... veja so o que pretendo...

Popular os controles imagem a cada loop, modificando o nome do controle imagem...

O nome dos controles estão assim: Img1, Img2, Img3 etc... ate 10


Set rs = db.OpenRecordset(StrSQLDetentos)

N = 0
Do While Not rs.EOF

N = N + 1
ControlName = "img" & N & ".Picture"
MsgBox ControlName
MsgBox rs.RecordCount
Me("" & ControlName & "") = rs!Caminho_Imagem
rs.MoveNext
Loop

Creio que entenderá o que pretendo observando o código acima....

Resolvi Assim:



Private Sub ConsultaDetento()
Parametros_de_Inicializacao "SysPen.par" 'Carrega parâmetros do caminho do BD
Dim db As DAO.Database 'Banco de Dados
Dim ws As DAO.Workspace 'WorkSpace
Dim rs As DAO.Recordset 'Recordset
Dim StrSQLDetentos As String 'Variável para SQL
Dim N As Double 'Variável para receber um numéro que será utilizado na junção do nome do controle onde vai o caminho da imagem, a cada loop sendo modificado indicando o objeto seguinte a recber o valor do recordset
Dim ControlName As String 'Variavel que recebera o nome do controle


Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(DirBancoDados & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")


StrSQLDetentos = "SELECT Detentos.ID, Detentos.Nome, tblDigital.ID_Detento, tblDigital.Digital," _
& "tblDigital.Dedo, tblDigital.Mao, tblDigital.Caminho_Imagem " _
& " FROM Detentos LEFT JOIN tblDigital ON Detentos.[ID] = tblDigital.[ID_Detento]" _
& " WHERE tblDigital.Caminho_Imagem Is Not Null And tblDigital.ID_Detento = " & Me!CboDetento.Column(0) & ";"


Set rs = db.OpenRecordset(StrSQLDetentos)

N = 0 'Aplico valor 0 à variável para iniciar o loop com valor zerado para receber o primeiro numero que faz referência ao objeto
Do While Not rs.EOF

N = N + 1 'Somo o N + 1 para o primeiro objeto
ControlName = "img" & N ' Adiciono o nome do controle que sera a juncao do prefixo "img" e a variavel N
Me("" & ControlName & "") = rs!Caminho_Imagem ' Carrgego o objeto TextBox com o caminho contido no reciordset, que por esta em colunas, a cada loop e modificado para o registro seguinte do mesmo
rs.MoveNext ' Proximo registro contido no recordset, que esta filtrado pela clausula WHERE (10 registro para o mesmo ID)
Loop ' Realiza o loop no codigo para o proximo registro do recordset



Saudacoes