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]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 5 Mar - 12: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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qui 5 Mar - 13: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

    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 5 Mar - 16:07

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

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qui 5 Mar - 16: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

    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 6 Mar - 14: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: Qui 17 Ago - 7:41