Como Executar Macro, e fechar botão OK automaticamente, sem pressionar ENTER
appAccess.DoCmd.RunMacro "matrix"
'====================================================================================================================
'CAMINHO DO BANCO ACCESS - AbreBancoExecutaMacro
'====================================================================================================================
Dim appAccess
Set appAccess = createObject("Access.Application")
appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb")
appAccess.Visible = True
appAccess.UserControl = True
appAccess.DoCmd.RunMacro "matrix"
appAccess.DoCmd.Close
appAccess.DoCmd.Quit
appAccess.Quit
MsgBox "As atualizações foram executadas automaticamente com sucesso às: " & TimeValue(Now), vbInformation
'===========================================================================
appAccess.DoCmd.RunMacro "matrix"
'====================================================================================================================
'CAMINHO DO BANCO ACCESS - AbreBancoExecutaMacro
'====================================================================================================================
Dim appAccess
Set appAccess = createObject("Access.Application")
appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb")
appAccess.Visible = True
appAccess.UserControl = True
appAccess.DoCmd.RunMacro "matrix"
appAccess.DoCmd.Close
appAccess.DoCmd.Quit
appAccess.Quit
MsgBox "As atualizações foram executadas automaticamente com sucesso às: " & TimeValue(Now), vbInformation
'===========================================================================
- Anexos
- Macro.JPG
- Você não tem permissão para fazer download dos arquivos anexados.
- (89 Kb) Baixado 5 vez(es)