Incluir um ID Sequencial Alfanumérico a cada Inserção de linha

Bom dia Meus amigos!

Preciso de uma ajuda de vocês, Estou com um probleminha nessa consulta abaixo (Destacado):

INSERT INTO Fretes ( IdCliente, Criado, DataColeta, Placa, Motorista, Valor, EndereçoColeta, EndereçoEntrega, IdFrete, IdSubmissions )
SELECT Left([Submissions]![Solicitante],10) AS SolicitanteAtual, Submissions.[Submission Date], Submissions.[Data Frete:], Submissions.[Veículo:], Submissions.[Motorista:], Submissions.[Valor (R$)], Submissions.[Empresa de Coleta], Submissions.[Empresa de Entrega:], "FRT" & Format(Right(DMax("IdFrete","Fretes"),7)+1,"0000000") AS FreteId, Submissions.[Submission ID]
FROM Submissions
WHERE (((Exists (SELECT 1 FROM [Fretes] WHERE [Fretes].[IdSubmissions]=[Submissions].[Submission ID]))=False));



O Nesse modelo ele fará a inclusão do IdFrete apenas para a primeira linha e copiará o mesmo Id para as demais linhas, gostaria que fosse criado um IdFrete sequencial para cada linha inserida, como faço isso meus amigos?

Boa tarde,

Utilize estrutura de repetição:

Exemplo:

Código:

Dim Cont As Integer, Max As Integer, IdFrete As String
Max = 5 'Aqui vc define o numero limite de repetição
   
    For Cont = 1 To Max
        IdFrete = Format(Right(DMax("IdFrete", "Fretes"), 7) + Cont, "0000000")
        MsgBox "Seu IdFrte: " & IdFrete
    Next

Boa tarde Caio!

Obrigado pela ajuda. só pra ver se entendi certinho,  o "Max" vai ser a quantidade de linhas da consulta insert?

Esse código é em VBA, certo? Estou fazendo isso em modo sql será que consigo aplicar lá?

Boa noite,

Renomeie os campos de forma normalizada, sem espaços, sem caracteres especiais
Tente
INSERT INTO Fretes (IdCliente, Criado, DataColeta, Placa, Motorista, Valor, EndereçoColeta, EndereçoEntrega, IdFrete, IdSubmissions) SELECT Left(Solicitante,10) AS SolicitanteAtual, [Submission Date], [Data Frete:], [Veículo:], [Motorista:], [Valor (R$)], [Empresa de Coleta], [Empresa de Entrega:], 'FRT' & Format(Right(DMax('IdFrete','Fretes'),7)+1,'0000000') AS FreteId, [Submission ID] FROM Submissions WHERE Exists (SELECT 1 FROM Fretes WHERE IdSubmissions=[Submission ID]=False;

Boa tarde,

@ruvierijunior, siga as dicas do @Alexandre Neves, é muito importante.

Sobre a sua dúvida, vc pode fazer o inverso, vc pode inserir os registros a partir do VBA.
E sim, o Max é a quantidade de registros que pretende inserir.
Segue abaixo um exemplo ilustrativo:

Código:

Dim Cont As Integer, Max As Integer, IdFrete As String
Max = 5 'Aqui vc define o numero limite de repetição
    
    For Cont = 1 To Max
        IdFrete = Format(Right(DMax("IdFrete", "Fretes"), 7) + Cont, "0000000")
        CurrentDb.Execute "SUA SQL"
    Next

O CurrentDb.Execute tem a tarefa de executar uma consulta

Prezados!

Obrigado, pela ajuda consegui seguindo as dicas para fazer em vba!

Alexandre Essa tabela esta vinculada por isso os nomes estão fora de padrão, mas valeu pela dica.

Bom dia,
Faltou o "Resolvido"