PASSAR NOME DA TABELA PARA SQL
Estou tentando fazer o seguinte
em um formulário faço a chamada da função que vai abrir meu relatório
Nome do Relatorio,Titulo do Relatorio,tabela do relatorio
FrmRelatorio.ChamaRel ("RelEstoque.rpt"), ("CasaNova- Relatório de estoque"), ("tmpProduto")
Na função
em um formulário faço a chamada da função que vai abrir meu relatório
Nome do Relatorio,Titulo do Relatorio,tabela do relatorio
FrmRelatorio.ChamaRel ("RelEstoque.rpt"), ("CasaNova- Relatório de estoque"), ("tmpProduto")
Na função
Sub ChamaRel(Ativo As String, Titulo As String, Tabel As String)
Dim Tipo As Long
Dim Tbl As String
Dim Relatorio As String
Relatorio = Ativo
Me.Caption = Titulo
Tbl = Tabel
O problema está aqui como setar o nome da tabela no sql
RS.Open "Select * From & Tbl & ", connection, adOpenDynamic, adLockOptimistic, adCmdText
"Select * From & Tbl & a variavel Tbl recebe o nome da tabela , está dando erro.
& Tbl &(Erro)
desta forma eu abro varias relatórios com origens de tabelas diferentes em uma mesma função.
Mude para
"Select * From " & Tbl & " a variavel Tbl recebe o nome da tabela , está dando erro.
feche as aspas antes da variável tlb e abra após a mesma ser colocada na query.
Espero que te ajude.
"Select * From " & Tbl & " a variavel Tbl recebe o nome da tabela , está dando erro.
feche as aspas antes da variável tlb e abra após a mesma ser colocada na query.
Espero que te ajude.
Somente um comentário:
No Caso, somente o código abaixo bastaria, sem precisar usar & " no final
No Caso, somente o código abaixo bastaria, sem precisar usar & " no final
"SELECT * FROM " & Tbl
Tópico encerrado , respostas não são mais permitidas