[Resolvido]Trocar cor e nome ao selecionar opção

Ola amigos,neste form cadastro de produtos tem um campo que é uma opção,gostaria que quando selecionado a opção, ficasse escrito consignado e se não estivesse selecionado ficasse escrito não consignado em outra cor,seria possível.


https://dl.dropboxusercontent.com/u/90217826/CProdutos.rar

No evento ao clicar.

Ps. Alterei o nome do label para lblConsig

Código:

Private Sub Consignado_Click()
    
    If Consignado = True Then
        
        Me.lblConsig.Caption = "consignado"
        Me.lblConsig.ForeColor = vbBlue
    
    Else
    
        Me.lblConsig.Caption = "Não consignado"
        Me.lblConsig.ForeColor = vbRed
        
    End If
        
End Sub

Legal formiga funcionou,só que ao selecionar o produto ao lado ele não muda,tem como fazer ele mudar.

Se o Amigo Formiga10X me permita dar uma dica...

A dica é colocar o Mesmo Codigo no Formulario, no Evento no Atual. Assim, quando o Usuario estiver navegando na Caixa de listagem, O nome Muda automaticamente se Ja tiver Marcada a Caixa...

   
   If Consignado = True Then
       
       Me.lblConsig.Caption = "consignado"
       Me.lblConsig.ForeColor = vbBlue
   
   Else
   
       Me.lblConsig.Caption = "Não consignado"
       Me.lblConsig.ForeColor = vbRed
       
   End If

Opa, ja estava postando a Resposta qnd o amigo Postou a Duvida!...

Correto Amigo Fábio.
Kaynan no Evento do form No Atual coloque:

Consignado_Click

Como está no código abaixo.

Código:

Private Sub Form_Current()

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select * from Produto")
rst.MoveLast
Me.txtultimo = rst("codProduto")
rst.Close
Set rst = Nothing

Consignado_Click

End Sub

É isso mesmo pessoal,coloquei no atual e ao clicar pra funcionar.
Agora só mais uma dúvida,quando eu quiser pesquisar só os produtos consignados ou os não consignados,que tipo de consulta seria.

Fabio,Formiga muito obrigado por terem solucionado essa minha lida.
Valeu mesmo.
Agora vou lidar com as pesquisas desses produtos.