Número NF automático

Pessoal, preciso de uma ajudinha

Eu tenho uma tabela chamada de NF,

Ela tem um campo chamado númeroNF,

Eu preciso que toda vez que eu incluir um novo registro, ele pega o número anterior do campo númeroNF e acrescenta um.

Não dá para fazer com numeração automática, porque eu preciso que comece com 1015.

Obrigado!

Boa tarde,

Experimenta utilizando a função DLAST ou DMAX.

Abraço...

Já tentei a DMAX mas não deu certo, vi vários exemplos

posta aqui a sua BD para o pessoal aqui do Forum dar um Help.

Abraço...

Boa tarde,

Veja esse exemplo com código de barras, basta alterar a sua necessidade..

Veja se serve para sua necessidade...

https://www.wetransfer.com/downloads/dd9fc02e42add43d65338942940604f020150326234952/0a1caa14e0e40020af434b38c469b1fe20150326234952/bd25dc

Abraço...

ainda não é isso que eu preciso galera =(

tambem mexo com nota fiscais e uso esse codigo

cola num modulo

Public Function CNFS() As String
Dim fazcodigo(6) As Integer, temporarior As Integer

fazcodigo(6) = Nz(DMax("Left(NFes,9)", "nfiscal"), 0)

For I = 1 To UBound(fazcodigo)
If temporarior < fazcodigo(6) Then temporarior = fazcodigo(6)
Next

CNFS = Format(temporarior + 1, "00000000")
End Function



pra chamar a funcao

Call CNFS
Me!notaser = CNFS

Amigo não é necessário códigos mirabolantes para esta rotina. Utilize o DMax pois se você excluir um registro o DLast não irá capturar o último registro e sim o registro anterior ao excluído.

Utilize em seu botão "btNovo", "btnNovo", etc... ou ao carregar do formlário ...

Código:

SeuCampo = DMax("SeuCampo ", "SuaTabela") + 1

Vai funcionar ....


Abraços,