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 : 23
    Registrado : 30/05/2016

    Duplicidade ao transportar dados de um form para outro form

    Mensagem  fernando.r.z em Sex 09 Fev 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 Sab 10 Fev 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 

      Data/hora atual: Sab 24 Fev 2018, 13:57