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

    Duplicidade ao transportar dados de um form para outro form

    Compartilhe

    fernando.r.z
    Novato
    Novato

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/05/2016

    Duplicidade ao transportar dados de um form para outro form

    Mensagem  fernando.r.z em 9/2/2018, 14:49

    Boa tarde, estou tendo problema ao transportar dados de um formulário para outro de maneira que não haja duplicidade,
    estou usando esse código no evento (no timer) do formulário.

    If (Not IsNull(DLookup("[NF]", "TB_CONTROLENF", _
    "[NF] ='" & Me!NF & "'"))) Then
    MsgBox " já está cadastrado no sistema..." & NF.Text, _
    vbInformation, "Atenção"
    Me.Undo 'desfaz a digitação.
    Cancel = True 'cancela o evento.
    DoCmd.Close '
    End If  

    esta funcionando bem, mas tenho que verificar três campos diferentes
    1 nf
    2 cd_cheq
    3 codigo_or

    Tentei vários códigos que encontrei no fórum e nenhum funcionou, alguém poderia me ajudar
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 08/12/2013

    Re: Duplicidade ao transportar dados de um form para outro form

    Mensagem  webruxim em 10/2/2018, 09:19

    Olá fernando, bom dia...

    Pode tentar assim:

    Código:

    If (Not IsNull(DLookup("[NF]", "TB_CONTROLENF", "[NF] ='" & Me!NF & "'"))) Then
      If (Not IsNull(DLookup("[NF]", "TB_CONTROLENF", "[cd_cheq] ='" & Me!cd_cheq & "'"))) Then
          If (Not IsNull(DLookup("[NF]", "TB_CONTROLENF", "[codigo_or ] ='" & Me!codigo_or & "'"))) Then
            MsgBox " já está cadastrado no sistema..." & NF.Text, vbInformation, "Atenção"
            Me.Undo 'desfaz a digitação.
            Cancel = True 'cancela o evento.
            DoCmd.Close '
          End If
      End If
    Else
      Código para  transportar dados
    End If 

    fernando.r.z
    Novato
    Novato

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 30/05/2016

    Re: Duplicidade ao transportar dados de um form para outro form

    Mensagem  fernando.r.z em 25/2/2018, 13:46

    esta dando erro nessa linha
    MsgBox " já está cadastrado no sistema..." & NF.Text, vbInformation, "Atenção"

    no text

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: Duplicidade ao transportar dados de um form para outro form

    Mensagem  Noobezinho em 25/2/2018, 17:18

    Fernando

    Antes uma puxadinha de orelha!  Razz

    Pelo o que estou vendo, só está fazendo copia e cola, nem sequer procura ler e entender o que o código está fazendo!  Shocked

    MsgBox " já está cadastrado no sistema..." & NF.Text, vbInformation, "Atenção"

    Essa é uma linha muito simples.

    O próprio Access está dizendo onde está o erro.

    Analise a coisa, se o erro está no Text  de NF.text  o que pode ser?

    Que tipo de dados é o campo NF?

    TEXTo ou valor?

      Data/hora atual: 16/12/2018, 15:45