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 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 

    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 Dom 25 Fev 2018, 13:46

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

    no text
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Dom 25 Fev 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?


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

      Data/hora atual: Qui 19 Abr 2018, 18:02