ERRO AO BUSCAR EM 2 TABELAS

JORGESALES 02/01/2017 18:23:42
#470264
Pessoa boa tarde, estou usando um For Next para buscar numeros de telefones
que estão em uma ou em outra tabela, o problema é que quando os números estão
em ambas ocorre o erro da imagem, segue código:
               rs.Open [Ô]Select Codigo from tblCad where TELEFONE =[ô][Ô] _
		   & lstAlterar.ListItems(f).SubItems(X) & [Ô][ô] or CELULAR =[ô][Ô] _
		   & lstAlterar.ListItems(f).SubItems(X) & _
		 [Ô][ô]or (select Telefone from tbTelefones where Telefone=[ô][Ô] & _
                   lstAlterar.ListItems(f).SubItems(X) & [Ô][ô])[Ô], db, 3, 3
               rs.Close

Alguém sabe como resolver?
Desde já agradeço a todos que possam contribuir.
JABA 02/01/2017 18:44:59
#470266 Resposta escolhida
Você poderia utiliza o UNION para juntar os dados das tabelas numa coisa só, eliminando as duplicatas. Fica mais ou menos assim:

dim valor as String

valor = lstAlterar.ListItems(f).SubItems(X)

rs.Open [Ô]Select Telefone from tblCad where TELEFONE =[ô][Ô] & valor & [Ô][ô] or CELULAR =[ô][Ô] & valor & [Ô][ô][Ô] _
       & [Ô] UNION  (Select Telefone from tbTelefones where Telefone=[ô][Ô] & valor & [Ô][ô])[Ô], db, 3, 3


support.office.com/pt-br/article/Usar-uma-consulta-uni%C3%A3o-para-combinar-v%C3%A1rias-consultas-em-um-%C3%BAnico-resultado-1f772ec0-cc73-474d-ab10-ad0a75541c6e
JORGESALES 02/01/2017 19:55:29
#470268
JABA, muito obrigado, eu não conhecia o comando [Ô]Union[Ô] vou ler o artigo
a respeito.
Mais uma vez obrigado....
Tópico encerrado , respostas não são mais permitidas
Voltar