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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Requery num formulário com Fotografia

    Mensagem  Assis em Qui 13 Jul 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 ***
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sex 14 Jul 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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sex 14 Jul 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
    Anexos
    Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (583 Kb) Baixado 10 vez(es)


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

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sex 14 Jul 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.
    Anexos
    semfoto.gif
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 10 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 17 Jul 2017, 11:13

    Bom dia
    up


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 17 Jul 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 ***

      Data/hora atual: Ter 21 Nov 2017, 21:02