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]Habilitar botão em formulário contínuo.

    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Habilitar botão em formulário contínuo. Empty [Resolvido]Habilitar botão em formulário contínuo.

    Mensagem  Rosalvo Petrillo 10/2/2019, 00:49

    Boa noite a todos!!!

    Em um formulário contínuo com dados somente de uma tabela, tenho um botão de comando no cabeçalho que deverá estar habilitado somente se um dos registros estiver com a caixa de seleção marcada. (Verdadeiro)

    Todos as caixas de seleção desmarcadas (falso) - botão  bloqueado/ se ao menos uma caixa tiver marcada, botão desbloqueado.

    Alguém pode me ajudar? Muito obrigado!!!
    avatar
    FabioGO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 22/08/2012

    [Resolvido]Habilitar botão em formulário contínuo. Empty Re: [Resolvido]Habilitar botão em formulário contínuo.

    Mensagem  FabioGO 11/2/2019, 10:34

    Veja se é isso
    Anexos
    [Resolvido]Habilitar botão em formulário contínuo. AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 29 vez(es)
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Habilitar botão em formulário contínuo. Empty habilitar botão em formulário contínuo.

    Mensagem  Rosalvo Petrillo 11/2/2019, 16:42

    Obrigado Fabio pela dica.

    Vou ter que fazer algumas adaptações porque não posso usar "Requery" nesse campo. Ele faz parte do critério da consulta, que exige "false" para o mesmo. Vou criar um outro campo na tabela e ver se consigo fazer funcionar. Mais a noite eu dou um retorno. Mais uma vez obrigado!
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Habilitar botão em formulário contínuo. Empty habilitar botão em formulário contínuo.

    Mensagem  Rosalvo Petrillo 11/2/2019, 20:16

    O amigo IvanJr me ajudou com um código que impede que o formulário contínuo se feche caso alguma caixa de seleção existente nos registros esteja selecionada.


    Aqui o código:

    Private Sub Form_Unload(Cancel As Integer)

    Dim objRS As Recordset
    Dim booTemMarcado As Boolean

    Set objRS = Me!subForm.Form.RecordsetClone

    If objRS.RecordCount > 0 Then

    Call objRS.MoveFirst

    Do

    booTemMarcado = objRS!ativo.Value
    Call objRS.MoveNext

    Loop Until objRS.EOF Or booTemMarcado

    End If

    Call objRS.Close: Set objRS = Nothing

    Cancel = booTemMarcado

    End Sub

    Agora o que eu preciso é que o "Botão" que coloquei no cabeçalho do form. esteja habilitado somente quando alguma das caixas de seleção esteja marcada. No exemplo que o amigo Fabio me passou funciona perfeitamente, só que no meu caso não poderei usar Requery como já disse, e aí o código deixa de funcionar.
    Tentei adaptar o código acima, mas infelizmente não consegui.


    avatar
    FabioGO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 22/08/2012

    [Resolvido]Habilitar botão em formulário contínuo. Empty Re: [Resolvido]Habilitar botão em formulário contínuo.

    Mensagem  FabioGO 12/2/2019, 10:23

    Melhor postar seu programa para verificar como está e como adaptar.
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Habilitar botão em formulário contínuo. Empty habilitar botão em formulário contínuo.

    Mensagem  Rosalvo Petrillo 12/2/2019, 22:49

    https://www.dropbox.com/s/pr19a3yqdbxyt55/Banco%20de%20dados1.accdb?dl=0
    avatar
    FabioGO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 22/08/2012

    [Resolvido]Habilitar botão em formulário contínuo. Empty Re: [Resolvido]Habilitar botão em formulário contínuo.

    Mensagem  FabioGO 13/2/2019, 10:40

    Rosalvo

    Esse modelo que você disponibilizou está parecido com o exemplo que te passei.

    Eu teria que ver o código que você diz que interrompe com o requery

    Tente usar no lugar do requery o refresh para ver se tem o mesmo efeito
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Habilitar botão em formulário contínuo. Empty habilitar botão em formulário contínuo.

    Mensagem  Rosalvo Petrillo 13/2/2019, 13:06

    Ok Fábio!!!!
    Com Refresh o problema foi resolvido. Muito obrigado mesmo por sua atenção. Grande Abraço!

    Conteúdo patrocinado


    [Resolvido]Habilitar botão em formulário contínuo. Empty Re: [Resolvido]Habilitar botão em formulário contínuo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:46