[Resolvido]Criar e acrescentar dados em tabela via VBA com botão em Form

Senhores,

Atualmente tenho duas consultas, sendo a consulta "cns_Maiorcriatb" para criar uma tabela e a outra consulta "Cns_MenorSuboutrosacrestb" acrescenta a tabela criada.

Atualmente utilizo um botão para acionar a execução das duas consultas, mas gostaria de fazer todo o processo via VBA para criar as consultas e criar e acrescentar a tabela via VBA de modo que o processamento fosse mais rápido e transparente para o usuário. Como devo proceder?


Em modo sql as consultas são:

cns_Maiorcriatb

SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia
FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA]
GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME]
HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]))>=30000))
ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];


Cns_MenorSuboutrosacrestb

INSERT INTO TabRelPresidencia ( [RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] )
SELECT "Outros" AS Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO]
FROM cns_Menor
GROUP BY "Outros", cns_Menor.[DATA PREVISTA];

CRIAR TABELA:

Sub CriarTabela()
'Desenvolvido por João Rodrigues (JR)
'http://www.accessjr.cjb.net/
'Modificado em 19/05/2006 por Marcelo R. dos Santos
On Error GoTo Trata_Erro

Dim db As DAO.Database, NovaTbl As DAO.TableDef
Dim I As Integer
Dim fld(2) As DAO.Field 'Define uma matriz de 3 elementos.
Dim idx As DAO.Index
Dim myTabela As String

myTabela = Me.txtVariavel 'Nome da tabela armazenado na caixa de texto

DoCmd.Hourglass True 'Muda o ponteiro para ampulheta.
Set db = CurrentDb
Set NovaTbl = db.CreateTableDef(myTabela)

With NovaTbl
' Vamos criar 3 campos.
Set fld(0) = .CreateField("Cód_Cliente", dbLong)
fld(0).Attributes = dbAutoIncrField 'Autonumeração.
Set fld(1) = .CreateField("Nome_Cliente", dbText, 20)
Set fld(2) = .CreateField("Contato", dbText, 15)

'Adiciona o campos criados à tabela.
For I = 0 To UBound(fld())
.Fields.Append fld(I)
.Fields.Refresh
Next I

'Cria índice Chave-Primária para o campo Cód_Cliente.
'O nome do índice será PrimaryKey, mas poderia ser
'qualquer nome.
Set idx = .CreateIndex("PrimaryKey")
With idx
.Primary = True 'Torna o índice chave primária.
.Fields.Append .CreateField("Cód_Cliente", dbLong)
End With
.Indexes.Append idx
.Indexes.Refresh

End With
db.TableDefs.Append NovaTbl
db.TableDefs.Refresh
MsgBox "Tabela '" & NovaTbl.Name _
& "' criada com sucesso!", vbInformation, "Status"

Sair:
DoCmd.Hourglass False
'Libera recursos do sistema.
Set idx = Nothing: Erase fld()
Set NovaTbl = Nothing
Set db = Nothing
Exit Sub

Trata_Erro:
MsgBox "Erro nº " & Err & Err.Description, _
vbCritical, "Erro"
Resume Sair

End Sub

INCLUIR DADOS:

Pode ser num evento clicar de um botão ou no evento ao atualizar de uma caixa de texto...

Dim criterio As String
Dim MBD As Database
Dim MC0 As Recordset
Dim Cont As Integer

CriarTabela

Set MBD = CurrentDB()
Set MC0 = MBD.OpenRecordset("NOME DA TABELA")

MC0.AddNew
MC0![Cód_Cliente] = Me![Cód_Cliente]
MC0![Nome_Cliente] = Me![Nome_Cliente]
MC0![Contato] = Me![Contato]
MC0.Update

MC0.Close
MBD.Close

wwwmuca

Você poderia me ajudar com meu exemplo, os dados serão selecionados em uma tabela/consulta já existente.

donizeth,

Estou errado ou este assunto é repetição do outro que lhe respondi?
Se for repetido, não o devia ser pelo facto que uma das regras do fórum é para não repetir dúvidas. Assim, o fórum fica mais limpo e mais fácil para quem o acompanha ou procura ajuda.

Alexandre,

Peço desculpas, criei um tópico que ficou mais escrito e resolvi detalhar melhor, mas esqueci de encerrar um dos topicos.