Ola a todos!!

 

Eis o código...

 

'Private Sub cmdCadastro_click()

' Dim MB as Database, MT as Recordset

' Dim strNBL as string

'strNBL = InputBox("Insira o novo Número de Pesquisa.", "Localizar")

 

'set MB = CurrentDB()

' MB.Execute ("INSERT INTO " _

' & " tabCadastrar (NUM_PB, NUM_BOB, LINHA, COD_EVENTO) SELECT " _

' & " TDF.NUM_PB, TDF.NUM_BOB, PB.LINHA, PE.EVENTO " _

' & " FROM (TDF INNER JOIN PB ON TDF.NUM_BOB = PB.NUM_BOB) " _

' & " INNER JOIN PE ON TDF.NUM_BOB = PE.NUM_BOB " _

' & " WHERE TDF.NUM_PB = '270576' ;")

 

' MB.CLOSE

' END SUB

 

NESTE CÓDIGO SE EU TIRAR O 3ª TABELA("PE") DE PESQUISA ELE OPERA NORMALMENTE, OU SEJA, CARREGA A TABELA "tabCadastrar" COM OS DADOS DE PESQUISA, MAS COM UMA TERCEIRA TABELA DE PESQUISA ELE FORNECE O SEGUINTE ERRO: "TOO FEW PARAMETERS. EXPECTED 2".

 

 1ª PERGUNTA: O Q ESTÁ ACONTECENDO PARA GERAR ESTE ERRO? VISTO QUE AS TABELAS DE PESQUISA REALIZADAS COM ESTA MESMA SQL NUMA CONSULTA DO ACCESS NÃO ME GERA NENHUM ERRO. DETALHE: A CADA PESQUISA NA TABELA "TDF" E "PB" AS MESMA GERAM 2 LINHAS DE RETORNO E QUE BUSCA NA TABELA "PE" BUSCA UM REGISTRO PARA CADA DUAS. LEMBRANDO QUE NA CONSULTA DO ACCESS NÃO OCORRE NEHUM ERRO

 

2ª PERGUNTA: TENHO UMA STRING "strNBL" QUE USA UM INPUT BOX PARA CAPTURAR O NUMERO DE PESQUISA, MAS NÃO ESTOU CONSEGUINDO LANÇAR A MESMA DENTRO DA SQL, NO CAMPO "WHERE", COMO PODERIA REALIZAR ESTA PESQUISA USANDO VARIÁVEIS?