"On Click" Confusion

Annabelle

Registered User.
Local time
Today, 11:33
Joined
Feb 20, 2003
Messages
32
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.
 
try replacing the last =me.txtmodelid with the full identifer
=Forms!frmInventoryEntryPage2.Form.txtModelID
 
I changed the last mention of txtModelID to the full identifier. But this did not work either.

I may need to mention the first On click is related to the NEXT command button on page 1 of the form. The second is related to the NEXT button on page 2 of the form.

Did I change the correct txtModelID?
 
i am assuming you are not refereing to subforms,try this codePrivate Sub cmdNext1_Click()
On Error GoTo Err_cmdNext1_Click

Dim stDocName As String

dim Frm2 as form
Dim stLinkCriteria As String
stDocName = "frmInventoryEntryPage2" 'set the page name
'Check to see if page2 is open
If IsLoaded(stDocName) Then
set frm2=Forms!frmInventoryEntryPage2
frm2!lstOptions.Requery 're-populate list
frm2.SetFocus
Else

DoCmd.OpenForm stDocName, , , stLinkCriteria
set frm2=Forms!frmInventoryEntryPage2

End If

'The following code sends all of these values to the next form (page2)
frm2!txtModel = Me.cboModel
frm2!txtOptionGroup = Me.OptionCode
frm2!lstOptions.Requery
frm2!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 Frm3 as form
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmInventoryEntryPage3"
If IsLoaded(stDocName) Then
set frm3=forms!frmInventoryEntryPage3
frm3!lstMotorSelection.Requery 're-populate list
Forms!frmInventoryEntryPage3.Form.SetFocus
Else

DoCmd.OpenForm stDocName, , , stLinkCriteria
set frm3=forms!frmInventoryEntryPage3

End If

'The following code sends all of these values to the next form (page 3)
Frm3!txtModelID = Me.txtModelID
frm3!lstMotorSelection.Requery
Exit_cmdNext2_Click:
Exit Sub

Err_cmdNext2_Click:
MsgBox Err.Description
Resume Exit_cmdNext2_Click

End Sub
 

Users who are viewing this thread

Back
Top Bottom