Código automático ao salvar

Bom dia.
Estou desenvolvendo uma aplicação em vba com banco em access na qual a numeração automática é gerada ao abrir o formulário.
O que eu quero é inverter, quero que quando for salvar os dados então verifique qual o ultimo registro da tabela e ai gere a numeração e salve a mesma em conjunto com os outros dados.

sql = ""

sql = "INSERT INTO Tbl_Fornecedores (CodigoFornecedor, RazaoSocial,"
sql = sql & " NomeFantasia, CNPJ, CPF, InscricaoEstadual, RamodeAtividade, DataCadastro,"
sql = sql & " Endereco, Numero, Complemento, Bairro, Cidade, UF, CEP, Referencia )"
sql = sql & " VALUES ("

sql = sql & "'" & Me.Txt_CodFabr.Value & "', " ' Aqui quero ao invés de usar o código gerado na textbox que gere a partir da tabela no ato de salvar.

Pesquise sobre a função Dmax

Ela vai retornar o maior valor de determinada coluna de sua tabela, aí vc soma esse valor retornado + 1

Sim conheço essa funçao enao tinha pensado nisso. Vou testar e retorno.

Blz, no aguardo

Usei dessa forma mas da Erro Reservado na linha xm = Dmax


Dim xm As Integer

xm = DMax("CodigoFornecedor", "Tbl_Fornecedores") + 1 'Aqui da erro reservado

 sql = ""
     
                  sql = "INSERT INTO Tbl_Fornecedores (CodigoFornecedor, RazaoSocial,"
                  sql = sql & " NomeFantasia, CNPJ, CPF, InscricaoEstadual, RamodeAtividade, DataCadastro,"
                  sql = sql & " Endereco, Numero, Complemento, Bairro, Cidade, UF, CEP, Referencia )"
                  sql = sql & " VALUES ("
                 
                  sql = sql & "'" & xm    'Me.Txt_CodFabr.Value & "', " 'campo obrigatorio


'''' MINHA TABELA NÃO TEM NUMERAÇÃO AUTOMÁTICA

Tem dados na tabela?

sim

Vou fazer um modelinho aqui com Banco pra ficar mais facial pra gente

Blz

Anexo modelo.
O Txt_Visual é somente visual mesmo minha intenção não é usálo no código.
Quero que al clicar em Salvar o código busque no banco o último registro e salve com +1 e traga em uma msgbox o código que foi salvo.

Isso é pra futuro próximo e se resolvermos pode ajudar muita gente também como vai me ajudar.
Abraços e vamos lá rs

Resolvi a solução estava no próprio projeto.
Anexo para que possa ser útil ha algum colega.
Abraços e muito obrigado