Hiding a Column in Split Form

[cksm4]

Hello,

I am unable to get a column to hide in split form view. I have tried ColumnHidden, Visible, and ColumnWidth with no response. Any ideas?

Private Sub CboShowMe_AfterUpdate()



If Me.CboShowMe = "Current Employees" Then
Me.Status.ColumnHidden = True
Me.RecordSource = "QryEmployeesExtended"
DoCmd.ApplyFilter , "isNull(TerminationDate)"
End If

If Me.CboShowMe = "Former Employees" Then
Me.Status.ColumnHidden = True
Me.RecordSource = "QryEmployeesExtended"
DoCmd.ApplyFilter , "Not IsNull(TerminationDate)"
End If

If Me.CboShowMe = "Unfilled Positions" Then
Me.Status.ColumnHidden = False
Me.RecordSource = "QryOpenPositions"
End If

[cksm4]

Figured it out... in a split form you have to set the focus on the datasheet. I then used the column width as a work around:

Private Sub CboShowMe_AfterUpdate()

If Me.CboShowMe = "Current Employees" Then
RecordSource = "QryEmployeesExtended"
DoCmd.ApplyFilter , "isNull(TerminationDate)"
Screen.ActiveDatasheet.Status.ColumnWidth = 0
End If

If Me.CboShowMe = "Former Employees" Then
RecordSource = "QryEmployeesExtended"
DoCmd.ApplyFilter , "Not IsNull(TerminationDate)"
Screen.ActiveDatasheet.Status.ColumnWidth = 0
End If

If Me.CboShowMe = "Unfilled Positions" Then
RecordSource = "QryOpenPositions"
Screen.ActiveDatasheet.Status.ColumnHidden = False
Screen.ActiveDatasheet.Status.ColumnWidth = Me.Status.ColumnWidth
End If
End Sub

[SyntaxSocialist]

Sorry to revive an old thread, but how did you "set the focus on the datasheet?"