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


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

    MarceloF
    MarceloF
    Novato
    Novato

    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 em 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 8 vez(es)
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 890
    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 em 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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    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 em 2/7/2019, 13:59

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

    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 890
    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 em 5/7/2019, 20:09

    Olá..

    Fico feliz por ter ajudado.

    Agradecemos o seu retorno

    Abraços e sucesso


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:12