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

    Esconde Botões de Comandos

    Compartilhe
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/04/2013

    Esconde Botões de Comandos

    Mensagem  Uilson Brasil em Qua 29 Maio 2013, 3:28 pm

    Bom dia à todos,

    Em forma de agradecimento a este exelente fórum e seus participantes, pela ajuda prestada a este (eu), estou disponibilizando um pequeno e simples BD, contendo exemplos de como esconder os campos bem como os botões de comando.

    Se alguém fizer alguma alteração referente a códigos vba / funções, favor compartilhar.

    By Uilson Brasil

    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: Esconde Botões de Comandos

    Mensagem  HARYSOHN em Qua 29 Maio 2013, 5:14 pm

    Boas Uilson, parabéns pelo trabalho, está com um visual bastante agradável

    Deixarei aqui outras formas de se fazer isto tambem

    Marcando uma TAG com a Letra A por exemplo tambem se esconde/exibe:


    Sub TControlFunc()
    On Error Resume Next
    Dim TControle As Control
    For Each TControle In Me.Controls
    If TControle.Tag = "A" Then
    If TControle.Enabled = False Then
    TControle.Enabled = True
    Else
    TControle.Enabled = False
    End If


    ou ainda assim.. neste caso pode selecionar o tipo de controle...



    Private Sub Comando10_Click()
    Dim ctl As Control

    'Dicas para os controles
    For Each ctl In Me.Controls
    ' Percorre todos os tipos de controles
    Select Case ctl.ControlType
    Case acTextBox ', acComboBox, acListBox, acOptionGroup, acCheckBox
    MsgBox ctl.Name 'Aqui vai a sua instrução para a textBox...Nesta está colocando o nome em uma msgBox
    End Select
    Next ctl
    End Sub



    Para enriquecer mais este tópico.

    Abraços.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/04/2013

    Re: Esconde Botões de Comandos

    Mensagem  Uilson Brasil em Qua 29 Maio 2013, 7:43 pm

    Piloto,

    Obrigado pelo elogio. Porém de nada valeria a interface agradável se não fosse pelas funções colhidas de vários exemplos deste fórum. Não vou citar aqui os MESTRES - acabaria esquecendo de um ou outro - mas fique sabendo que vc está entre eles


    By Uilson Brasil

      Data/hora atual: Ter 12 Dez 2017, 10:21 am