A personal repository of random information in compensation for a fatigued biological computer
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