boa tarde amigos!
Estou tentando criar um RecordSource pra edita a fonte de controle de um formulario e esta dizendo que nao existe a tabela na hora de referenciar o formulario
o que estou tentando fazer?
Tenho um formulario de gerador de contrato onde preciso popular um tabela temporária pra trazer os resultados e então criei um variavel global para poder referenciar a instancia exata do Format(Now(), "ddmmyyyyhhnnss"
Só que na hora de editar a fonte de controle diz que nao existe e da o erro 2580
será que minha variavel global esta declarada errada? certifiquei pra ver se esta referenciada e esta!
alguem pra dar um luz?
segue o codigo do BTN abaixo:
esse aqui é a variavel global
Estou tentando criar um RecordSource pra edita a fonte de controle de um formulario e esta dizendo que nao existe a tabela na hora de referenciar o formulario
o que estou tentando fazer?
Tenho um formulario de gerador de contrato onde preciso popular um tabela temporária pra trazer os resultados e então criei um variavel global para poder referenciar a instancia exata do Format(Now(), "ddmmyyyyhhnnss"
Só que na hora de editar a fonte de controle diz que nao existe e da o erro 2580
será que minha variavel global esta declarada errada? certifiquei pra ver se esta referenciada e esta!
alguem pra dar um luz?
segue o codigo do BTN abaixo:
- Código:
Private Sub Comando2_Click()
Dim strTbl As String
Dim sSql As String
Dim strSql
Dim formatTable As String
formatTable = Format(Now(), "ddmmyyyyhhnnss")
strTbl = "cme_" & formatTable & ""
strTabelaTemp = strTbl
sSql = "CREATE TABLE " & strTbl & "(" & ""
sSql = sSql & " PROTOCOLO int"
sSql = sSql & " ,CODPASTA int"
sSql = sSql & " ,COD_HOLIST int"
sSql = sSql & " ,NOME_RESPONSAVEL varchar(255)"
sSql = sSql & " ,CNPJ int"
sSql = sSql & " ,TIPO varchar(255)"
sSql = sSql & " ,SERVICO varchar(255)"
sSql = sSql & " ,RAZAO_SOCIAL varchar(255)"
sSql = sSql & " ,NOME_FANTASIA varchar(255)"
sSql = sSql & " ,ENDERECO varchar(255)"
sSql = sSql & " ,NUMERO int"
sSql = sSql & " ,COMPL varchar(255)"
sSql = sSql & " ,CIDADE varchar(255)"
sSql = sSql & " ,BAIRRO varchar(255)"
sSql = sSql & " ,UF varchar(255)"
sSql = sSql & " ,CEP int"
sSql = sSql & " ,N varchar(255)"
sSql = sSql & " ,NOME_BANCO varchar(255)"
sSql = sSql & " ,NUMERO_AGENCIA int"
sSql = sSql & " ,CONTA_CORRENTE int"
sSql = sSql & " ,NUMERO_CONTA int"
sSql = sSql & " ,DIA varchar(255)"
sSql = sSql & " ,MES varchar(255)"
sSql = sSql & " ,ANO varchar(255)"
sSql = sSql & " ,Contrato LONGTEXT"
sSql = sSql & " ,STAtUS varchar(255)"
sSql = sSql & " ); "
DoCmd.RunSQL sSql
DoCmd.OpenForm "EditarContrato", acNormal
Forms!EditarContrato.RecordSource = "SELECT strTabelaTemp.Contrato, strTabelaTemp.PROTOCOLO FROM strTabelaTemp"
End Sub
esse aqui é a variavel global
- Código:
Option Compare Database
Global strTabelaTemp As String