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]Mudando as propriedades das caixas no visual basic

    avatar
    JPDS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mudando as propriedades das caixas no visual basic Empty [Resolvido]Mudando as propriedades das caixas no visual basic

    Mensagem  JPDS 5/3/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 5/3/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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    JPDS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPDS 5/3/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 5/3/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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    JPDS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mudando as propriedades das caixas no visual basic Empty RE:Mudando as propriedades das caixas no visual basic.

    Mensagem  JPDS 6/3/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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:15