[Resolvido]Campo AutoNumeração

Amigos estou iniciando no Access e estou com a seguinte duvida.
Tenho uma tabela com AutoNumerção para indexar os voos, e outra tabela com AutoNumerção para indexar os trechos de cada voo, ocorre que surgiu a necessidade que além deste indexador de trechos necessito de outro (pernas) que inicie a cada vôo.
Exemplo:
Voo1
Trecho 1 /Perna1
Trecho2/Pern2
Trecho3/Perna3

Voo2
Trecho 4 /Perna1
Trecho5/Perna2
Trecho6/Perna3

Agradeço a atenção.

Teria como postar seu bd?

Segue o bd e coloquei a minha duvida no formulario. Agradeço a atenção.

Amigo,

Se eu estiver errado os mais experientes me corrijam, por favor, mas desconheco tabelas com dois campos de autonumeracao.

Caso vc esta contagem seja para algum relatorio, pode fazer uma consulta ou diretamente no relatorio.

Cavok,

Para autonumerar a Leg a cada Missão, a estratégia que eu recomendo é fazer isso via VBA diretamente no objeto utilizado para atualizar as informações.  Creio que seja um form.

Antes de mais nada, altere o relacionamento entre as tabs tbl_Missões e a Tbl_Legs para um-para-muitos, com integridade referencial.
Na tbl_Legs,crie o campo para numeração sequencial para cada Missão. Vou chama-lo de legNum, tipo inteiro.

No form, no evento Após atualizar no campo ref_CotrlMis_Leg, coloque o seguinte código:


   Dim varNum As Variant
   Dim intNovoNum As Integer
   Dim strCriterio As String
   
   strCriterio = "[ref_CotrlMis_Leg]=" & Me.ref_CotrlMis_Leg   'estabelece como critério de pesquisa o conteúdo de ref_CotrlMis_Leg em foco.
   varNum = DMax("legNum", "Tbl_Legs", strCriterio)  'pesquisa qual o último número sequencial atribuído às Legs da Missão.
   
   If IsNull(Me.Controle_Leg) Then   'Verifica se existe conteúdo em Controle_Leg. Não havendo sai do procedimento.
       Exit Sub
   End If
   
   If IsNull(varNum) Then    'verifica se o existe o último número sequencial da Legs na Missão. Não havendo, estabelece o número 1.
       intNovoNum = 1
   Else
       intNovoNum = varNum + 1 'Se há um número (maior) já definido, estabelece como novo número o maior número encontrado + 1
   End If
   
   Me.legNum.Value = intNovoNum 'atribui o valor estabelecido ao campo legNum.

O resultado será que, quando você definir o conteúdo do ref_CotrlMis_Leg, o campo legNum será numerado sequencialmente para cada Leg em cada Missão.

Espero ter ajudado.  Caso sim, não esqueça de postar que foi solucionado.

Jair,

Funcionou, muito obrigado a voce e todos os colegas.

PS: Desculpe a demora em responder, estava em viagem.

Olá a todos,
Roberto, se ficou esclarecido e resolvido, não se esqueça de dar o tópico comoresolvido.
Veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço