Access: Show Hide search params

 

Private Sub ShowHideAdvancedParams()

' Position advanced params on screen in two columns

Dim ColumnPosition As Single
Dim ColumnIncrement As Single
Dim EnabledVisible As Boolean
Dim ParamsTop As Single
Dim ColumnHeadingsTop As Single
Dim FormHeaderHeight As Single

FormHeaderHeight = 6.921
Me.FormHeader.Height = FormHeaderHeight * 567 ' set large so room to move controls down if applicable

If SearchParamsBasic Then
ParamsTop = 0
ColumnIncrement = 0
EnabledVisible = False
ColumnHeadingsTop = 2.407
[LineBetweenbasicAndAdvancedParams].Visible = False
FormHeaderHeight = 3.227
btnAdvanced.Caption = "Ad&vanced"
Else
ParamsTop = 2.407
ColumnIncrement = 0.423 + 0.083
EnabledVisible = True
ColumnHeadingsTop = 6.1
[LineBetweenbasicAndAdvancedParams].Visible = True
btnAdvanced.Caption = "Sim&ple"
End If

' Position Search Parameters

ColumnPosition = ParamsTop

Call PositionShowHideControlAndLabel("AgencyCodeSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("RecordGroupReferenceSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("AccessionNumberSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("SeriesNumberSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("JobCategorySearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("JobTypeSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("FormatSelectedSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

' Second column

ColumnPosition = ParamsTop

Call PositionShowHideControlAndLabel("CreatedBySearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("CreatedByOfficeSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("CreatedDateStartSearch", ColumnPosition, EnabledVisible)
Call PositionShowHideControlAndLabel("CreatedDateEndSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("CancelledSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("FinishedSearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("FinishedBySearch", ColumnPosition, EnabledVisible)
ColumnPosition = ColumnPosition + ColumnIncrement

Call PositionShowHideControlAndLabel("FinishedDateStartSearch", ColumnPosition, EnabledVisible)
Call PositionShowHideControlAndLabel("FinishedDateEndSearch", ColumnPosition, EnabledVisible)

' Position data column headings

Call PositionShowHideLabel("lblJobNumber", ColumnHeadingsTop, True)
Call PositionShowHideLabel("lblAgencyCode", ColumnHeadingsTop, True)
Call PositionShowHideLabel("lblRecordGroupReference", ColumnHeadingsTop, True)
Call PositionShowHideLabel("lblSeriesNumber", ColumnHeadingsTop, True)
Call PositionShowHideLabel("lblAccessionNumber", ColumnHeadingsTop, True)
Call PositionShowHideLabel("lblDescription", ColumnHeadingsTop, True)

ColumnHeadingsTop = ColumnHeadingsTop - 0.083

Call PositionShowHideLabel("LineBeforeColumnHeadings", ColumnHeadingsTop, True)

' Now reset form header height incase were going from advanced to simple parameters

Me.FormHeader.Height = FormHeaderHeight * 567

' Now if advanced search options betteer set 'Include Finished' sub options on or off'

If Not SearchParamsBasic Then
FinishedSearch_AfterUpdate
End If

End Sub

Private Sub PositionShowHideControlAndLabel(ctrlname As String, Position As Single, EnabledVisible As Boolean)

Me.Controls(ctrlname).Top = Position * 567
Me.Controls(ctrlname).Visible = EnabledVisible
Me.Controls(ctrlname).Enabled = EnabledVisible

Call PositionShowHideLabel("lbl" + ctrlname, Position, EnabledVisible)

End Sub

Private Sub PositionShowHideLabel(ctrlname As String, Position As Single, Visible As Boolean)

Me.Controls(ctrlname).Top = Position * 567
Me.Controls(ctrlname).Visible = Visible

End Sub