acho q do jeito q o Ramos fez, irão aparecer todos os registros do cliente e não o q o alemão está querendo...
obs em negrito está a parte do cód
pra ter o resultado q o alemão quer teria q ser...:
1 tem q ter uma tabela Clientes, de onde vamos extrair os codigos do cliente..
(vc precisa saber qtos clientes tem ok?) então...(usando DAO tá!?)
Ssql= "select * from clientes"
set tabela =banco.openrecordset(Ssql, dbopensnapshot)
do until tabela.eof
tabela .movenext
loop
N=tabela.recordcount
tabela.close
'Agora a gente faz outro loop pra ir pegando cliente a cliente a qtde de ordens de serviço....no caso vou armazenar em uma matriz M (q tem q ser declarada no declarations do seu form)
redim M (N,2)
' ainda usando o mesmo sql, popula a matriz
set tabela =banco.openrecordset(Ssql, dbopensnapshot)
x=0
do until tabela.eof
x=x+1
M(x,1)=tabela("codcliente")
tabela .movenext
loop
tabela.close
agora pegando as ordens de serviço
for i=1 to N
ssql="select * from ordemservico where codcliente=" & M(i,1)
do until tabela.eof
tabela .movenext
loop
M(i,2)=tabela.recordcount
tabela.close
next i
