3 forms exists.
frmInvEntry
frmInvEntryPg2
frmInvEntryPg3
Question: When I move from frmInvEntry to frmInvEntryPg2, selections made in frmInvEntry carry forward to frmInvEntryPg2. However, when moving from frmInvEntryPg2 to frmInvEntryPg3, prior selections made are not carrying forward. Why?
Private Sub cmdNext1_Click()
On Error GoTo Err_cmdNext1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmInventoryEntryPage2" 'set the page name
'Check to see if page2 is open
If IsLoaded(stDocName) Then
Forms!frmInventoryEntryPage2.Form.lstOptions.Requery 're-populate list
Forms!frmInventoryEntryPage2.Form.SetFocus
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
'The following code sends all of these values to the next form (page2)
Forms!frmInventoryEntryPage2.Form.txtModel = Me.cboModel
Forms!frmInventoryEntryPage2.Form.txtOptionGroup = Me.OptionCode
Forms!frmInventoryEntryPage2.Form.lstOptions.Requery
Forms!frmInventoryEntryPage2.Form.txtModelID = Me.txtModelID
Exit_cmdNext1_Click:
Exit Sub
Err_cmdNext1_Click:
MsgBox Err.Description
Resume Exit_cmdNext1_Click
End Sub
Private Sub cmdNext2_Click()
On Error GoTo Err_cmdNext2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmInventoryEntryPage3"
If IsLoaded(stDocName) Then
Forms!frmInventoryEntryPage3.Form.lstMotorSelection.Requery 're-populate list
Forms!frmInventoryEntryPage3.Form.SetFocus
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
'The following code sends all of these values to the next form (page 3)
Forms!frmInventoryEntryPage3.Form.txtModelID = Me.txtModelID
Forms!frmInventoryEntryPage3.Form.lstMotorSelection.Requery
Exit_cmdNext2_Click:
Exit Sub
Err_cmdNext2_Click:
MsgBox Err.Description
Resume Exit_cmdNext2_Click
End Sub
Please help solve my problem.
frmInvEntry
frmInvEntryPg2
frmInvEntryPg3
Question: When I move from frmInvEntry to frmInvEntryPg2, selections made in frmInvEntry carry forward to frmInvEntryPg2. However, when moving from frmInvEntryPg2 to frmInvEntryPg3, prior selections made are not carrying forward. Why?
Private Sub cmdNext1_Click()
On Error GoTo Err_cmdNext1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmInventoryEntryPage2" 'set the page name
'Check to see if page2 is open
If IsLoaded(stDocName) Then
Forms!frmInventoryEntryPage2.Form.lstOptions.Requery 're-populate list
Forms!frmInventoryEntryPage2.Form.SetFocus
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
'The following code sends all of these values to the next form (page2)
Forms!frmInventoryEntryPage2.Form.txtModel = Me.cboModel
Forms!frmInventoryEntryPage2.Form.txtOptionGroup = Me.OptionCode
Forms!frmInventoryEntryPage2.Form.lstOptions.Requery
Forms!frmInventoryEntryPage2.Form.txtModelID = Me.txtModelID
Exit_cmdNext1_Click:
Exit Sub
Err_cmdNext1_Click:
MsgBox Err.Description
Resume Exit_cmdNext1_Click
End Sub
Private Sub cmdNext2_Click()
On Error GoTo Err_cmdNext2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmInventoryEntryPage3"
If IsLoaded(stDocName) Then
Forms!frmInventoryEntryPage3.Form.lstMotorSelection.Requery 're-populate list
Forms!frmInventoryEntryPage3.Form.SetFocus
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
'The following code sends all of these values to the next form (page 3)
Forms!frmInventoryEntryPage3.Form.txtModelID = Me.txtModelID
Forms!frmInventoryEntryPage3.Form.lstMotorSelection.Requery
Exit_cmdNext2_Click:
Exit Sub
Err_cmdNext2_Click:
MsgBox Err.Description
Resume Exit_cmdNext2_Click
End Sub
Please help solve my problem.