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]Alterar botão de opção para texto

    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE 1/2/2018, 13:30

    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.


    .................................................................................
    Att.

    Alexandre Gonzales
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 1/2/2018, 14:31

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE 1/2/2018, 15:25

    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.


    .................................................................................
    Att.

    Alexandre Gonzales
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 1/2/2018, 18:09

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE 1/2/2018, 18:59

    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.
    Anexos
    [Resolvido]Alterar botão de opção para texto AttachmentDatabase18.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (184 Kb) Baixado 6 vez(es)


    .................................................................................
    Att.

    Alexandre Gonzales
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 1/2/2018, 19:20

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE 2/2/2018, 00:26

    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.


    .................................................................................
    Att.

    Alexandre Gonzales
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 2/2/2018, 12:34

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE 6/2/2018, 15:56

    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.


    .................................................................................
    Att.

    Alexandre Gonzales

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 00:29