[Resolvido]Não sei como fazer

Olá Pessoal, preciso de ajuda mais uma vez

Tenho um formulário que tem 5 botões de comandos, eu quero criar a união deles em um único botão, o problema é que alguns tem macro e outro "procedimento do evento" e não estou conseguindo unir, exemplo:

botao1 = executar consulta união1 - executa através de MACRO
botão2 = executar acrescimo em tabela temporaria - executa através de PROCEDIMENTO DO EVENTO
botão3 = executa outra consulta união2 - - executa através de MACRO
botão4 = executar acrescimo em tabela Final - executa através de PROCEDIMENTO DO EVENTO
botão5 = apaga os dados da tabela temporária(botão2) - executa através de MACRO

Isso é possível? porque não tenho a mínima ideia de como funciona, já fiz isso antes, porém todos os botões eram executados atraves de MACRO.
obrigada

Stela, você pode converter os botões para vba para ver como fica o código e depois adicionar os procedimentos na ordem a ser executados através de vba em um único botão. Isso é bom para você ir entendendo como funciona a coisa.

Você pode me dar um exemplo, porque nunca fiz esses tipo de código, estou perdida

Tópicos repetidos Stellinha, ai ai, rsrsrsrs

A resposta aqui;

http://maximoaccess.forumeiros.com/formularios-f11/executar-botao-de-comando-t297.htm

JP

Mais uma vez obrigada, vou fazer e depois te falo ok

Quanto ao Tópico repetido, peço desculpas, mas é que sou nova no forum e achei que o assunto era Macro depois formulário, enfim errei.
um abraço
Stella

JPaulo

Deu certo, aprendi mais um pouquinho, com vocês !

Obrigada

Bom dia Stella;

Tranquilo, sem problemas.

Se precisar de novo dê um grito.

JPaulo,

tudo funcionou perfeito no meu arquivo teste.
porém quando coloquei os procedimentos no BD original funciona o procedimento, porém enquanto está executado fica PISCANDO a tela, tempo como eu resolver? o procedimento é o seguinte:

Private Sub Comando15_Click()
On Error GoTo Comando15_Click_Err

DoCmd.SetWarnings False
DoCmd.Echo True, ""
DoCmd.RunMacro "1A-Executar ConsAcrescProprietario", , ""
DoCmd.RunMacro "1B-ApartResidePropriet", , ""
DoCmd.RunMacro "1C-Executar ConsAcrescPropDivers", , ""
DoCmd.RunMacro "1D-ApartSEMProprMac", , ""
DoCmd.RunMacro "1E-Executar Cons Uniao", , ""
DoCmd.RunMacro "1F-ACRESC_TabMORAD_COMP", , ""
DoCmd.RunMacro "1G-EXCLUIRTab_ MORAD_TEMP", , ""
DoCmd.SetWarnings True

Comando15_Click_Exit:
Exit Sub

Comando15_Click_Err:
MsgBox Error$
Resume Comando15_Click_Exit

End Sub


mais uma vez OBRIGADA

Stella

Olá Stella;

Substitua o seu por este e veja se flasha;

Private Sub Comando15_Click()
On Error GoTo Comando15_Click_Err

DoCmd.SetWarnings False
Application.Echo False
DoCmd.Hourglass True
DoCmd.RunMacro "1A-Executar ConsAcrescProprietario", , ""
DoCmd.RunMacro "1B-ApartResidePropriet", , ""
DoCmd.RunMacro "1C-Executar ConsAcrescPropDivers", , ""
DoCmd.RunMacro "1D-ApartSEMProprMac", , ""
DoCmd.RunMacro "1E-Executar Cons Uniao", , ""
DoCmd.RunMacro "1F-ACRESC_TabMORAD_COMP", , ""
DoCmd.RunMacro "1G-EXCLUIRTab_ MORAD_TEMP", , ""
DoCmd.SetWarnings True
Application.Echo True
DoCmd.Hourglass False

Comando15_Click_Exit:
Exit Sub

Comando15_Click_Err:
MsgBox Error$
Resume Comando15_Click_Exit
End Sub

JP

Não funcionou

Acho que não me expressei direito,

eu NÃO quero que fique piscando e é o que está acontecendo, fiz o teste com o seus comandos e continuou dando flash

um abraço

Isso acontece porque você está a utilizar Macros para correr as consultas.

Veja se o nome das consultas estão corretas, senão altere nesta instrução;

Private Sub Comando15_Click()
On Error Resume Next
Application.Echo False
DoCmd.Hourglass True
DoCmd.SetWarnings False
DoCmd.OpenQuery "ConsAcrescProprietario", acViewNormal, acEdit
DoCmd.OpenQuery "ApartResidePropriet", acViewNormal, acEdit
DoCmd.OpenQuery "ConsAcrescPropDivers", acViewNormal, acEdit
DoCmd.OpenQuery "ApartSEMProprMac", acViewNormal, acEdit
DoCmd.OpenQuery "Cons Uniao", acViewNormal, acEdit
DoCmd.OpenQuery "ACRESC_TabMORAD_COMP", acViewNormal, acEdit
DoCmd.OpenQuery "EXCLUIRTab_ MORAD_TEMP", acViewNormal, acEdit
DoCmd.SetWarnings True
Application.Echo True
DoCmd.Hourglass False
End Sub

JPaulo

Não funcionou.
Cada consulta tem um tipo de condição, acrescimo, exclusão e união
por isso criei uma macro para cada situação e depois criei uma unica reunindo todas as macros e esta final converti para VBA, aliás isso eu pude aprender com vocês, obrigada.
portanto agora não sei o que fazer com esse flash

um abraço

Se conseguiu criar uma macro final com todas as consultas, pois são essas mesmas consultas que tem de colocar na ultima instrução que lhe passei.

Se preferir uma ajuda mais eficaz, coloque o seu banco ou parte dele em site publico;

Aqui:
http://www.speedyshare.com/

Ou aqui:
http://uploads.ziddu.com/uploadanon.php

JPaulo,

Eu criei uma macro final, de qualquer forma se puderes me ajudar minha cabeça já está fervendo kkk

Disponibilizei aqui:
Aqui:
http://www.speedyshare.com/

Download link:
http://www.speedyshare.com/files/21500675/COND_GERAL.mdb

mais uma vez obrigada

Stella, quando você diz que fica piscando, você se refere às consultas sendo abertas e fechadas? Se for isso, o que eu fiz aqui foi definir as propriedades do formulário com popup = sim e auto centralizar = sim e redimensionei as janelas das consultas para ficarem menores que o formulário e centralizei elas, assim, não se vê as janelas abrindo e fechando na hora da execução.

Olá Stella de novo, boa noite aqui em Portugal e boa tarde ae.

Veja se entende o que fiz;



http://www.speedyshare.com/files/21502791/COND_GERAL_II.rar

JPaulo

Esqueço do fuso horário rssss !

Irei verificar e amanhã te falou ok !

Durma com os anjos e bons sonhos ...

obrigada mais uma vez

JPaulo,

desculpe a demora em responder.
Segui tua orientãção e funcionou perfeitamente

mais uma vez obrigada

vocês são show !!!!

Valew pelo retorno Stella, o fórum agradece.

valeu