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]Tratamento de erro - Verificar se registro foi gravado com sucesso em uma outra tabela

    Compartilhe

    wbonelli
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 02/04/2011

    [Resolvido]Tratamento de erro - Verificar se registro foi gravado com sucesso em uma outra tabela

    Mensagem  wbonelli em Qui 10 Jul 2014, 11:50

    Bom dia Pessoal!

    Estou necessitando após a impressão de determinado número de carnês (uso uma tabela temporária), gravar os registros desta tabela em uma outra tabela que é o histórico de carnês impressos.
    Até aqui tudo bem, funciona corretamente.
    Preciso, verificar, com base no campo ID, Data_Processamento, Nosso_Numero se, efetivamente foram inseridos estes valores na tabela tabela do histórico de carnês impressos.

    Estive procurando e vi que pode, talvez, ser feito com DCount, como neste exemplo do Avelino Sampaio:

    If DCount("idCliente","tblClientes","cli_Nome =""" & Me!cli_Nome & """") > 0 Then
      'A função DCount() contou um ou mais registros existentes
      MsgBox "O Cliente " & Me!cli_Nome & " já existe..."
      Me.Undo
      Cancel = True
    End If


    Como posso implementar este, ou uma outra função, que sejam compare a tabela temporária e a de histórico?

    Obrigado.
    Wagner Bonelli


    Última edição por wbonelli em Sex 11 Jul 2014, 09:46, editado 1 vez(es)
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 324
    Registrado : 14/02/2011

    Tratamento de erro - Verificar se registro foi gravado com sucesso em uma outra tabela

    Mensagem  daniloreiis em Qui 10 Jul 2014, 12:55

    Olá bom dia !

    tente fazer um "Dlookup"

    seria desta forma aqui:

    Código:

    Dim campoexiste

    campoexiste = Nz(dlookup("seuID","suaTabela","seuID=seuIDnoforme"),0)

    if campoexiste = 0 then

    'ele não contém na sua tabela

    else

    'ele contém na sua tabela

    end if


    se não ajudou disponibilize parte do projeto que ajudarei melhor!

    Abraços


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    wbonelli
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 02/04/2011

    Re: [Resolvido]Tratamento de erro - Verificar se registro foi gravado com sucesso em uma outra tabela

    Mensagem  wbonelli em Sex 11 Jul 2014, 09:45

    OI Danilo, bom dia!

    Ajudou muito!
    Obrigado.
    Mais tarde vou postar aqui como ficou. Talvez ajude mais alguém.
    Wagner

      Data/hora atual: Seg 26 Jun 2017, 09:43