MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Não consigo fixar a foto

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Não consigo fixar a foto Empty [Resolvido]Não consigo fixar a foto

    Mensagem  crysostomo em 30/1/2019, 15:42

    Amigos boa tarde.
    Tenho um formulário com o botão de inserir foto e 1 caixa de combinação o problema é quando eu mudo o nome da pessoa que está na caixa de combinação a imagem sai, eu quero essa foto como plano de fundo para todos. ai pra foto está no lugar tenho que aperta f5
    eu coloco foto com esse código
    Código:
    Private Sub inserirImgCredencial_Click()
    Dim s As String
    s = OpenCommDlg()
    If s <> "" Then
       fotoCredencial = s
        fotoCredencial_AfterUpdate
     End If
    End Sub
       Private Sub Form_Current() 'as fotoCredencial é o nome do campo na tabela
    fotoCredencial_AfterUpdate

    End Sub
    Private Sub fotoCredencial_AfterUpdate()

    Dim s As String
    s = Nz(fotoCredencial.Value, "")
    If s <> "" Then s = IIf(Dir(s) = "", "", s)
    On Error Resume Next
    fotoCred.Picture = s
    If Err.Number <> 0 Then fotoCred.Picture = "" ' aqui o nome do controle da foto
    On Error GoTo 0
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  JPaulo em 30/1/2019, 16:49

    Se você faz F5 e a foto aparece, é porque falta um refresh no form.

    No final do fotoCredencial_AfterUpdate() insira;

    Me.Repaint


    .................................................................................
    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

    [Resolvido]Não consigo fixar a foto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Não consigo fixar a foto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Não consigo fixar a foto Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  crysostomo em 31/1/2019, 12:49

    Eu estava olhando um dos seus anexos que tinha pegado sobre isso.
    ele não está fixando não.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  JPaulo em 31/1/2019, 14:10

    Quer anexar aqui, para vermos isso ?


    .................................................................................
    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

    [Resolvido]Não consigo fixar a foto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Não consigo fixar a foto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Não consigo fixar a foto Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  crysostomo em 2/2/2019, 17:27

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  crysostomo em 5/2/2019, 18:44

    agora nem com F5 a foto não volta
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  JPaulo em 6/2/2019, 10:19

    Pelo que percebi, você quer a imagem de fundo do form sempre fixa.

    Não é tarefa fácil, mas veja como se faz:

    Download

    1º No módulo "Móduloimagem", inseri uma variavel publica "Public strImagem$"

    2º Criei um form oculto, para permitir que se abra o seu form "1cartão" em modo de estrutura para aplicar a imagem

    3º No botão de inserir foto, mando abrir o form oculto se a imagem for escolhida:

    Código:
    Private Sub inserirImgCredencial_Click()
    Dim s As String
    s = OpenCommDlg()
        If s <> "" Then
          'envio o caminho da foto para a variavel publica
           strImagem = s
            'abro o form oculto
            DoCmd.OpenForm "frmOculto", , , , , acHidden
         End If
    End Sub

    4º Ao carregar do form oculto:

    Código:
    Private Sub Form_Load()
    'mando abrir o seu form "1cartão" em modo de estrutura e oculto
        DoCmd.OpenForm "1Cartão", acDesign, , , acFormEdit, acHidden
    'mando a imagem para o fundo
          Forms("1Cartão").Picture = strImagem
    'redimenciono a imagem
          Forms("1Cartão").PictureSizeMode = 1
    'fecho o form e salvo
          DoCmd.Close acForm, "1Cartão", acSaveYes
    'mando abrir o form
          DoCmd.OpenForm "1Cartão"
    ' e fecho o form oculto
          DoCmd.Close acForm, Me.Name
    End Sub


    .................................................................................
    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

    [Resolvido]Não consigo fixar a foto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Não consigo fixar a foto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Não consigo fixar a foto Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Não consigo fixar a foto Empty [Resolvido] Fecho hoje um sistema

    Mensagem  crysostomo em 6/2/2019, 16:30

    Obrigado pela ajuda, fecha hoje um sistema com essas ajuda cheers
    grato
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  JPaulo em 6/2/2019, 17:07

    Fico feliz

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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

    [Resolvido]Não consigo fixar a foto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Não consigo fixar a foto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Não consigo fixar a foto Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  crysostomo em 6/2/2019, 17:19

    Vou fazer a documentação deste e voltar com outros que estão em diagrama ainda, pois ainda eu voltando a praticar continua "fraco" mas estou progredindo

    Conteúdo patrocinado

    [Resolvido]Não consigo fixar a foto Empty Re: [Resolvido]Não consigo fixar a foto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 14:53