|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Abrindo qualquer tipo de objeto do Access
|
 |
|
|
|
Postada em 14/10/2002 por Jean Carlos
Abrindo qualquer tipo de objeto do Access
Dim objAccess As Access.Application
Set objAccess = New Access.Application
'Abre o MDB
'GetSetting e usado na inicializacao junto com
'SaveSetting salvando o local do arquivo
objAccess.OpenCurrentDatabase _ filepath:=GetSetting (NOME_SISTEMA, "MDB", "0")
'se for relatorio
objAccess.DoCmd.OpenReport reportname:=rptname _(1), View:=Access.acPreview, _
wherecondition:=Condicoes
objAccess.Visible = True
objAccess.Docmd.Maximize
'se for macro
objAccess.DoCmd.RunMacro ("NomedaMacro")
'e assim por diante
Set objAccess = Nothing
|
|
|
|
|
