[Resolvido]Alterar botão de opção para texto

Prezados, bom dia.

Como faço para alterar um botão de opção / alternância para texto no Formulário?

Tentei da seguinte forma mas não deu certo:

Private Sub Form_Load()

If Me.Ctl500mlAgua.Value = True Then
Me.Texto1 = " COM 500ML DE ÁGUA"

ElseIf Me.Ctl500mlAgua.Value = False Then
Me.Texto1 = ""
End If

Obs: Criei o campo Texto1 para ele substituir quando o botão de opção / alternância for true ou false.

Veja esse Teste que fiz aqui no evento apos atualizar do Botão:

Private Sub Ativar_Desativar9_AfterUpdate()
If Me.Ativar_Desativar9 = True Then
  Me.Texto4 = "Ativado"
Else
   Me.Texto4 = "Desativado"
End If
End Sub

Siga o exemplo e adapte para seu evento pretendido.

Boa tarde Fabio,

Infelizmente seu modelo não funcionou.

Vou detalhar melhor o que preciso:

Tenho um BD de vendas de sucos. Neste BD tenho os botões de alternância para:
500ml com agua
1 Litro com agua
500ml com leite
1 litro com leite

Ocorre que no formulário de vendas criei um subformulário de exibição onde os produtos lançados aparecem de forma escrita.

Hoje está assim:
01 Suco de Limão - botão: 500 ml com agua

Queria que aparecesse:
01 Suco de Limão de 500 ml com agua ( de forma escrita )

Ou seja, substituir o botão por um txt no resultado do formulário de exibição.

Amigo, continuo sem entender nada! Pois o que passei funciona perfeitamente!

Poste Print da tela ou o Aplicativo, somente as partes envolvidas na dúvida!

Prezado Fabio,

É difícil explicar então estou postando uma cópia de parte do meu BD que ainda não finalizei.

Meu BD contem 4 formulários que depois vou aumentar.

Formulário de Vendas - principal;
Formulário 1Sucos - Vinculado
Formulário Detvendas Sucos - Subformulário;
Formulário DetVendas ExibSucos - exibição e é neste que está ocorrendo o problema.

Repare mesmo estando como formulário Contínuo ele não altera o produto e também não altera a informação que preciso.

Coloquei no evento Private Sub Form_Load() para que pudesse alterar o botão de alternância para texto utilizando o campo Texto1.

Desculpe amigo, terá que explicar de forma detalhada como proceder dentro dos seus formulários, bem como o que pretende que aconteça! So mandando o arquivo eu estou perdido dentro do App sem saber o que fazer!

Boa noite Fabio,

O que pretendo é alterar o botão de alternância para escrita.

Botão [500ml Água] será alterado para forma escrita 500 ml de água.

A unica forma que consegui fazer isso foi no relatório ao imprimir. Substituí o botão por um campo txt assim:

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
If Me.Ctl500mlAgua.Value = True Then
Me.Texto1 = " COM 500ML DE ÁGUA"

ElseIf Me.Ctl500mlAgua.Value = False Then
Me.Texto1 = ""
End If

Dentro do SubFormulário "Pedidos" é onde deveria acontecer esta troca. O que é botão vira escrita, como se fosse um relatório do que está sendo vendido.

É isso Fábio que pretendo mas não consigo fazer com que o botão seja substituído no formulário.
Como eu disse, no relatório deu certo mas no formulário não.

Amigo, se quer trocar o Botão por Texto, porque não coloca uma caixa de combinação onde selecionar uma das opções? Ficaria até mais Fácil!

Pois da forma como está ficou muito confuso. Eu abri e fiquei sem saber o que fazer no formulário. Isso não é bom pro usuário final.

Boa tarde Fábio,

Este BD está sendo projetado pelo usuário final.

Também sei que uma caixa de combinação seria melhor pois apresenta o resultado em forma de texto e resolveria meus problemas mas a pedido do cliente foi criada as opções de seleção através de Botões de Alternância e com alguns cliques a venda estaria concretizada.

Desta forma foi feita e ao visualizar o relatório, em modo de impressão, com ajuda do Sr. Avelino Sampaio consegui alterar o botão para texto e ficou muito bom.

O que eu queria é que durante a venda o usuário pudesse ver o que está vendendo e ao invés de mostrar os botões de alternância aparecesse textos no subformulário.

Tentei utilizar o mesmo recurso que o utilizado no relatório mas , sem sucesso.

De qualquer forma Fábio, eu agradeço e espero sempre encontrar pessoas assim dispostas a ajudar o próximo.

Vou encerrar este tópico e tentar mudar a forma como os produtos ficarão dispostos no subformulário.

Muito obrigado Fábio.