Tabelas temporárias

[Baldão 0]

Alguém poderia me explicar como criar tabelas temporárias no access?

[Diego Costa 0]

Não posso te ajudar nesta, mas acredito que somente via código para fazer isso no Access. Sds.

[Julien.Sorel 0]

Olá Pessoas,

 

Olhando alguns posts antigos - possivelemente já esclarecidos anteriormente -, resolvi encontrar uma outra maneira para solucioná-los.

 

Talvez seja uma forma mais fácil de resolver - ou não -, mas de qualquer maneira, é mais uma opção.

 

Terceiro exemplo - criando/excluindo tabelas via VBA + SQL:

 

Private Sub cmdCreate_Click()
Dim strNmTable As String, SQL As String, SQL_2 As String

On Error GoTo Err_Create
    
    'Criação de uma tabela
    If MsgBox("Deseja criar uma nova tabela?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then
                        
        'Grava o nome da tabela que será gerada
        strNmTable = InputBox("Informe o nome da tabela que será gerada!", "Sistema")
        
        'Cria uma tabela usando comando SQL
        SQL = "Create Table " & strNmTable & _
        " (CodFunc int not null, NomeFunc char(30) not null, SalFunc double not null, " & _
        " Constraint PKFunc Primary Key(CodFunc) )"
        DoCmd.RunSQL SQL
        
        'A partir daqui caberia colocar o que você pretende fazer com esta tabela
        'Um exemplo seria importar um numero elevado de informação de um .xls, agrupar informações iguais
        'e acrescetar estas informações em outra tabela - não sei por quê isto seria necessário, mas não
        'pensei em mais nada...

        'Esta mensagem é apenas para mostrar a tabela criada
        MsgBox "Tabela " & strNmTable & " foi criada com sucesso!", vbInformation, "Sistema"

        'Após a execução do processo, basta deletar a tabela e o BD continuará do mesmo tamanho*
        'Caso exclua os arquivos temporários...
        DoCmd.SetWarnings (False)
        SQL_2 = "Drop Table " & strNmTable
        DoCmd.RunSQL SQL_2
                    
        'Importa novas informações para tabela
        MsgBox "Operação realizada com sucesso!", vbInformation, "Sistema!"
        
    End If
    
Exit_Create:
Exit Sub

Err_Create:
    MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Sistema"

Resume Exit_Create
End Sub

 

 

 

Sem mais,

 

Julien Sorel