MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Não repetir 2 campos em form desvinculado

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  Assis em 18/1/2018, 11:39

    Bom dia Amigos

    Em formulário desvinculado não deixar repetir os campos. " Tipo " e " Ndoc "

    Por exemplo .... tenho o Tipo "VD" nº "285" e posso ter o Tipo "PE" também com o nº "285"

    Por exemplo .... tenho o Tipo "PE" nº "300" e posso ter o Tipo "VD" também com o nº "300"


    Tipo -----> é texto

    Ndoc -----> é numero

    Estou a usar este código mas não está a resultar, no botão de gravar


    If Not IsNull(DLookup("[Tipo]", "TabRecebimentos", "[Tipo] = '" & Me.Tipo & "' And Ndoc = " & Doc & "")) Then
    MsgBox "Tipo Já Registada neste Documento", vbInformation, "Aviso"
    Me.Undo
    End If


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  Assis em 18/1/2018, 14:27

    Deixo o exemplo


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  FabioPaes em 18/1/2018, 14:42

    Assis essa verificação está correta e Funcionando: (DLookup("[Tipo]", "TabRecebimentos", "[Tipo] = '" & Me.Tipo & "' And Ndoc = " & Doc & "")) Observe que esta dizendo aqui que tanto o Tipo quando o Ndoc tem que ser iguais "AND" Se nao quer isso, mude para "OR".


    .................................................................................
    _____________________________________________________________________
    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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  Assis em 18/1/2018, 15:42

    Fabio
    Obrigado por responder.

    Eu queria por:

    VD 300 e não deixa, ou

    PE  285 e também não deixa.
    Aguardo.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  FabioPaes em 18/1/2018, 15:58

    Olá Assis, veja na sua tabela TabRecebimentos que não tem um campo chamado Tipo, Na verdade esse campo se chama TipoMov


    Mude o Codigo para:

    If Not IsNull(DLookup("TipoMov", "TabRecebimentos", "TipoMov = '" & Me.Tipo & "' And Ndoc = " & Doc & "")) Then
    MsgBox "Tipo Já Registada neste Documento", vbInformation, "Aviso"
    Me.Undo
    End If


    Faça um Teste!


    .................................................................................
    _____________________________________________________________________
    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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  Assis em 18/1/2018, 16:17

    Fabio
    Estou no telemóvel .... depois retorno.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  Assis em 18/1/2018, 18:25

    Obrigado Fabio

    E desculpe a minha distração


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  FabioPaes em 18/1/2018, 19:40

    Bacana meu amigo! Que bom que deu certo! Por favor, marque o tópico como resolvido!!! Até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Não repetir 2 campos em form desvinculado

    Mensagem  Assis em 18/1/2018, 23:24

    Obrigado Fabio


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 23/9/2018, 08:06