Actualizar 2 listas diferentes

Olá a todos,

Preciso da vossa ajuda !

Tenho um formulário de registo de clientes que contèm uma lista que procura o nome dos clientes.Quando quero verificar/rectificar os dados do cliente procuro pelo nome e este automaticamente insere os dados do cliente.

Estou a usar o seguinte código para isso :
Private Sub Lista65_AfterUpdate()
' Localizar o registo que corresponde ao controlo.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Lista65], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Até aqui está a funcionar tudo bem, o problema é que necessitava acrescentar uma segunda lista dos numeros de reparações atribuidas a esse cliente, ou seja, necessitava que este código actualiza-se dois campos o do registo do cliente e uma outra lista dos numeros de reparações dó desse cliente.
Alguém sabe como posso fazer isso ?

Obrigado

Olá emame,

Dá para especificar melhor o que seria reparações em nosso jargão brasileiro? Seria alterações do registro? Quais tipos de dados que precisam ser alterados no registro do cliente? Outra coisa uma lista "clona" as informações já existentes no registro e não "insere". Só pra elucidar melhor o que ocorre. Estamos aí pra tentar ajudá-lo através de informações passadas bem detalhadas.

Olá,

então vou tentar explicar...

Temos uma loja de reparações onde fazemos o cadastro de clientes.Cada cliente quando vem pedir a reparação fica com um numero associado chamada folha de obra.
Imaginemos:
O Zé trouxe 2 aparelhos para reparar. 1 primeiro aparelho ficou com o numero de folha de obra nº 001 o segundo ficou com a folha de obra nº002.
Passado uns meses o aparelho deu problemas de novo, então o Zé trouxe novamente à loja para reparação. Nós procuramos o nome do Zé e vimos que na ficha dele existem 2 folhas de obra (aparelhos) associados ao seu nome o 001 e o 002, para identificar-mos qual deles se trata clicamos emcima do 001 e abre as especificações do aparelho se for esse que queremos então fazemos uma nova ficha de reparação.
Basicamente é isso aí.Fazermos uma ficha de cliente com base nos aparelhos que repararou.Assim caso ele quebre novamente sabermos quais as intervenções que já foram efectuadas.
O que tenho feito é então a lista com o nome do cliente que ao selecionarmos clona os dados do cliente e precisava que ele fitra-se também se possivel ao mesmo tempo para uma nova lista as folhas de obra associadas a esse cliente, para assim depois abrir as especificações do aparelho.
Parece complicado, não ?

Ok,

Mas que tipo de dado você se refere a reparação? Boleano ou String?

Reparado? Sim ou Não (Boleano)

ou

STATUS = "REPARADO"(String) 'OU "NÃO REPARADO"(String)

Exemplo:
Poderíamos contar clientes que tiveram seu aparelho consertado ou reparado assim:

Código do botão em um formulário:

Private Sub cmdCalc_Click()
Dim sRepar As Integer
Dim sStatus As String
sStatus = "REPARADO"
sRepar = DCount("Cliente", "SuaTabela","STATUS = '" & sStatus & "'")
Me.Total = sRepar 'Nome da caixa de texto não acoplado que receberá a variável sRepar
End Sub

OU:

Private Sub cmdCalc_Click()
Dim sRepar As Integer

sRepar = DCount("Cliente", "SuaTabela","REPARADO = True") 'Ou REPARADO = -1
Me.Total = sRepar 'Nome da caixa de texto não acoplado que receberá a variável sRepar
End Sub