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


    [Resolvido] Numeração

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido] Numeração Empty [Resolvido] Numeração

    Mensagem  Assis 10/5/2013, 23:05

    Boa noite amigos

    Aonde estou a errar ?

    Assim não funciona

    O campo Me.encomenda é texto

    Private Sub Cliente_AfterUpdate()

    If IsNull(Me!Encomenda) Or Me!Encomenda = "" Then
    Me.Encomenda = DLast("encomenda", "TEncomenda", "operação ='" & Me.Operação & "'") + 1
    Else

    Me.Encomenda = DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'") + 1
    End If

    Obrigado







    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido] Numeração Empty Re: [Resolvido] Numeração

    Mensagem  Convidado 11/5/2013, 00:07

    Carregue primeiro o campo em uma variável número

    Algo assim:


    Private Sub Cliente_AfterUpdate()
    Dim IntEnc as Integer

    If IsNull(Me!Encomenda) Or Me!Encomenda = "" Then
    IntEnc = CInt(DLast("encomenda", "TEncomenda", "operação ='" & Me.Operação & "'"))
    Me.Encomenda = IntEnc + 1
    Else

    Me.Encomenda = DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'") + 1
    End If

    Faça o mesmo para o else..

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido] Numeração Empty Re: [Resolvido] Numeração

    Mensagem  Assis 11/5/2013, 01:07

    Boa noite Piloto

    Dá erro

    Run-time error '94':
    Invalid use of null


    Assim funciona perfeito, mas:

    Me.Encomenda = DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'") + 1
    If IsNull(Me!Encomenda) Or Me!Encomenda = "" Then
    Me.Encomenda = 1
    End If


    Mas eu queria que quando fosse nulo fosse buscar o Nº a:
    DLast("encomenda", "TEncomenda", "operação ='" & Me.Operação & "'") + 1

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido] Numeração Empty Re: [Resolvido] Numeração

    Mensagem  Convidado 11/5/2013, 01:38

    Isso ocorre porque quando tenta-se carregar uma variável com valor nulo ela não aceita..
    Então neste caso a expressão com o Dlast está retornando um valor nulo.. por isso o erro...

    Tente assim:

    Me.Encomenda = CInt(DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'")) + 1

    Cumprimentos.


    Última edição por PILOTO em 16/6/2013, 23:41, editado 2 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

    Conteúdo patrocinado


    [Resolvido] Numeração Empty Re: [Resolvido] Numeração

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:50