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

    [Resolvido]Bloquear edição de campos de formulário continuo com condição IF

    MarceloF
    MarceloF
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 23/09/2014

    [Resolvido]Bloquear edição de campos de formulário continuo com condição IF Empty [Resolvido]Bloquear edição de campos de formulário continuo com condição IF

    Mensagem  MarceloF 1/7/2019, 19:11

    Boa tarde
    Tenho uma função no sistema para fazer o acompanhamento dos contatos com clientes, de forma bem simples.
    Funciona com um Formulário com os dados do Cliente e um subformulário (que precisa ser em modo contínuo) onde ficam os registros dos contatos.
    Extraí as telas principais que está no modelo anexo.

    O que estou tentando fazer:

    Quando acessar a tela, impedir a edição dos campos, permitindo apenas alterar o Status (pois o usuário precisa alterar de Aberto para Finalizado)

    A condição que usei e funciona em parte foi:
    (neste caso apenas bloqueado o campo senha)

    If IsNull(Me.senha1) = True Then
       Me.senha1.Enabled = True
      Else
      Me.senha1.Enabled = False
      End If

    O que ocorre é que como o formulário é contínuo, quando existe conteúdo no campo senha nos formulário anteriores, ele acaba bloqueando o campo senha também no novo formulário.
    Se coloco uma condição para liberar campo ao alterar para Finalizado, aí liberar todos... Crying or Very sad

    Se alguém puder ajudar.... Idea
    Anexos
    [Resolvido]Bloquear edição de campos de formulário continuo com condição IF AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 9 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Bloquear edição de campos de formulário continuo com condição IF Empty Re: [Resolvido]Bloquear edição de campos de formulário continuo com condição IF

    Mensagem  Celso Roberto 1/7/2019, 23:35

    Olá...

    Tente no evento atual do subformulário

    Código:
    Private Sub Form_Current()
     Dim ctl As Control
       
        For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
                If Not IsNull(Me.oque) Or Me.oque <> "" Then
                'If Me.status = "FINALIZADO" Then
                    If ctl.Name = "status" Then
                        ctl.Locked = False
                        ctl.Enabled = True
               
                    Else
                        ctl.Locked = True
                        ctl.Enabled = False
                    End If
                Else
                    ctl.Locked = False
                    ctl.Enabled = True
                End If
        End Select
        Next
    End Sub

    Aguardamos o seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    MarceloF
    MarceloF
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 23/09/2014

    [Resolvido]Bloquear edição de campos de formulário continuo com condição IF Empty Re: [Resolvido]Bloquear edição de campos de formulário continuo com condição IF

    Mensagem  MarceloF 2/7/2019, 13:59

    Bom dia, Celso.
    Obrigado pelo retorno. Funcionou perfeitamente.

    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Bloquear edição de campos de formulário continuo com condição IF Empty Re: [Resolvido]Bloquear edição de campos de formulário continuo com condição IF

    Mensagem  Celso Roberto 5/7/2019, 20:09

    Olá..

    Fico feliz por ter ajudado.

    Agradecemos o seu retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 29/7/2021, 00:56