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 Parametrização Access

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

18082011

Mensagem 

Arquivo de Parametrização Access






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


Segue modelo de Arquivo externo onde voce pode especificar Valores padrão que podem ser modificados em arquivo externo, sem precisar modificar seus códigos em forms e relatórios...

Suponhamos que voce tenha um relatorio que exiba arquivos contendo Fotos....O que ocorre quando não há foto disponivel para aquele registro na tabela??
Ele aparece em branco correto? Sim aparece em branco..
Mas voce pode usar este arquivo de parametros para especificar caminhos padrao.. em nao encontrando caminho para a foto na tabela, ele exibe um arquivo padrao contido no HD...

O bacana disso... é que se voce ja tiver algum programa em funcionamento e quiser modificar a foto ou algum caminho, caso se mude o local da rede etc.. basta apenas alterar o caminho no arquivo externo ou mesmo a fotopadrao.. sem precisar modifica o seu sistema...

COMO USAR:

Cole o seguinte código em um módulo e dê o Nome de GERAL
Código:

Option Compare Database
Public QuemChamou As Form
Public TipoOp As String
Public DirFotosNovas As String
Public DirFotos As String
Public FotoPadrao As String
Public FotoInexistente As String
Public DigitalPadrao As String
Public DirBanco As String
Public DirBancoDados As String

Public Sub Parametros_de_Inicializacao(Arquivo As String)
Dim Linha As String, Conteudo As String
Diretorio = SoDir(CurrentDb.Properties(0))
Close
Open Diretorio & Arquivo For Input As #1
Do While Not EOF(1)
Outro:
Line Input #1, Linha
If Not IsEmpty(Linha) And Not IsNull(Linha) And Len(Trim(Linha)) <> 0 Then
If Left(Linha, 1) <> ";" Then
Conteudo = Trim(Item(Linha, 2, ":="))
If EstaVazio(Conteudo) = True Then GoTo Outro
Select Case UCase(Trim(Item(Linha, 1, ":=")))
Case "DIRFOTOSNOVAS"
DirFotosNovas = Conteudo
Case "DIRFOTOS"
DirFotos = Conteudo
Case "FOTOPADRAO"
FotoPadrao = Conteudo
Case "FOTOINEXISTENTE"
FotoInexistente = Conteudo
Case "DIRBANCO"
DirBanco = Conteudo
Case "DIRBANCODADOS"
DirBancoDados = Conteudo
End Select
End If
End If
Loop
Close
End Sub

Public Function EstaVazio(Texto) As Boolean
EstaVazio = IIf(Not IsNull(Texto) And Len(Trim(Texto)) <> 0 And Not IsEmpty(Texto), False, True)
End Function

Pode observar que tenho algumas funções públicas no código:

Public DirFotosNovas As String
Public DirFotos As String
Public FotoPadrao As String
Public FotoInexistente As String
Public DigitalPadrao As String
Public DirBanco As String
Public DirBancoDados As String
Vai encontrar esses parametros no arquivo externo SYSPEN.PAR (é nele que se faz as alterações, que serao reconhecidas automaticamente pelo código no BD)
Altere de acordo com sua necessidade

Aplicação no Código no BD

Em um relatório que le uma foto em um caminho na Tabela:

'Referencia a Foto Perfil 4
If IsNull(Me.txtPerfil4) = False Then
Me.FotoPerfil4.Picture = Me.txtPerfil4
Else
Parametros_de_Inicializacao "SysPen.par" 'Aqui carrega os parametros contidos no arquivo externo SYSPEN.PAR
Me.FotoPerfil4.Picture = FotoPadrao 'Pode observar que este parâmetro esta no arquivo Syspen.Par.. e representa o caminho para uma foto padrão, que em caso de nao encontrando o caminho contido na caixatexto txt.perfil4.. ele lê o caminho da foto padrao.. (esta foto tem que estar gravada na raiz da aplicação...
End If

Voce pode colocar no evento Ao csarregar do Form...

Private Sub Report_Load()
Parametros_de_Inicializacao "SysPen.par"
End Sub

e chamar a função onde desejar usar parametros no seu código...




Quaisquer dúvidas, estou pronto a responde-las....

AUTOR.: Harysohn Pedrosa Pina, com ajuda de Jefferson Cleber (RJ)

ENJOY!!!


LINK para arquivo de parâmetros:
Download

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