[Resolvido]Botão de Alternância - Mudar Status

Boa tarde, amigos

Gostaria de inserir em meu formulário um botão que mostre ao alternar o status do mesmo.

Por exemplo:

Ao clicar, mudar status - ao clicar, aparecer algo do tipo: "PUBLICADO" em verde;

Ao clicar novamente, "NÃO PUBLICADO" em vermelho.

Até poderia colocar caixas de seleção, mas gostaria de um botão só - mais para identificar pela cor.

Agradeço qualquer sugestão.

Acredito que você tenha esse status em um campo de uma tabela, certo? Poderia usar algo assim:

If DLookup("Status", "NomeTabela", "Código=" & Me!Código) = "PUBLICADO" Then
Me.NomeDoBotão.Caption = "PUBLICADO"
Me.NomeDoBotão.ForeColor = vbGreen
Else
Me.NomeDoBotão.Caption = "NÃO PUBLICADO"
Me.NomeDoBotão.ForeColor = vbRed
End If

Olá, criquio

No caso, é o seguinte:

Não tenho este status já definido - é como se eu utilizasse o grupo de opções - caixas de seleção, salvando os itens como 1 ou 2 e um 3º status - desativado.

Ao acessar o form, o botão estará desativado - daí escolhe-se publicado ou não - ou basta estar desativado, ao clicar, aparecer "PUBLICADO".

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Não resolvido ainda, Vieira... Não teria algum exemplo parecido com isto? O botão de alternância padrão do access não muda de cor - pelo menos da tipografia.

os botões do Access não mudam de cor, não. Você pode fazer isso com um controle imagem e trabalhar num programa de desenho. Com código pode simular, assim, por exemplo:

Me.imagem0.Visible=True
Me.imagem1.Visible=False

e por aí fora

Veja aqui exemplos

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000071

Ou aqui

http://maximoaccess.forumeiros.com/t605-botoes-ao-estilo-vista

Vou conferir aqui, Vieira.

Vou ver o que posso fazer aqui para solucionar isto e dou um retorno aqui.

Muito obrigado pela atenção e ajuda.

Saudações!

Se precisar de um exemplo, apite.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

OK - realmente, não achei nenhuma solução parecida com o que pretendia.

Utilizarei os botões / caixas de alternância padrão do Access.

Grato pela atenção de todos.

Saudações!

Bom trabalho