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

    Formulário com botões ativos conforme condição cadastrada

    Compartilhe

    eduas65
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 30/10/2012

    Formulário com botões ativos conforme condição cadastrada

    Mensagem  eduas65 em 30/3/2018, 17:50

    Caros, peço ajuda na montagem de uma solução que permita construir um formulário para a seguinte operação;

    Há uma tabela de cadastro de cliente e uma segunda tabela vinculada com cadastro das modalidades que o cliente pratica. O que necessito seria um form aonde selecionado o cliente, conforme a modalidade cadastrada previamente(conforme mostra o subform na imagem), o botão de evento respectivo ficasse ativo ou não.

    Na imagem do link abaixo apresento o layout imaginado.

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


    Agradeço desde já qualquer colaboração e alternativas.

    Eduardo Alves
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1049
    Registrado : 18/07/2012

    Formulário com botões ativos conforme condição cadastrada

    Mensagem  toyebom em 1/4/2018, 01:24

    No evento do form, No Actual colocas:

    Código:
    If Me.Campo = "Esporte Modalidade 1" Then
    Me.botão.Enabled = True
    Else
    Me.botão.Enabled = False
    End If

    Utilizas o código 4 vezes um para cada modalidade, mudas é o nome do campo e do botão


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1049
    Registrado : 18/07/2012

    Formulário com botões ativos conforme condição cadastrada

    Mensagem  toyebom em 1/4/2018, 01:39

    Não tinha visto que era subform.


    Código:
    If Me!Subform.Form.Campo = "Esporte Modalidade 1" Then
    Me.botão.Enabled = True
    Else
    Me.botão.Enabled = False
    End If

    Não testei mas deve ser por aqui.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    eduas65
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 30/10/2012

    Formulário com botões ativos conforme condição cadastrada

    Mensagem  eduas65 em 2/4/2018, 23:22

    Caro amigo, agradeço a atenção mas esclareço que na verdade a ativação ou não do botão, seria dependente de .caption deste botão ser igual ou não a condição cadastrada no cliente (como na tela anexa), não seria genérica como programou.

    Agradeço sinceramente pela boa vontade, mas continuemos tentando.


    Eduardo
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1049
    Registrado : 18/07/2012

    Formulário com botões ativos conforme condição cadastrada

    Mensagem  toyebom em 3/4/2018, 00:01

    Mas é isso mesmo que estou a tentar explicar.

    Imagina que o subform chama-se Sub1 e os campos das opções do subform são TX1; TX2; TX3; TX4 e os botões são B1; B2; B3; B4, fazes o código para todos mais ou menos assim:

    Código:
    If Me!Sub1.Form.TX1= "Esporte Modalidade 1" Then
    Me.B1.Enabled = True
    Else
    Me.B1.Enabled = False
    End If
    If Me!Sub1.Form.TX2= "Esporte Modalidade 2" Then
    Me.B2.Enabled = True
    Else
    Me.B2.Enabled = False
    End If
    If Me!Sub1.Form.TX3= "Esporte Modalidade 3" Then
    Me.B3.Enabled = True
    Else
    Me.B3.Enabled = False
    End If
    If Me!Sub1.Form.TX4= "Esporte Modalidade 4" Then
    Me.B4.Enabled = True
    Else
    Me.B4.Enabled = False
    End If


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: 18/8/2018, 15:42