MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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)
    avatar
    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 20 Nov 2017, 15:31