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]Butão editar em Formulários

    isaias_sc
    isaias_sc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 23/07/2012

    [Resolvido]Butão editar em Formulários Empty Butão editar em Formulários

    Mensagem  isaias_sc 16/3/2013, 16:41

    Olá Pessoal,

    Será que existe um forma de colocar um butão no formulário para permitir editar os dados ?

    Tenho um formulario usado para alimentar uma determinada tabela, esse form é usado tanto para o cadastro como também para a consulta de dados na tabela.

    Neste formulário coloquei uma comboBox que serve de pesquisa, ao selecionar um cliente o formulario é alimentado com os dados do cliente através de uma consulta Select.

    O que desejo é colocar neste form um butão para editar o cadastro.

    De forma que a comboBox fique funcionando normalmente como pesquisa, porém os campos e controles do formulário fique desabilitados,e so sejam habilitados ao clicar no butão editar.

    Desde de já agradeço!!

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Butão editar em Formulários Empty Re: [Resolvido]Butão editar em Formulários

    Mensagem  criquio 16/3/2013, 18:34

    Olá! Dê uma pesquisada no fórum. Há alguns tópicos relacionados com o tema.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    isaias_sc
    isaias_sc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 23/07/2012

    [Resolvido]Butão editar em Formulários Empty Re: [Resolvido]Butão editar em Formulários

    Mensagem  isaias_sc 16/3/2013, 19:15

    Criquio,

    Dei uma pesquisada no Forum e encontrei o código que estava precisando... Muito obrigado pela dica.

    Veja o código fornecido por nosso amigo PILOTO:

    um exemplo é o que estava agora fazendo pra ti.


    Em eventos.. No atual

    Dim ctl As Control
    Dim StrName As String

    For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
    StrName = ctl.Name
    Me(StrName).Enabled = False
    End Select
    Next ctl



    Para editar... em um botão:



    Dim ctl As Control
    Dim StrName As String

    For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
    StrName = ctl.Name
    Me(StrName).Enabled = True
    End Select
    Next ctl

    Atende perfeitamente minha necessidade!

    Conteúdo patrocinado


    [Resolvido]Butão editar em Formulários Empty Re: [Resolvido]Butão editar em Formulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 04:06