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]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 13 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    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: 7/11/2024, 18:57