MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    Número NF automático

    avatar
    guiadd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 25/11/2011

    Número NF automático Empty Número NF automático

    Mensagem  guiadd 26/3/2015, 14:13

    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!
    avatar
    Convidado
    Convidado


    Número NF automático Empty Re: Número NF automático

    Mensagem  Convidado 26/3/2015, 15:21

    Boa tarde,

    Experimenta utilizando a função DLAST ou DMAX.

    Abraço... Cool
    avatar
    guiadd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 25/11/2011

    Número NF automático Empty Re: Número NF automático

    Mensagem  guiadd 26/3/2015, 18:29

    Já tentei a DMAX mas não deu certo, vi vários exemplos Crying or Very sad
    avatar
    Convidado
    Convidado


    Número NF automático Empty Re: Número NF automático

    Mensagem  Convidado 26/3/2015, 20:44

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

    Abraço... Cool
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    Número NF automático Empty Re: Número NF automático

    Mensagem  Fernando Bueno 26/3/2015, 21:58

    Boa tarde,

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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Número NF automático 16rzeq
    avatar
    Convidado
    Convidado


    Número NF automático Empty Re: Número NF automático

    Mensagem  Convidado 26/3/2015, 23:51

    Veja se serve para sua necessidade...

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

    Abraço... Cool
    avatar
    guiadd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 25/11/2011

    Número NF automático Empty Re: Número NF automático

    Mensagem  guiadd 15/4/2015, 19:45

    ainda não é isso que eu preciso galera =(
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010

    Número NF automático Empty Re: Número NF automático

    Mensagem  NADIRONUNES 15/4/2015, 20:13

    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
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    Número NF automático Empty Re: Número NF automático

    Mensagem  Uilson Brasil 15/4/2015, 20:28

    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,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    Conteúdo patrocinado


    Número NF automático Empty Re: Número NF automático

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 10/11/2024, 12:04