Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Arquivo de parâmetro no relatório via RecordSource

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

18082011

Mensagem 

Arquivo de parâmetro no relatório via RecordSource






Seção de origem no Blog: Diretório, Pastas & Parametrização


Bem amigos.. mais um exemplo de como usar o arquivo de parâmetros...
Dessa vez carregando um relartório via RecordSource


Private Sub Report_Open(Cancel As Integer)
'************************************************************
'AUTOR: Harysohn - Paz, Justiça e Liberdade
'************************************************************

Parametros_de_Inicializacao "SysPen.par" 'Neste arquivo externo de parametros há a seguinte linha: DirBancoDados: = C:\SysPen\
Dim dbBanco As Database 'Váriável para o Banco de Dados
Dim StrDetento As String ''Aqui crio uma variável para a a tabela a ser pesquisada
Dim StrPath As String 'Aqui crio uma variável para receber o caminho da base de dados
Dim NomeBD As String ' 'Aqui crio uma variável onde aplicarei o nome do Banco de dados

NomeBD = "Syspen_be.accdb" ' Aqui aplico o nome do Banco de dados à Variável


StrPath = DirBancoDados & NomeBD 'String com path para conexão com a base de dados, aqui adicionei o caminho contido no Syspen.Par + o nome da dase de dados contidos na Váriável NomeBD


Set dbBanco = OpenDatabase(StrPath) 'Aqui Abro O BD através do caminho contido na variável StrPath, que é o Caminho no Syspen.Par + Variável NomeBD



'Carrega a Váriável com o SQL
StrDetento = "SELECT * FROM Detentos IN '" & StrPath & "'" _ 'Note que aqui esta o caminho do BD Caminho no Syspen.Par + Variável NomeBD (C:\Syspen\Syspen.Accdb)

& "WHERE UnidadeRequisitante='Mineiros' and RegimeAtual='Fechado';" 'Filtros para dados na tabela

Me.RecordSource = StrDetento 'Aqui carrega o relatório Via recordSource com a variável StrDetento, que contem A tabela e o seu endereço via StrPath
End Sub


PERFECT....


ENJOY!!




Harysohn Pina - Piloto
Paz, Justiça e Liberdade!
avatar
Harysohn
Facilitador
Facilitador

Brasil


Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum