Attach to current form in public procedure

[bbrazeau]

I am trying to write a public procedure that I can use to enable/disable controls with automatically when I open forms in my database.
I have written them out on a form by form basis, but that is tedious and I would like to have something that is portable.
Could someone help me with the proper way to acomplish this?? Thank you

Public Sub DisAbleSomeControls()
Dim i As Integer
Dim c As Control
Dim db As Database
Dim f As Form
Set db = CurrentDb
Set f = Forms!ActiveForm


For i = 0 To f.Controls.Count - 1
Set c = f.Controls(i) 'Grab a control
If TypeOf c Is ComboBox Or TypeOf c Is TextBox Then
With c
'Set Enabled property to False
.Enabled = False
End With
End If
Next
End Sub

[ssanfu]

Try this:
(place this in a standard module)

Public Sub DisAbleSomeControls(pFrm As Form)
   Dim i As Integer
   Dim c As Control
   Dim db As Database
   Dim f As Form
   Set db = CurrentDb
   Set f = pFrm
   For i = 0 To f.Controls.Count - 1
      Set c = f.Controls(i)   'Grab a control
      If TypeOf c Is ComboBox Or TypeOf c Is TextBox Then
         With c
            'Set Enabled property to False
            .Enabled = False
         End With
      End If
   Next
End Sub

Call it using:

Private Sub Command28_Click()
   Call DisAbleSomeControls(Me)
End Sub

Sub Command28_Click is a button on my test form......

[bbrazeau]

Hi ssanfu, I clicked the star and gave you props for your help, but I saw nothing in this thread so I thought I'd just make sure you got it.(props) Your advise helped greatly. I applied the call portion to the form open event and all works well. Many thanks.

[ssanfu]

Glad to be of help..
You ready to mark this solved?