MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Numeração de Campo após actualização de outro

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 235
    Registrado : 24/02/2013

    [Resolvido] Numeração de Campo após actualização de outro Empty [Resolvido] Numeração de Campo após actualização de outro

    Mensagem  brunogor em 6/1/2016, 23:10

    Viva a todos mais uma vez, já estamos no 6º dia de 2006 e já é o 2º Tópico que coloco, bem vamos lá.

    No exemplo em questão, aproveitei um código do Mestre Avelino Sampaio para numerar campos desvinculados, para o aplicar a um campo vinculado da minha tabela, que é este:
    Código:
    Private Sub Texto_AfterUpdate()
        Me.Ordenacao = fncNumerar([Form])
    End Sub

    Public Function fncNumerar(frm As Form) As Long
    'Código do Mestre Avelino Sampaio
    On Error GoTo TrataErro
        With frm.RecordsetClone
            .Bookmark = frm.Bookmark
            fncNumerar = 1 + .AbsolutePosition
        End With
      Exit Function
    TrataErro:
        If Err = 3021 Then fncNumerar = 0
    End Function

    O problema é que no meu exemplo a numeração sequencial do campo "Ordenacao" após atualização do campo "Texto" repete o "1" nos dois primeiros registos ficando assim:
    1  (Está aqui o erro)
    1
    2
    3
    4
    etc.

    e eu queria que ficasse assim:
    1
    2
    3
    4
    etc.

    Se me pudessem ajudar agradecia, Obrigado.

    Bruno Gordino
    Anexos
    [Resolvido] Numeração de Campo após actualização de outro AttachmentOrdenacao_v1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (577 Kb) Baixado 13 vez(es)


    Última edição por brunogor em 8/1/2016, 21:19, editado 3 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido] Numeração de Campo após actualização de outro Empty Re: [Resolvido] Numeração de Campo após actualização de outro

    Mensagem  FabioPaes em 6/1/2016, 23:31

    Seria bom voce posta o exemplo original, e explicar como vc vai precisar que essa numeracao se comporte.
    Aqui no forum tem um otimo exemplo de auto Numeracao...
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 235
    Registrado : 24/02/2013

    [Resolvido] Numeração de Campo após actualização de outro Empty Numeração de Campo após actualização de outro

    Mensagem  brunogor em 6/1/2016, 23:37

    Viva Fábio,
    Eu não quero fazer uma auto-numeração.
    Quando for solucionado o problema do exemplo disponibilizado, este será aplicado num Sub-Formulário, ou seja, cada conjunto de registos será ordenado e terá início no nº "1".

    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    [Resolvido] Numeração de Campo após actualização de outro Empty Re: [Resolvido] Numeração de Campo após actualização de outro

    Mensagem  DamascenoJr. em 19/4/2020, 20:34

    Utilize o seguinte código no evento "após atualizar" do seu campo "Texto"
    Código:
    If Nz(Me!Ordenacao.Value, 0) = 0 Then Me.Ordenacao = Nz(DMax("Ordenacao", "Tabela"), 0) + 1

    Aguardamos retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 235
    Registrado : 24/02/2013

    [Resolvido] Numeração de Campo após actualização de outro Empty Numeração de Campo após actualização de outro

    Mensagem  brunogor em 20/4/2020, 18:34

    Viva tudo bem consigo?
    Muito obrigado mais uma vez.
    Até uma próxima
    Cumprimentos

    Bruno Gordino

      Data/hora atual: 30/11/2020, 07:39