MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mudando as propriedades das caixas no visual basic

    Compartilhe

    JPDS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 11/06/2013

    [Resolvido]Mudando as propriedades das caixas no visual basic

    Mensagem  JPDS em Qui 05 Mar 2015, 16:38

    Boa tarde!!!
    Estoutentando fazer  um dashboard atravez de um formulario. Minha ideia consiste de uma tela com varias caixas que mudarão de cor dependendo da informação recebida atravez de uma consulta acionada periodicamente.
    Nessa consulta tenho um campo que ja possui a informação de qual caixa deve ser alterada.
    Ja fiz varias tentativas para criar o comando caixaXXX.backcolor=XXX e não obtive sucesso.
    A ultima tentativa foi com o codigo abaixo:

    Private Sub Form_Load()

    Dim dbsUTR As Database
    Dim m As Variant
    Dim rst As Recordset
       Set dbsUTR = CurrentDb
            Set rst = dbsUTR.OpenRecordset("StatusAtualConsulta", dbOpenDynaset)
          With rst
            lngred = RGB(255, 0, 0)
            .MoveFirst
            Do While Not .EOF
               If !situação <> 0 Then
                   k = !Posição
                   k.BackColor = lngred
                   MsgBox !UTR
                  .MoveNext
               End If
             Loop
          End With
         
         rst.Close
    End Sub

    Se alguem puder ajuda, agradeço.

    Grato

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Mudando as propriedades das caixas no visual basic

    Mensagem  Avelino Sampaio em Qui 05 Mar 2015, 17:43

    Olá!

    As caixas no formulário são numeradas ? Exemplo: caixa001, caixa002, ... E esse numeração coincide com a informação do campo posição da consulta ?

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    JPDS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 11/06/2013

    Re: Mudando as propriedades das caixas no visual basic

    Mensagem  JPDS em Qui 05 Mar 2015, 20:07

    Sim amigo Avelino. As caixas são enumeradas no Form e correspondem ás informações que estão na consulta.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Mudando as propriedades das caixas no visual basic

    Mensagem  Avelino Sampaio em Qui 05 Mar 2015, 20:38

    Experimente:

    Private Sub Form_Load()
    Dim rst As DAO.Recordset
    Set rst = Currentdb.OpenRecordset("StatusAtualConsulta", dbOpenDynaset)
    With rst
    .MoveFirst
    Do While Not .EOF
      If !situação <> 0 Then
         me("NomeDaCaixa" & !posição).BackColor = RGB(255, 0, 0) 'aqui vc pinta a caixa de texto do formulário correspondente a posição.
         MsgBox !UTR
      End If
    .MoveNext
    Loop
    End With
    rst.Close
    set rs = nothing
    End Sub


    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    JPDS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 11/06/2013

    RE:Mudando as propriedades das caixas no visual basic.

    Mensagem  JPDS em Sex 06 Mar 2015, 18:02

    Avelino funcionou assim:

    Dim dbsUTR As Database
    Dim rst As Recordset
    Set dbsUTR = CurrentDb
    Set rst = dbsUTR.OpenRecordset("StatusAtualConsulta", dbOpenDynaset)
    With rst
    lngred = RGB(255, 0, 0)
    ' .MoveFirst
    Do While Not .EOF
    If rst.Fields("situação").Value <> 0 Then
    k = rst.Fields("Posição").Value
    Me(k).BackColor = lngred
    MsgBox k
    MsgBox !UTR
    .MoveNext
    End If
    Loop
    End With

    rst.Close

    End Sub

    Com o DAO na primeira linha, não tinha funcionado.
    Mas agradeço o seu apoio e ajuda.

      Data/hora atual: Sex 09 Dez 2016, 07:43