Numeração sequencial

Prezados
Boa tarde!!!

Mais uma vez peço a ajuda de voces, tenho a seguinte situação, em um determinado formulário tenho um campo que se chama "CodSistema" da tabela "Tab_Principal", através do vba preciso que esse codsistema crie uma numeração automática sem intervalos toda vez que eu pedir um novo registro.

galera desde já muito grato.

Att; Sidney.

Olá Ney,

Siga o seguinte procedimento. Só vai funcionar se você renomear sua tabela Tab_Principal para TabPrincipal.

(1) Insira esta função no ambiente de código de seu formulário principal:

Public Function Contador(strCampo As String, TabPrincipal As String) As Long
Dim strSQL As String, rkt As DAO.Recordset

strSQL = "SELECT Max" & "(" & strCampo & ")" & " As MaxValor"
strSQL = strSQL & " FROM " & TabPrincipal
Set rkt = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenForwardOnly)

Contador = Nz(rkt("MaxValor")) + 1

rkt.Close: Set rkt = Nothing
End Function


(2) No evento Form_BeforeInsert:

Private Sub Form_BeforeInsert(Cancel As Integer)
Me.CodSistema = Contador("CodSistema", "TabPrincipal")

End Sub

(3) No evento Form_Current:

Private Sub Form_Current()
'Se está em um novo registro gera o número de serie
If Me.NewRecord Then
Me.CodSistema = Contador("CodSistema", "TabPrincipal")
End If
End Sub

Olá amigo,
Bom dia!

Só não entendi a parte que você diz "(1) Insira esta função no ambiente de código de seu formulário principal:", em evento você está se referindo?

Você abra o VBA do formulario e cole a função do amigo Eduardo, numa local que não tenha instruções, por exemplo no final da janel do VBA.