SELECT DANDO ERRO
Banco de Dados Acess
If (adorsExcel.State) Then adorsExcel.Close
adorsExcel.Open "SELECT RelatorioNome FROM TblRelatSAP A, TblInput B WHERE A.RelatorioSAP = '" & Me.CboRelatorio.Text & "' AND A.Indice = B.Indice;"
If (adorsExcel.State) Then adorsExcel.Close
adorsExcel.Open "SELECT RelatorioNome FROM TblRelatSAP A, TblInput B WHERE A.RelatorioSAP = '" & Me.CboRelatorio.Text & "' AND A.Indice = B.Indice;"
qual erro que aparece?
tira o ";"
adorsExcel.Open "SELECT RelatorioNome FROM TblRelatSAP A, TblInput B WHERE A.Indice = B.Indice and A.RelatorioSAP = '" & Me.CboRelatorio.Text & "'"
tira o ";"
adorsExcel.Open "SELECT RelatorioNome FROM TblRelatSAP A, TblInput B WHERE A.Indice = B.Indice and A.RelatorioSAP = '" & Me.CboRelatorio.Text & "'"
Como tem duas tabelas será que não falta alguma ligação ?
adorsExcel.Open "SELECT RelatorioNome FROM TblRelatSAP A, TblInput B WHERE A.Codigo=B.CodigoA AND A.RelatorioSAP = '" & Me.CboRelatorio.Text & "' AND A.Indice = B.Indice;"
adorsExcel.Open "SELECT RelatorioNome FROM TblRelatSAP A, TblInput B WHERE A.Codigo=B.CodigoA AND A.RelatorioSAP = '" & Me.CboRelatorio.Text & "' AND A.Indice = B.Indice;"
Tópico encerrado , respostas não são mais permitidas