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]Requery num formulário com Fotografia

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Requery num formulário com Fotografia Empty [Resolvido]Requery num formulário com Fotografia

    Mensagem  Assis 13/7/2017, 23:20

    Boa noite Amigos

    Tenho 2 formulários, FrmProduto, e frmProdutoAlterar.

    Abro o frmProduto, para visualizar e se necessitar alterar dados tem um comando para abrir o frmProdutoAlterar.

    Depois de fazer as alterações cliko num botão com o código abaixo.

    Ao fechar o formulário vou para o mesmo registo que foi alterado, e todos os campos que eu alterei são atualizados, menos um que é a Fotografia

    Dim rs As DAO.Recordset
    Dim frmProd As DAO.Recordset
    Set frmProd = Forms!frmProduto.RecordsetClone

    If Me.Dirty Then
    If MsgBox("Dados Alterados Deseja Salvar ?", vbYesNo, "Aviso") = vbNo Then
     Me.Undo
    Else

    Me.Actualizado = Date
    End If
    End If

    frmProd.MoveFirst

    frmProd.FindFirst "[Ref] = '" & Me.ref & "'"

    Forms!frmProduto.Bookmark = frmProd.Bookmark

    DoCmd.Close acForm, Me.name


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Requery num formulário com Fotografia Empty Re: [Resolvido]Requery num formulário com Fotografia

    Mensagem  Silvio 14/7/2017, 01:36

    Boas Assis, tente isso..

    Forms!frmProduto.Bookmark = frmProd.Bookmark
    Forms!frmProduto.requery
    DoCmd.Close acForm, Me.name


    .................................................................................
    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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Requery num formulário com Fotografia Empty Re: [Resolvido]Requery num formulário com Fotografia

    Mensagem  Assis 14/7/2017, 10:08

    Bom dia Silvio

    Com o requery no local aonde o Amigo deu a ideia, perco a função de ao fechar o frmProdutoAlterar, voltar para o mesmo registo no formulário frmProduto, pois vai para o primeiro registo

    Anexo o exemplo

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Requery num formulário com Fotografia Empty Re: [Resolvido]Requery num formulário com Fotografia

    Mensagem  Silvio 14/7/2017, 13:17

    Boa tarde Assis.

    Uma parte já está feita.

    Chame a rotina " call carregafoto() " ao abrir teu formulário

    Código:
    Private Sub carregafoto()
    Dim f As String
    f = "[sysId]=" & Me!sysId
    DoCmd.ApplyFilter , f
        If IsNull(Me.LocalFoto) = False Then
            Me.FOTO.Picture = CurrentProject.Path & "\imagens\" & Me.LocalFoto.Value
              Else
            Me.FOTO.Picture = CurrentProject.Path & "\imagens\" & "SemFoto.gif"
        End If
        End Sub

    Agora vamos ver, o porque o mesmo não atualiza. Em anexo uma imagem para colocar na pasta "imagens" que você tem.


    .................................................................................
    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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Requery num formulário com Fotografia Empty Re: [Resolvido]Requery num formulário com Fotografia

    Mensagem  Assis 17/7/2017, 11:13

    Bom dia
    up


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Requery num formulário com Fotografia Empty Re: [Resolvido]Requery num formulário com Fotografia

    Mensagem  Assis 17/7/2017, 14:09

    Boa tarde amigos



    Dim rs As DAO.Recordset
    Dim frmProd As DAO.Recordset
    Set frmProd = Forms!frmProduto.RecordsetClone


    Me.CarregaDadosSalvos

    If Me.Dirty Then
    If MsgBox("Dados Alterados Deseja Salvar ?", vbYesNo, "Aviso") = vbNo Then
     Me.Undo
    Else

    Me.Requery ' fazer o Requery no próprio Formulário "frmProdutoAlterar"

    Me.actualizado = Date
    End If
    End If

    Forms!frmProduto.Requery
    frmProd.MoveFirst

    frmProd.FindFirst "[Ref] = '" & Me.ref & "'"

    Forms!frmProduto.Bookmark = frmProd.Bookmark

    DoCmd.Close acForm, Me.name


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Requery num formulário com Fotografia Empty Re: [Resolvido]Requery num formulário com Fotografia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:20