MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 58
    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)

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    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 : 58
    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: Sab 10 Dez 2016, 06:53