(Resolvido) Verificar se o registro exixte na outra tabela

[Flecha]

Pessoal,

Tenho um mdb com duas tabela: tabela1 e tabela2

No form tenho um botão que executa o arquivamento do registro atual da tabela1 na tabela2 e exclui o mesmo da tabela1

Private Sub Comando91_Click() ' Arquiva no Morto (tabela2) excluindo da tabela1
On Error GoTo Err_Comando91_Click

    Dim stDocName As String

    stDocName = "F1a" ' Consulta acréscimo na tabela2
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
    stDocName = "F2e" 'Consulta Exclusão na tabela1
    DoCmd.OpenQuery stDocName, acNormal, acEdit

    DoCmd.Close

Exit_Comando91_Click:
    Exit Sub

Err_Comando91_Click:
    MsgBox Err.Description
    Resume Exit_Comando91_Click
    
End Sub

como faço para interromper se o registro que esta sendo gravado na tabela2 já existir na mesma?

A chave é o campo RG (não autorizado a duplicação)

O problema é que quando é executado essa sub e existir o reg na tabela recebedora ele se perde (é apagado da tabela1 e não salvo na tabela2)

ficando na tabela2 o registro que lá estava indevidamente e dezatualizado.

Acho que é isso.

Flecha

[MrMALJ]

Crie uma tabela cruzando os dados das duas tabelas, depois no critério do campo que deve estar vazio da tabela destino coloque como NULO.

[Flecha]

MrMalj

Não entendi, mas não tem um jeito de colocar no inicio dessa sub uma linha ou linhas que faça essa busca na tabela2 pelo RG do form ativo antes deentra na consulta e se existir o RG na tabela2 ele cancela o evento?

Flecha

[Leandro Abbade]

Bom dia flecha,

Veja este exemplo:

http://www.professorlar.com/contarcliques3...o_na_tabela.zip

[Flecha]

Leandro,

Baixei seu exemplo, mas nos forms não tem campos e os modulos não diz nada sobre registros.

Será que o link é do exemplo que você queria mandar mesmo?

Flecha

[Flecha]

Pessoal,

Rodando por ai achei a sub abixo e coloquei no inicio da minha que esta acima, alterei o IdTitular por RG e funcionou

Dim IDsEncontrados As Recordset
   If Not IsNull(Me.IdTitular) Then
      strSQL = "SELECT IdTitular FROM Titular WHERE IdTitular = " & Me.IdTitular & ""
      Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)
      If IDsEncontrados.RecordCount <> 0 Then
          DoCmd.OpenForm "NomeDoSeuForm", acNormal, ,"IdTitular = " & IDsEncontrados("IdTitular")                
      End If
   End If

Flecha