Boa tarde,
Tenho uma rotina que faz insert em tabelas diferentes e a intenção é utilizar o nome da tabela em uma variável mas não estou obtendo sucesso.
Conseguem me ajudar?
Segue o código:
Tenho uma rotina que faz insert em tabelas diferentes e a intenção é utilizar o nome da tabela em uma variável mas não estou obtendo sucesso.
Conseguem me ajudar?
Segue o código:
- Código:
Dim UF As String
UF = [Forms]![frmAlocação]![cbUF]
Dim Dist As DAO.Recordset
Set Dist = CurrentDb.OpenRecordset("vw_Fila" & UF)
Dim tabela As String
tabela = "TEMP_00_Acompanhamento - " & Dist!Banco & UF
While Not Dist.EOF
CurrentDb.Execute "INSERT INTO '" & tabela & "' (IDSisjur, Numero_processo, UF, Comarca)" _
& " SELECT Contingencia.IDSISJUR, Contingencia.[Número do Processo], Contingencia.UF, Contingencia.Comarca" _
& " From Contingencia" _
& " WHERE (Contingencia.Banco)= '" & Dist!Banco & "' and (Contingencia.UF)= '" & UF & "';"
Dist.MoveNext
Wend
msgbox "feito!"