MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Problemas no campo Foto

    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 21/11/2010

    [Resolvido]Problemas no campo Foto Empty [Resolvido]Problemas no campo Foto

    Mensagem  Pablo Weber 21/1/2013, 10:50

    Olá pessoal, novamente venho com uma questão que estou correndo atrás para tentar descobrir o motivo do erro mas não encontrei ainda. Na verdade não aparece mensagem de erro, o que acontece é que em um form possui um campo "imagem", usado para adicionar a foto de individuo, pois o interessante é que todas as fotos são guardadas em uma pasta especifica, e quando estou na máquina servidor, eu adiciono a foto e tudo bem, aparece direitinho no form, porém quando vou acessar em outra máquina local dentro da rede, essa foto não aparece para min. Mas se eu abrir o mesmo registro, e inserir novamente a mesma foto, eu consigo visualisar a foto. No Back-End, ficam armazenadas na tabela individuos, no campo "LocalFoto", o caminho da imagem. Na linha de código esta assim: Abraços

    Private Sub LocalFoto_AfterUpdate()
    Dim s As String
    s = Nz(LocalFoto.Value, "")
    If s <> "" Then s = IIf(Dir(s) = "", "", s)
    On Error Resume Next
    QuadroFoto.Picture = s
    If Err.Number <> 0 Then QuadroFoto.Picture = ""
    On Error GoTo 0
    End Sub

    Private Sub btnFoto_Click()
    LocalFoto.SetFocus
    Dim s As String
    s = OpenCommDlg()
    If s <> "" Then
    LocalFoto = s
    LocalFoto_AfterUpdate
    End If
    End Sub
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Problemas no campo Foto Empty Re: [Resolvido]Problemas no campo Foto

    Mensagem  Cláudio Más 21/1/2013, 11:04

    Olá,

    Qual é o caminho registrado no campo LocalFoto?
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 21/11/2010

    [Resolvido]Problemas no campo Foto Empty Re: [Resolvido]Problemas no campo Foto

    Mensagem  Pablo Weber 21/1/2013, 11:24

    Não esta definido o caminho. Será que tenho que vincular na Fonte de Controle no "QuadroFoto" o campo "LocalFoto"?
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Problemas no campo Foto Empty Re: [Resolvido]Problemas no campo Foto

    Mensagem  Cláudio Más 21/1/2013, 11:48

    Não é isso.
    Mas precisa ter o local da foto gravado no campo LocalFoto.
    Por exemplo:

    \\servidor\fotos\individuo_1.jpg

    Ao clicar no btnFoto, selecione o caminho da foto pela rede.

    E precisa repetir o mesmo código existente em LocalFoto_AfterUpdate no evento No atual do formulário.
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 21/11/2010

    [Resolvido]Problemas no campo Foto Empty Re: [Resolvido]Problemas no campo Foto

    Mensagem  Pablo Weber 21/1/2013, 12:05

    Ok Claudio, vou dar uma olhada e volto a retornar. Agora almoço. Abraços
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 21/11/2010

    [Resolvido]Problemas no campo Foto Empty Re: [Resolvido]Problemas no campo Foto

    Mensagem  Pablo Weber 15/3/2018, 00:06

    Já resolvido, meu amigo.

    Conteúdo patrocinado


    [Resolvido]Problemas no campo Foto Empty Re: [Resolvido]Problemas no campo Foto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:36