[Resolvido]Controle Guia nativo do Access piscando

Boa tarde à todos!

Andei procurando as soluções para o meu problema aqui no forum mas todas os tópicos relacionados não se aplicam ao meu problema.

O problema é o seguinte. Em um formulário, tenho um controle do tipo Guia com algumas guias já prontas. A primeira guia tem alguns controles e dois deles (que estão gerando o problema) são: um controle tipo imagem, e um controle botão de comando que tem a função de atualizar a imagem do controle imagem e atualizar alguns dados.

O botão de comando (cmdConf01), tem a função de alterar a imagem do controle tipo imagem (imgConf01). O que acontece é que ele altera a imagem mas o controle guia pisca a cada vez que você clica em cmdConf01 para acionar o procedimento.

O controle de imagem está configurado para trabalhar com imagem vinculada e não inserida, ou seja, as imagens estão em uma pasta de trabalho.

Veja abaixo o procedimento do botão de comando cmdConf01 para realizar algumas tarefas e por fim, modificar a imagem do controle imagem.

Código:

Private Sub cmdConf01_Click()

If IsNull(Me.cboDestino) Then
    MsgBox "Você deve informar um setor de destino antes de confirmar o envio do processo!", vbCritical, "Setor de destino não informado"
    ElseIf IsNull(Me.cboMotivo) Then
        MsgBox "Você deve informar um motivo antes de confirmar o envio do processo!", vbCritical, "Motivo não informado"
        Else
            If Me.cmdConf01.Caption = "Confirmar?" Then
                Me.txtDtEnvio = Date
                Me.txtDtRecebimento.Enabled = True
                Me.txtDtRecebimento.Locked = True
                Me.imgRest01.Picture = Application.CurrentProject.Path & "\imagens\Ações\7881_16x16.png"
                Me.cmdConf01.Caption = "Cancelar?"
                Call sbAtualizaTb(1)
                Else
                    Me.txtDtEnvio = Null
                    Me.imgRest01.Picture = Application.CurrentProject.Path & "\imagens\Ações\7711_16x16.png"
                    Me.cmdConf01.Caption = "Confirmar?"
            End If
End If

End Sub

O que quero saber é como parar este pequeno problema do controle guiar ficar piscando, pois é um efeito bem tosco para o programa que estou construindo.

Aguardo.

Olá João

Pode mostrar essa função?
Call sbAtualizaTb(1)

Ou melhor, teste o código sem a função, somente para ver se ele coloca ou troca a imagem
no controle imagem sem piscar a aba.

Outra coisa que não deu pra ver no código;

Quando cancela a imagem é apagada, ou seja, o controle imagem fica sem imagem?
Se sim, experimente colocar uma imagem "vazia" no controle, como por exemplo ser for para colocar uma foto
e a pessoa não tem faz uma imagem no paint com os dizeres "Foto indisponivel".
Então quando cancelar , substituir a imagem do controle pela imagem "vazia".
Claro que isso não se aplica a um registro que será deletado.

Abraços

Noob

Nobezinho, boa tarde!

O controle de imagem, por padrão, é mantido a imagem "7711_16x16.png". Já testei deixar sem imagem, com outro tipo de imagem mas não deu certo.

Segue abaixo o procedimento solicitado, mas eu já havia testado sem rodá-lo mesmo sabendo que ele não causava este tipo de problema.

Código:

Private Sub sbAtualizaTb(Opcao As Byte)

Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim addTrn As Long

Set DB = OpenDatabase(Application.CurrentProject.Path & "\dBase\PGPTJ_be.accdb")
Set rs = DB.OpenRecordset("tblTransitoProcesso", dbOpenTable)

If Opcao = 1 Then
    rs.AddNew
    rs.Fields("idOrigem").Value = 1
    rs.Fields("idDestino").Value = Me.cboDestino
    rs.Fields("idMotivo").Value = Me.cboMotivo
    rs.Fields("Retornara").Value = Me.cboDevolver
    rs.Fields("DtEnvio").Value = Me.txtDtEnvio
    addTrn = rs.Fields(0)
    rs.Update
    ElseIf Opcao = 2 Then
        With rs
            .Index = "PrimaryKey"
            .Seek "=", (Me.txtIDTrn)
            If Not .NoMatch Then
                rs.Edit
                rs.Fields("idOrigem").Value = fncSetorMotivo(0, Me.txtOrigem, "")
                rs.Fields("idDestino").Value = Me.cboDestino
                rs.Fields("idMotivo").Value = Me.cboMotivo
                rs.Fields("Retornara").Value = Me.cboDevolver
                rs.Fields("DtEnvio").Value = Me.txtDtEnvio
                rs.Fields("DtRecebimento").Value = Me.txtDtRecebimento
                rs.Fields("DtDevolucao").Value = Me.txtDtDevolucao
                rs.Fields("DtRetorno").Value = Me.txtDtDevolucao
                rs.Fields("ObsOrigem").Value = Me.txtObsOrigem
                rs.Fields("ObsDestino").Value = Me.txtObsDestino
                rs.Update
            End If
        End With
End If

Dim lstTrn As ListItem

Select Case Opcao
    Case Is = 1
        Set lstTrn = lvTransito.ListItems.Add(, "k" & addTrn, addTrn)
    Case Is = 2
        For Each lstTrn In lvTransito.ListItems
            If Me.txtIDTrn = Replace(lstTrn.Key, "K", "") Then
                GoTo CarregaCmps
            End If
        Next lstTrn
End Select

CarregaCmps:
    With Me
        lstTrn.SubItems(1) = fncSetorMotivo(0, .txtOrigem, "")  'Setor de origem
        lstTrn.SubItems(2) = Nz(.cboDestino.Column(1), "") 'Setor de destino
        lstTrn.SubItems(3) = Nz(.cboMotivo, "")  'Motivo de envio para o setor de destino
        lstTrn.SubItems(4) = Nz(.cboDevolver, "") 'Devolver (sim ou não)
        lstTrn.SubItems(5) = Nz(.txtDtEnvio, "") 'Data de envio para o setor de destino
        lstTrn.SubItems(6) = Nz(.txtDtRecebimento, "") 'Data que o destinatário recebeu o processo
        lstTrn.SubItems(7) = Nz(.txtDtDevolucao, "") 'Data de devolução do setor de destino
        lstTrn.SubItems(8) = Nz(.txtDtRetorno, "") 'Data de confirmação do retorno do processo
        lstTrn.SubItems(9) = Nz(.txtObsOrigem, "") 'Observações feitas pelo setor de origem
        lstTrn.SubItems(10) = Nz(.txtObsDestino, "") 'Observações feitas pelo setor de destino
    End With

Set lstTrn = Nothing
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing

End Sub

João


Sugiro que faça o seguinte teste:

Crie um campo "localImagem" na tabela que creio que seja essa: tblTransitoProcesso
Como é só um teste, digite o caminho completo para uma imagem nesse campo (Não use o Application.CurrentProject.Path).

No formulário:
Na fonte de registro do controle imagem (imgRest01), coloque o nome do campo que tem o caminho da imagem: LocalImagem

Para não mexer na estrutura do teu formulário crie um botão e no evento ao clicar dele coloque:
Me.imgRest01.requery

Então clique no botão para ver se muda da imagem sem piscar a aba.

Avise se funfou legal.

Noob

Nobezinho,

Infelizmente não funcionou. O que estou percebendo é que quando ele atualiza a propriedade do controle imagem (Picture) para a nova imagem, ele pisca. Eu executei todo comando sem a alteração da imagem, ou sejas, sem salvar o caminho novamente na propriedade picture, e ele não piscou.

Agora tenho que ver o que devo fazer para impedir que ele pisque sem modificar o meu procedimento.

Abrigado pela ajuda até aqui. Se tiver mais idéias, serão bem vindas.

Att.

Julio

Deixe-me saber melhor.
Com o teste que pedi para fazer, com um campo na tabela (a mesma do formulário) para guardar o caminho da imagem, e na fonte de registro do controle imagem a referencia a esse campo, quando se clica no botão para o formulário fazer um reconsulta(requery) no controle imagem,
a aba pisca também?

Se confirma isso, tenho uma outra ideia:
- mantenha o campo na tabela com o caminho da imagem.
-crie no formulário a caixa de texto desse campo (txtImagem).
-No botão de comando:
me.imgRest01.Picture = me.txtImagem

Veja se pisca.
Se não adiantou nada disso, anexe o formulário e a tabela (com 2 registros somente) para eu testar aqui.

Noob

Nobezinho, boa noite!

Consegui fazer com a usa primeira dica. O que eu me esqueci de fazer é tirar a linha Me.imgRest01.Picture = Application.CurrentProject.Path & "\imagens\Ações\7881_16x16.png" do procedimento. E sendo assim, o problema persistia pois ele fazia uma atualização do controle e não do valor do controle. E por isso piscava.

Ficou muito bom! Obrigado pela dica.

Abraços e boa noite.

Que ótimo que conseguiu !!

Mas me diga, foi a dica da mensagem 4?

Se sim, conseguiu implementar no teu código?

Se sim também, valeu o retorno e não esqueça de colocar
o Resolvido no título do tópico.

Abração e

Boa sorte!

Noob

Foi a dica da mensagem 4 mesmo. Agora vou acabar de implantar o projeto desta página para poder prosseguir.

Obrigado, abraços e boa noite.

Boa tarde,

Estava com esse problema de piscar toda vez que clicava em alguma parte da guia, então retirei o tema na própria guia e resolveu.