5 participantes
Fotografias em formulário Continuo
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº1
Fotografias em formulário Continuo
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº2
Re: Fotografias em formulário Continuo
Exemplo do Avelino não, tenho este;
- Anexos
- FotosFormContinuos.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (168 Kb) Baixado 47 vez(es)
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº3
Re: Fotografias em formulário Continuo
Bom dia JPAULO
Obrigado pelo exemplo.
Mas no meu caso as imagens estão numa pasta em um Servidor.
Nos relatórios funciona com este código:
Private Sub Detalhe_Paint()
Dim emptyImg As String
emptyImg = BackEndPath & "IMAGENS\" & "SemFoto.gif"
If IsNull(Me.LocalFoto) Then
Me.Foto.Picture = emptyImg
ElseIf Not FileExists(BackEndPath & "IMAGENS\" & Me.LocalFoto) Then
Me.Foto.Picture = BackEndPath & "IMAGENS\" & "SemFoto.gif" ' esta a mais
Else
Me.Foto.Picture = BackEndPath & "IMAGENS\" & Me.LocalFoto
End If
End Sub
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Dim emptyImg As String
emptyImg = BackEndPath & "IMAGENS\" & "SemFoto.gif"
If IsNull(Me.LocalFoto) Then
Me.Foto.Picture = emptyImg
ElseIf Not FileExists(BackEndPath & "IMAGENS\" & Me.LocalFoto) Then
Me.Foto.Picture = BackEndPath & "IMAGENS\" & "SemFoto.gif" ' esta a mais
Else
Me.Foto.Picture = BackEndPath & "IMAGENS\" & Me.LocalFoto
End If
End Sub
Obrigado pelo exemplo.
Mas no meu caso as imagens estão numa pasta em um Servidor.
Nos relatórios funciona com este código:
Private Sub Detalhe_Paint()
Dim emptyImg As String
emptyImg = BackEndPath & "IMAGENS\" & "SemFoto.gif"
If IsNull(Me.LocalFoto) Then
Me.Foto.Picture = emptyImg
ElseIf Not FileExists(BackEndPath & "IMAGENS\" & Me.LocalFoto) Then
Me.Foto.Picture = BackEndPath & "IMAGENS\" & "SemFoto.gif" ' esta a mais
Else
Me.Foto.Picture = BackEndPath & "IMAGENS\" & Me.LocalFoto
End If
End Sub
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Dim emptyImg As String
emptyImg = BackEndPath & "IMAGENS\" & "SemFoto.gif"
If IsNull(Me.LocalFoto) Then
Me.Foto.Picture = emptyImg
ElseIf Not FileExists(BackEndPath & "IMAGENS\" & Me.LocalFoto) Then
Me.Foto.Picture = BackEndPath & "IMAGENS\" & "SemFoto.gif" ' esta a mais
Else
Me.Foto.Picture = BackEndPath & "IMAGENS\" & Me.LocalFoto
End If
End Sub
.................................................................................
*** Só sei que nada sei ***
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº4
Re: Fotografias em formulário Continuo
up
.................................................................................
*** Só sei que nada sei ***
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº5
Re: Fotografias em formulário Continuo
Boas...
Saudações nobre Assis.
Veja se lhe ajuda.
Apesar que o exemplo do JPaulo, está muito bom !
Abraços Assis.
Saudações nobre Assis.
Veja se lhe ajuda.
Apesar que o exemplo do JPaulo, está muito bom !
Abraços Assis.
- Anexos
- Imagens FRMCont.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (984 Kb) Baixado 33 vez(es)
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº6
Re: Fotografias em formulário Continuo
.................................................................................
*** Só sei que nada sei ***
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº7
Re: Fotografias em formulário Continuo
Assis, ato falho meu, me perdoe !!!
Creio que eu apaguei o arquivo correto sem querer e nomeei esse como sendo o certo.
Me desculpe.
Creio que eu apaguei o arquivo correto sem querer e nomeei esse como sendo o certo.
Me desculpe.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
- Mensagem nº8
Re: Fotografias em formulário Continuo
Seu campo LocalFoto só armazena o nome do arquivo. É necessário ter a rota completa até o arquivo de imagem.
c:\pastaimagens\imagem1.jpg
ou
\\meuservidor\pastaimagens\imagem1.jpg
Dito isto, basta agora ter um controle do tipo imagem no seu form contínuo e apontar como fonte do controle o campo que contém o diretório da imagem. Seja local ou seja em servidor.
Outra maneira seria na fonte do controle montar o caminho
c:\pastaimagens\imagem1.jpg
ou
\\meuservidor\pastaimagens\imagem1.jpg
Dito isto, basta agora ter um controle do tipo imagem no seu form contínuo e apontar como fonte do controle o campo que contém o diretório da imagem. Seja local ou seja em servidor.
Outra maneira seria na fonte do controle montar o caminho
- Código:
="\\SeuServidor\PastaImagens\" & [CampoComNomeImagem]
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº9
Re: Fotografias em formulário Continuo
Damasceno
Na mensagem Nº 3 diz como funciona no relatório.
Obrigado
PS - Sílvio .... sem problema
Na mensagem Nº 3 diz como funciona no relatório.
Obrigado
PS - Sílvio .... sem problema
.................................................................................
*** Só sei que nada sei ***
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
- Mensagem nº10
Re: Fotografias em formulário Continuo
Eu vi, mas não funciona para o formulário contínuo.
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
- Mensagem nº11
Re: Fotografias em formulário Continuo
Olá a todos
Não compreendo a dificuldade, criei um formulário continuo no exemplo partilhado pelo colega Silvio na mensagem nº 5 e obtive isto:
Segue o meu teste:
cld.pt/dl/download/83e5ffcd-b826-4eea-ad07-6e399f1849b8/FotosFormContinuosBalem.zip
Assis, não deve faltar exemplos no fórum, este por exemplo que eu partilhei em 2015.
https://www.maximoaccess.com/t23187-fotos-em-fomulario-continuo-access-2003
Abraço a todos
Não compreendo a dificuldade, criei um formulário continuo no exemplo partilhado pelo colega Silvio na mensagem nº 5 e obtive isto:
Segue o meu teste:
cld.pt/dl/download/83e5ffcd-b826-4eea-ad07-6e399f1849b8/FotosFormContinuosBalem.zip
Assis, não deve faltar exemplos no fórum, este por exemplo que eu partilhei em 2015.
https://www.maximoaccess.com/t23187-fotos-em-fomulario-continuo-access-2003
Abraço a todos
» [Resolvido]Não consigo mais abrir formulário filtrado ao clicar em Registro no Formulário Contínuo
» Exportar dados de um subformalario continuo para um formulario continuo
» [Resolvido]Alterando cor de campo em apenas um registro de formulário no modo formulário contínuo
» [Resolvido]Abrir formulário Simples através da linha do Formulário Contínuo
» Juntar registos de formulário contínuo num único campo de um novo formulário.
» Exportar dados de um subformalario continuo para um formulario continuo
» [Resolvido]Alterando cor de campo em apenas um registro de formulário no modo formulário contínuo
» [Resolvido]Abrir formulário Simples através da linha do Formulário Contínuo
» Juntar registos de formulário contínuo num único campo de um novo formulário.