[Resolvido]Obrigar um campo a digitar os dados primeiro para poder liberar os demais campos

Olá,

Por favor, me ajudar se possível.

Após clicar no botão de comando NOVO.

O primeiro campo de cadastro no meu formulário seja "Obrigatório" digitar um texto ou escolher um texto já salvo na caixa de combinação.

Somente após esse processo liberar os demais campos para preencher.

Como faço esse procedimento?

Bom dia.
Suponhamos que a combo onde tem os textos que bloqueiam ou desbloqueiam os campos o nome seja MinhaCBO e nela tenha os valores: Sim e Não.

Caso seja selecionado Sim, os campos podem ser editados, caso não, os campos ficam bloqueados.

No VBA do formulário, ponha copie essa sub:

Código:

Sub BloqueiaControles(Acao As Boolean)
    For Each ctl In Me.Controls 'Percorro todos os controles do formulário
        If If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox And ctl.Name <> "MinhaCBO" Then ctl.Locked = Acao 'Caso seja um combo ou uma textbox e não seja a combo que uso como critério, aplico o bloquei ou desbloqueio
    Next
End Sub

No evento após atualizar da MinhaCBO:

Código:

Form_Current

No evento No atual do formulário, ponha isso:

Código:

If Me.MinhaCBO = "Sim" Then
    BloqueiaControles False 'Passo para sub que os controles não precisam ser bloqueados, pois informei "Sim"
Else
    BloqueiaControles True  'Passo para sub que os controles devem ser bloqueados, pois informei "Não"
End If

No evento

Olá, Marcelo David

Obrigado pela ajuda.

Inseri as formulas que você passou, mas não deu certo.

Após digitar o texto no campo "CboEmpresa" os demais campos não consigo digitar nada. Ficou travado.

O que fiz de errado?

Vamos..
Qual é o valor que precisa está na combo para liberar a digitação?
Em quais condições a regra de bloquear deve ser aplicada?

Desconfio (dependendo das respostas) podemos usar formatação condicional e nada de VBA...

Olá, Marcelo David

No formulário: FormEmpresaGeral quero que o campo chamado Empresa (CboEmpresa) seja obrigatório eu começar a digitar por ele.

Somente após digitar o texto nesse campo citado seja liberado os demais campos (Produto, Valor Unitário e Valor Total).

Para o seu caso, por se tratar de consistência de dados da regra de negócio,
apenas definiria o campo Empresa da tabela EmpresaGeral com requerido.

Assim, o registro não será salvo caso não ponha nada.

Faça um teste:

Remova todo o código que passei para vc, e faça a alteração no campo
como mencionei acima.

O usuário até pode digitar, mas não consegue salvar. É o mais indicado nessa situação.

Olá, Marcelo

Obrigado pela dica. Fiz o que você orientou.

Mas gostaria que os campos Produto, Valor Unitário e Valor Total ficasse travado até eu digitar primeiro no campo Empresa.

Não existe outra maneira de fazer isso no Access?

Segue em anexo o arquivo para visualizar.

Olá a todos

Uma sugestão

No evento atual do formulá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 IsNull(Me.CboEmpresa) Or Me.CboEmpresa = "" Then
                If ctl.Name = "CboEmpresa" 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


No evento após atualizar da CboEmpresa:

Código:

Private Sub CboEmpresa_AfterUpdate()
Dim ctl As Control
   
    For Each ctl In Me.Controls
    Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
            If Not IsNull(Me.CboEmpresa) Or Me.CboEmpresa <> "" Then
                ctl.Locked = False
                ctl.Enabled = True
            Else
                ctl.Locked = True
                ctl.Enabled = False
            End If
    End Select
    Next
End Sub

Aguardamos retorno

Abraços

Olá..

Altere o código do evento após atualizar passado na mensagem anterior por este

Código:

Private Sub CboEmpresa_AfterUpdate()
Dim ctl As Control
   
    For Each ctl In Me.Controls
    Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
            If Not IsNull(Me.CboEmpresa) Or Me.CboEmpresa <> "" Then
                ctl.Locked = False
                ctl.Enabled = True
               
            Else
           
                If ctl.Name = "CboEmpresa" Then
                    ctl.Locked = False
                    ctl.Enabled = True
                Else
                    ctl.Locked = True
                    ctl.Enabled = False
                End If
            End If
    End Select
    Next
End Sub

Este ira evitar o bloqueio da CboEmpresa se após atualizar ela seja deixada vazia.

Abraços

Olá, Celso Roberto

Agora deu certo com suas fórmulas.

Muito Obrigado pela dica.

Olá..

Ficamos felizes por ter ajudado.

O Fórum agradece seu retorno

Abraços e sucesso