Bom dia!!!

Desenvolvi a pouco tempo um sistema para controle de Vouchers (Passagem de Táxi), porém foi questionado que estava tendo duplicidade de Vouchers no sistema, Veja o que está de errado:

No BD tenho aproximadamente 12 Tabelas.
Destas 12 tabelas, 05 tem envolvimento com Vouchers, (TblContasPagas, TblContasReceber, TblCadastroVouchers, TblTemp e TblCorridas)
A medida que o sistema vai dando baixa em determinados cadastros os Vouchers vão mudando de Tabelas.
Preciso de uma rotina que quando eu estiver cadastrando um Novo Voucher ela verifica nestas cinco Tabelas a existência do Número do Voucher que está sendo cadastrado, se o mesmo estiver cadastrado em alguma TBL me retorna uma mensagem de Voucher existente em tal TBL.

Se alguém entendeu e puder me ajudar...
Agradeço.

Marcelino Neto

VB 6.0
Access 97
DataControl

acho que poderia ser algo assim:

   --verifica se predio, andar e sala existem
   If Not Exists (
     Select 1
     From FM_Feevale.dbo.eq
     where n1_cbase = @CBase
     And n1_item = @Item
     And Exists (Select 1 From FM_Feevale.dbo.bl Where FM_Feevale.dbo.bl.bl_id = FM_Feevale.dbo.eq.bl_id)
     And Exists (Select 1 From FM_Feevale.dbo.fl Where FM_Feevale.dbo.fl.fl_id = FM_Feevale.dbo.eq.fl_id)
     And Exists (Select 1 From FM_Feevale.dbo.rm Where FM_Feevale.dbo.rm.rm_id = FM_Feevale.dbo.eq.rm_id And FM_Feevale.dbo.rm.bl_id = FM_Feevale.dbo.eq.fl_id And FM_Feevale.dbo.rm.bl_id = FM_Feevale.dbo.eq.bl_id)

... neste select eu verifico se existe o predio, andar e sala que está na tabela tabela eq nas tabelas de cadastros de predio, andar e sala

Imagino que vc está com as cinco tabelas abertas. Nesse caso eu faria assim:

 

Function ChecaVoucher(NroVoucher As Integer) As String

     ChecaVoucher = ""

     TblContasPagas.MoveMin

     TblContasPagas.FindMin "SeuCampo = '" & NroVoucher & "'"
     If TblContasPagas.NoMatch Then

          'Não encontrou nada

     Else

          ChecaVoucher = "TblContasPagas"

          Exit Function

     End If