Linking forms (I think!!!)

[Sleepymum]

Hi Folks,
Hope someone can give me a bit of advise.

I have set up database and use a form for data entry.
When the form is complete and record saved, I would like to be able to print out a form that has some of the fields in the data entry form. How can I get them to link, that it only prints the form for the record displayed on the data entry form.

Hope someone can make sense of that and offer some advise.

Thanks!"

[alansidman]

Here is a code that I have used in the past

Private Sub Command28_Click()
On Error GoTo Err_Command28_Click

    Dim stDocName As String

    stDocName = "Submission"
    'DoCmd.OpenReport stDocName, acNormal, , "[ID] = Forms!frmClients!ID"
    DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=Forms!frmClients!ID"

Exit_Command28_Click:
    Exit Sub

Err_Command28_Click:
    MsgBox Err.Description
    Resume Exit_Command28_Click
    
End Sub

You will have to change your form names. The key here is the field name [ID] is the record number in the table and form that you are looking at. This was put onto a command button. The report used a query for a record source. The two DoCmd lines are in case you wish to view the report in a preview format or in normal format. The apostrophe in front turns the code to information text and does not execute it. Take your pick.

HTH
Alan

[Sleepymum]

Hi,

Thanks for the reply.

I have tried this and I am being asked to enter parameters?
When I do this it opens a record but not the correct one!

My Command is called OPEN
My ID is NCMR ID
My data entry form is called NCMRDataEntry
and the form I want to open is call Non-Conforming Material Report

so this is what I am using:

Private Sub OPEN_Click()
On Error GoTo Err_OPEN_Click
Dim stDocName As String
stDocName = "NCMRDataEntry"
DoCmd.OpenForm stDocName, acNormal, , "[NCMR_ID] = Forms!frmNon-Conforming_Material_Report!NCMR_ID"

Exit_OPEN_Click:
Exit Sub
Err_OPEN_Click:
MsgBox Err.Description
Resume Exit_OPEN_Click
End Sub


What am I doing wrong!

[alansidman]

Firstly; you are getting a parameter request because Access does not recognize a field name in your query. It is usually caused because you have a spelling error and the named field in the query is misspelled or does not exist in the table referenced or as an alias in the query. I would solve this first and make sure the query is working properly.

You have set your DoCmd to open the form. The code I presented is for a report and not a form. It uses the form as the basis or information that you will generate in the report. Suggest you try to create a report based upon a query. Put the event on a command button on your form. With the form open to the record you want to have a report it will execute.

Alan

[Access_Blaster]

Hi Folks,
Hope someone can give me a bit of advise.

I have set up database and use a form for data entry.
When the form is complete and record saved, I would like to be able to print out a form that has some of the fields in the data entry form. How can I get them to link, that it only prints the form for the record displayed on the data entry form.

Hope someone can make sense of that and offer some advise.

Thanks!"

Hi Sleepymum,
Have a look here >> http://allenbrowne.com/casu-15.html I think your mixing Forms with Reports.

Richard

[Sleepymum]

Thanks a million for all your all help.
To get what I wanted I used the following code:
Thanks for your help!!!

Private Sub VIEW_NCMR_Click()
On Error GoTo Err_VIEW_NCMR_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Non-Conforming Material Report"

stLinkCriteria = "[NCMR ID]=" & "'" & Me![NCMR ID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_VIEW_NCMR_Click:
Exit Sub
Err_VIEW_NCMR_Click:
MsgBox Err.Description
Resume Exit_VIEW_NCMR_Click

End Sub