Creating a Subroutine for hiding cloumns

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi there,

I have some option buttons which filters my form and hides certain columns
in my subform to make veiwing easier. These options are controlled each time
a button receives the focus. like so:

Private Sub NoTuisStatusButton_GotFocus()
ToshRF1Button = 0
Change2RF2Button = 0

Me!TuisNo.Enabled = True

Me.OrderDetails.Form!ValeID.ColumnHidden = False
Me.OrderDetails.Form!SupplierID.ColumnHidden = True
Me.OrderDetails.Form!SupplierName.ColumnHidden = True
Me.OrderDetails.Form!SupplierTel.ColumnHidden = True

End Sub

Private Sub OpenCallsButton_GotFocus()
ToshRF1Button = 0
Change2RF2Button = 0


Me!TuisNo.Enabled = True

Me.OrderDetails.Form!ValeID.ColumnHidden = False
Me.OrderDetails.Form!SupplierID.ColumnHidden = True
Me.OrderDetails.Form!SupplierName.ColumnHidden = True
Me.OrderDetails.Form!SupplierTel.ColumnHidden = True

End Sub

**
What would be easier is if i could tidy it all up and there was only one
subroutine for hiding the columns like so (however this does not work)

Private Sub ToshRF1Button_GotFocus()

Change2RF2Button = 0
OpenCallsButton = 0
NoTuisStatusButton = 0

Me!TuisNo.Enabled = True

GoSub HideColumns

End Sub

Public Sub HideColumns()
Me.OrderDetails.Form!ValeID.ColumnHidden = False
Me.OrderDetails.Form!SupplierID.ColumnHidden = True
Me.OrderDetails.Form!SupplierName.ColumnHidden = True
Me.OrderDetails.Form!SupplierTel.ColumnHidden = True

Return
End Sub

Can anyone guide me on creating a subroutine which I can apply to each
command.
So there is not loads of the same code.
 
Back
Top