Link 2 forms

[AussieGal]

Hi,



I have a long survey that needs to run over 2 pages due to the number of questions. I have a 'page 2' button on the bottom of the first page that opens page 2 of the survey. On page 1 the user selected the Client (Episode ID) and a Survey ID (ILSID) is automatically created. When the user selects the 'page 2 button' the blank form that opens autofills the client ID, Date that was filled out on the first page (which is happening due to Default ) but I want it to also put in the same Survey ID from page 1. When Page 2 opens I see a 'New" appear in the ILSID field? I currently have the following code, yet it is instead creating the next record which is wrong. Do you know how to amend this code so it allows the ILSID to only fill out from what is currently on Form 1?

Option Compare Database
Option Explicit
Private Sub cmdOpenPage2_Click()
On Error GoTo Err_cmdOpenPage2_Click    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frmILSAssessment2"
    
    stLinkCriteria = "[ILSID]=" & Me![ILSID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdOpenPage2_Click:
    Exit Sub
Err_cmdOpenPage2_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenPage2_Click
    
End Sub

Thanks in advance for your time and effort.

[RuralGuy]

Have you saved the data from the first Form yet? I assume the 2nd Form is using the same table as the 1st Form.

[AussieGal]

I just presumed when I left the first form the data saved. I am actually using a query for Form 1 and a different query for form 2, although they are both using the same main table with linkages to the different survey groupings. There are about 10 groups of questions and each group has it's own table, all referring to the ILSID.

[RuralGuy]

Try adding these two lines of code and see if it makes a difference:

Option Compare Database
Option Explicit
Private Sub cmdOpenPage2_Click()
On Error GoTo Err_cmdOpenPage2_Click    Dim stDocName As String
    Dim stDocName As String
    Dim stLinkCriteria As String
    If Me.Dirty Then Me.Dirty = False

    stDocName = "frmILSAssessment2"
    
    stLinkCriteria = "[ILSID]=" & Me![ILSID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdOpenPage2_Click:
    Exit Sub
Err_cmdOpenPage2_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenPage2_Click
    
End Sub

[AussieGal]

Yeah it worked!. Thank you so much for your help!

[RuralGuy]

Great! Glad we could help.