[Resolvido]Habiitar ou desabilitar controles de um formulario em Massa ( todos de uma vez )

Por não conhecer, pergunto.....

Algum dos senhores, conhece algum comando que possa habilitar ou desabilitar ( txt...lst...combobox.etc..etc..)de uma vez só ??

Quer seja ao carregar um formulário ou ao abrir.....ou no atual...ou até mesmo usando a caixa sim/não.

Grato desde já.

Boa noite Silvio,

Uso esse e funciona normal:

Código:

Function Controles(strFrm As Form) As String
'Ricardo - MVP Databases

Dim ctl As Control

For Each ctl In strFrm.Controls

If InStr(1, ctl.Tag, "A") Then 'os campos que pretender tem de ter na linha Marca ou Tag a Letra A
ctl = Enabled 'aqui você determina o procedimento para o campo
End If

Next ctl

End Function

Deve resolver.


Nivaldo.

Nivaldo, bom dia !!

Grato por me ajudar.....

Mas onde eu insiro essa function ??

O que pretendo, ao clicar numa caixa sim/não, essa function deve travar, todos os campos do frm e do subfrm, pois pretendo utilizar o mesmo para futuras consultas, tipo histórico.

Se me puder me ajudar, fico agradecido.

Eis o código que eu tenho.....onde eu posso colocar essa function ?


Dim strSQL As String, strSQL1 As String

'Primeira validação, se está preenchido, se tiver vazio não passa daqui
If IsNull(Me.parcelamento) Then Exit Sub

'Segunda validação, pela mensagem
If MsgBox("Parcelar essa Ordem ?", vbYesNo + vbQuestion, "Aviso..") = vbNo Then

'Se a resposta for Não, desmarca a checkbox e a instrução morre aqui
Me.parcelamento.Value = 0
Exit Sub
'Se for Sim, então faz um Insert na tabela recebidos, somente aos campos correspondentes
Else
DoCmd.RunCommand acCmdSaveRecord
strSQL = "INSERT INTO tblrecebeparcelado (idOS, Idcliente, DataOS, Nome, Fone, celular, CPF, CNPJ, cidade, estado, valortotal) Values (" & Me.IdOs.Value & "," & Me.Idcliente.Value & ",#" & Format(DataOS, "mm\/dd\/yyyy") & "#,'" & Me.Nome.Value & "','" & Me.Fone.Value & "','" & Me.Celular.Value & "','" & Me.CPF.Value & "','" & Me.CNPJ.Value & "','" & Me.Cidade.Value & "','" & Me.Estado.Value & "', " & Me.TGOS.Value & ")"

CurrentDb.Execute strSQL

'Devolve mensagem de confirmação
MsgBox "Confirmado o parcelamento realizado pelo cliente !", vbOKOnly + vbInformation, "Aviso..."

'Limpa dados originais
Me.Nome.Value = ""
Me.TMO.Value = ""
Me.parcelamento.Value = 0


DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
'DoCmd.GoToRecord , , acNewRec


If MsgBox(" Deseja abrir o Formulário de parcelamento ?", vbOKCancel) = vbOK Then
DoCmd.OpenForm "frmrecebeparcelado"

End If


End If

Silvio, em algum momento das suas instruções você quer bloquear campos, então em algum momento que só você saberá, deve chamar a função;

Call Controles(Me)

Se chamra a função no formulario, para bloquear no subformulario, será;

Call Controles(Forms!Seuform!SeuSubform)

Boa tarde JPaulo.

Sua observação está correta como sempre.

Vamos então, ver onde posso colocar essa function para travar.

Já te retorno, pois vou testar a dita em tudo que é lugar para ver qual a melhor posição dela.

Abraços.

Senhores, depurando o código ...... erro

ctl = Enabled ( variável não definida)

Delete o Option Explicit

Além disso o código está errado, corriga por favor e teste;

ctl.Enabled = False

Este é meu e funciona:

Public Funcion  Controles ( strFrm As Form) As String
'By JPaulo ® Maximo Access 2008
Dim ctl As Control
            
            For Each ctl In strFrm.Controls
                If InStr(1, ctl.Tag, "A") Then
                   ctl.Visible = True 'se desejar que fique visivel o campo
                   ctl.Locked = True 'se desejar bloquear o campo
                   ctl.Enabled = True 'se desejar ativar o campo
                End If
            Next ctl

End Function

Anotado....corrigido....e funfando.

Quem sabe ...sabe !!

Grato Paulo.

Obrigado pelo retorno o forum agradece.