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


2 participantes

    erro em DLookup - Error 3075

    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    erro em DLookup - Error 3075 Empty erro em DLookup - Error 3075

    Mensagem  maluco_sergio 2/1/2017, 16:48

    Boa Noite pessoal!

    Preciso da vossa ajuda.

    O seguinte código faz com que após inserir dados no campo "NUM_PROAVE" verifique se o número existe na tabela "PROAVE" e se não existe adiciona um novo n.º

    Código:

    Private Sub NUM_PROAVE_AfterUpdate()
        If Not IsNull(NUM_PROAVE) And IsNull(DLookup("Num_Proave", "Proaves", "Num_Proave=" & Me!NUM_PROAVE)) Then 
            MsgBox "Não existe Proave com este n.º, vai ser inserido um novo"
            DoCmd.SetWarnings False
            DoCmd.RunSQL "INSERT INTO Proaves VALUES (NUM_PROAVE, Null, Null, Null)"
            DoCmd.SetWarnings True
        End If
    End Sub

    Funciona direitinho. Mas reparei agora que se escrever algo no campo e depois apagar, o access devolve este erro "Run Time Error '3075' . Erro de Sintaxe (operador em falta) 'Num_Proave=' "
    Alguém me pode ajudar a ultrapasar?

    Obrigado.

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    erro em DLookup - Error 3075 Empty Re: erro em DLookup - Error 3075

    Mensagem  FabioPaes 2/1/2017, 17:27

    Mude o Dlookup para:

    Se Num_Proave na tabela for do tipo Numero:

    IsNull(DLookup("Num_Proave", "Proaves", "Num_Proave=" & Me!NUM_PROAVE & ""))

    Se For Texto:

    IsNull(DLookup("Num_Proave", "Proaves", "Num_Proave='" & Me!NUM_PROAVE & "'"))


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    erro em DLookup - Error 3075 Empty Re: erro em DLookup - Error 3075

    Mensagem  maluco_sergio 2/1/2017, 18:22

    Obrigado pela ajuda
    Continua com o mesmo erro.
    Se colocar algo no campo, funciona na perfeição.
    Se coloco e apago, dá erro... :-(
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    erro em DLookup - Error 3075 Empty Re: erro em DLookup - Error 3075

    Mensagem  FabioPaes 2/1/2017, 20:58

    Posta aqui esse exemplo amigo!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    erro em DLookup - Error 3075 Empty Re: erro em DLookup - Error 3075

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:38