[Resolvido]numerar um campo da tabela de 1 a 10

Boa noite, venho pedi a vossa ajuda,

tenho duas tabelas.
tabela 1 - TblDador - campos ( DadorId, Nome, GrSanguineo, OBS)
tabela 2 - TblDoacoes - campos (DadorId, Data_Doacao, Num_Doacoes, Unid_Hospitalar), Ligadas pelos campos DadorID,

Pretendia fazer uma numeração das doações (Num_Doacoes) de 1 a 10 para cada Dador, quando chegasse aos 10 o proximo seria novamente 1

preciso para uma base de dados da instituição, poque a cada 10 doações tem direito a 1 premio.

Jorge Bolas

Em um botão:

Dim X as integer

For X = 1 to 10
CurrentDb.Execute "Insert Into TblDoacoes (Num_Doacoes) Values (""' & X & """)
Next X


Cumprimentos.

Boa Noite, e obrigado pela resposta

coloquei a expressao num botao e não fez nada, será que à aspas a mais??

cumprimentos

verifique o nome da tabela e campos.. veja se está igual ao do teu BD.


Cumprimentos.

Boa tarde, passa a explicar melhor:

na tabela TlDador tenho: António, José e Mário
na tabel TblDoacoes tenho:
António, 1,2,3,4 doações
José, 1,2,3,4,5,6,7,8,9 doações
Mário, 1,2,3,4,5,6.

Quando inserir uma doação ao António passará para 5
Quando inserir uma doação ao José passará para 10 e a próxima para 1 novamente
Quando inserir uma doação ao Mário passará para 7

não sei se me faço compreender, queria que esta numeração fosse automatica até 10 quando inserir uma doação a cada doador.

Cumprimentos Jorge Bolas

Boas Jorge... como anda esta solução?
O Tópico havia me sumido à lista.


Cumprimentos.

Resolvi o caso de outra maneira.

Obrigado na mesma.

O Fórum agradece o Retorno.