The cmdTier1 button is on the Dashboard:
Code: Select all
Private Sub cmdTier1_Click()
Dim Wk As Double
Wk = CDbl(InputBox("Current week"))
TempVars.Add "iSort", 2
TempVars.Add "sSort", "Tier, Plant"
TempVars.Add "sSortLabel", "By Plant Name"
TempVars.Add "dWk", Wk
DoCmd.Close
DoCmd.OpenReport "rptIndexTier1", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub
Code: Select all
Private Sub Report_Load()
If Not IsNull(TempVars!sSort) And Not IsNull(TempVars!iSort) Then
Me.optsSort = TempVars!iSort
Me.OrderBy = TempVars!sSort
Me.lblSort.Caption = TempVars!sSortLabel
Me.txtWeek = TempVars!dWk
TempVars.Remove "iSort"
TempVars.Remove "sSort"
TempVars.Remove "sSortLabel"
TempVars.Remove "dWk"
Else
Me.optsSort = 1
Me.OrderBy = "Index"
Me.lblSort.Caption = "By Index Number"
End If
End Sub