MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Salvar alteração Modo Desing

    Compartilhe

    Ribar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/08/2013

    Salvar alteração Modo Desing

    Mensagem  Ribar em Qua 11 Jun 2014, 20:44

    Olá pessoal,

    Ajuda, tenho um formulário com vários rótulos para as caixas de seleção (ou seja títulos das caixas), necessito alterar o rótulo de forma permanente via vba,
    eu consigo fazer alteração usando o código abaixo, mais quando reinicio o formulário volta ao texto original como fazer alteração de forma definitiva no formulário?

    Private Sub Rtl_Botao02_Click()
    If MsgBox("DESEJA ALTERAR TEXTO ", vbYesNo, "ATENÇÃO:") = vbYes Then
    NomeCap = InputBox("Entre com o novo texto:", "RÓTULO:", "")
    Me.Rtl_Botao02.Caption = NomeCap
    End If
    End Sub

    No aguardo

    Agradeço


    Última edição por Ribar em Sex 13 Jun 2014, 20:29, editado 1 vez(es)

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: Salvar alteração Modo Desing

    Mensagem  clynton em Qua 11 Jun 2014, 23:12

    Se é para alterar de forma permanente, não precisa de um processo para tanto.
    Basta alterar no modo Design e salvar.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    Ribar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/08/2013

    Salvar alteração Modo Desing

    Mensagem  Ribar em Sex 13 Jun 2014, 20:22

    Rogério,

    Eu sei fazer isso manualmente (Modo Design), o que necessito deixar disponível para o usuário fazer a alteração do texto simplesmente com um click no rótulo.

    Grato
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    Ribar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/08/2013

    Salvar alteração Modo Desing

    Mensagem  Ribar em Seg 16 Jun 2014, 15:43

    Beto,

    NomeCap é a variável que recebe a entrada na menssagem Inpultbox
    NomeCap = InputBox("Entre com o novo texto:", "RÓTULO:", "")
    O autor desta mensagem foi removido do fórum - Ver a mensagem

      Data/hora atual: Seg 05 Dez 2016, 16:33