Capturar id. (numeração Automática)

Bom dia Wilson,

Para capturar o ultimo ID cadastrado:

Código:


Public Sub CapturarID()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String

    Set db = CurrentDb
    sSQL = "SELECT MAX(Campo_ID_da_Sua_Tabela]) as MaxID FROM Sua_Tabela"
    Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot)
   
    Sua_Variavel_ou_Campo = rs("MaxID").Value
   
    rs.Close
    Set rs = Nothing
   
    Exit Sub

trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "erro"
    Exit Sub

End Sub



Espero ter ajudado.

Boa sorte

Wilson,

Realmente, no Access não tem como utilizar o "SELECT @@IDENTITY" do MS SQL Server, e pode gerar alguns conflitos quando mais de 1 usuário estiver gravando na mesma tabela.

Veja este exemplo que desenvolvi para um membro aqui do fórum.

https://www.maximoaccess.com/t38376-resolvidochave-primaria-ao-gosto-do-cliente

Neste exemplo, o sistema gera um id do registro (não Numeração Automática), e após gerar e gravar o ID, o sistema apresenta ao usuário o ID gravado.

Espero ter ajudado.

Boa sorte