How to link field

[jmk909er]

From frmProjects via command button I am opening an input form with:

Private Sub Command40_Click()
If Me.Dirty Then Me.Dirty = False
DoCmd.OpenForm "frmRemarksInput", acNormal
End Sub

I need to include in this code a record number link, I want to link [Reference Number] from frmProjects to [Reference Number] in frmRemarksInput. How do I make this link?



P.S. do I need the If Me.Dirty thingy? Not sure what it does.
Thanks, Joe

[pbaldy]

Is this what you're looking for?

http://www.baldyweb.com/wherecondition.htm

The Dirty code forces the record to save if it isn't already.

[jmk909er]

Hi Paul, I looked at that link you provided and it looks like I should do it like this according to the link:

Private Sub Command40_Click()
DoCmd.OpenForm "frmRemarksInput", , , "Reference_Number = '" & Me.Reference_Number & "'"
End Sub

However it is not working, I am getting a syntax error, what am I doing wrong??

Thanks, Joe

[pbaldy]

The field is text I take it? Due to the inadvisable space in the name, you'll need to bracket it, like:

[Reference Number]

[jmk909er]

Hey Paul, I did not know that that space could be a problem, I think that it has been causing issues in other places now that I know that. Can you tell me if I have this right because it is still not working and do I need to have under scores between Reference and Number?

Private Sub Command40_Click()
DoCmd.OpenForm "frmRemarksInput", , , "[Reference Number] = '" & Me.[Reference Number] & "'"
End Sub

[pbaldy]

It needs to be exactly the same as in the table, either space or underscore. What is the data type of that field in the table? Is the record saved at this point?

[jmk909er]

It is a text field. The form opens to make a comment and is not saved untill the form closes. it is saved in frmRemarks that is a subdata sheet of the original record so that all comments are kept. Do I have the brackets in the right place?

[jmk909er]

It was working before by using
=[Forms]![frmProjects]![Reference Number]
in the field default field but I need to do it via command button because I want to input by using 2 different forms, one for user and one that admin will use

[pbaldy]

If the record isn't saved yet, try putting that "Dirty" line back before the OpenForm line.

[jmk909er]

I tried it like this:

Private Sub Command40_Click()
If Me.Dirty Then Me.Dirty = False
DoCmd.OpenForm "frmRemarksInput", , , "[Reference Number] = '" & Me.[Reference Number] & "'"
End Sub

and it is still not populating anything??

[pbaldy]

Can you post the db?

[jmk909er]

Ok, Here it is. Here is exactly what I am trying to fix: In the 2 forms "frmProjects" and "frmProjectsViewer" there is a command button "Make New Comment" I want it to open "frmRemarks" with the "Reference Number" populated from the respective first form. on load it already populates the date and user name. Please let me know if you need more info.

Non of the data is sensitive or private (Just test data)

Thanks, Joe

[pbaldy]

I assume you mean frmRemarksInput. The data entry property of that form is set to yes, so it will always open to a new record.

[jmk909er]

Yes it is frmRemarksInput and yes it is suppose to always open to make a new comment

[pbaldy]

Ah; I'd do it this way instead then:

DoCmd.OpenForm "frmRemarksInput"
Forms!frmRemarksInput.[Reference Number] = Me.Reference_Number