USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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


 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página