[Resolvido]buscar a função vba no formulário.

Ola pessoal,

Montei um formulário, e nele eu preciso fazer uma atualização de duas consultas para capturar as informações.
Então montei um botão "Atualizar" , só que no evento quando peço para chamar a função do vba, essa não funciona.
Alguém pode me ajudar onde está o erro.
Obrigada!

primeiro erro: o nome do módulo é o mesmo da função, altere para um outro nome, atualiza_tbl, por exemplo; segundo erro: os nomes das consultas na função estão sem espaços e as consultas estão.

Oi Beto,
Eu fiz como você indicou, e no exemplo anexo, funcionou uma maravilha, mas no meu projeto atual depura na linha
DoCmd.OpenQuery "CriaTabelaDespesas", acViewNormal, acEdit

e aparece a mensagem do windows.

"Erro em tempo de execução '3211'
O mecanismo do banco de dados não pode bloquear a tabela '11 - CaixaDespesasReceitas', pois já esta sendo usada por outra pessoa ou processo."

Ja verifiquei todos os campos conforme modelo anexo e mesmo assim, depura.
Você tem uma idéia do que pode ser?

Option Compare Database
'------------------------------------------------------------
Function AtualizaTabelas()
DoCmd.SetWarnings False
DoCmd.OpenQuery "CriaTabelaDespesas", acViewNormal, acEdit
DoCmd.OpenQuery "AcrescentaReceita", acViewNormal, acEdit
Beep
MsgBox "Done", vbOKOnly, ""

End Function



obrigada!

infelizmente sem ver o projeto real fica difícil saber com certeza o que está ocorrendo se puder anexar as partes envolvidas para eu verificar seria o ideal.

OI Beto,

Segue o arquivo que traz a depuração.
Obrigada!

Olá Roseli, o seu problema reside na tabela CaixaDespesasReceitas, ela está como sendo a tabela criada pela consulta CriarTabelaDespesas, tudo certo se ela não estivesse como origem do Frm_MargemLucro, ou seja, você não pode excluir uma tabela que está aberta, no outro exemplo funciona porque a consulta cria uma tabela chamada 11-CaixaDespesasReceita e a origem do form é CaixaDespesasReceitas, ou seja, a tabela a ser criada tem que ser uma e a origem do formulário outra.

Oi Beto

Agora entendi o processo, e já corrigi no meu projeto.

Quanto a este já esta resolvido, agora só falta outro formulário que também o comando não responde e eu não consigo encontrar o erro banal que eu cometo.

Neste caso, eu quero que o filtro me traga as informações do formulário, mas como sou leiga em VBA, eu encontrei o CStr para buscar a primeira coluna, claro que estou deduzindo ser o correto, mas preciso de sua avaliação, pois as colunas é composta de:

Cliente - Razão Social
Valor Total da Venda
Endereço
Cidade
Estado
etc...

E no botão FILTRAR em propriedades ao clicar eu coloquei:


Private Sub Btfiltro_Click()
If IsNull(Me![DataInicial]) Or IsNull(Me![DataFinal]) Then Exit Sub
Me.Filter = "CStr([Cliente - Razão Social]) between #" & Format(Me![DataInicial], "mm/dd/yyyy") & "# AND #" & Format(Me![DataFinal], "mm/dd/yyyy") & "#"
Me.FilterOn = True
Me![DataInicial] = Null
Me![DataFinal] = Null
Me![DataInicial].SetFocus


Já utilizo dessa forma em outro formulário , mas como Cdata(nome da primeira coluna)

Muito obrigada!

Roseli, eu peço encarecidamente que abra um novo tópico, já que se trata de um outro formulário.

Beto,
Farei isso, e muito obrigada pela ajuda que tem me dado.