Code to move to new record, taking a value from previous record

[jfn15]

I have three tables with M:M relationship.

TBLApp - AppID and other fields
TBLAnimals - AnimalID and other fields
TBLAppSpecies - AppID, AnimalID and other fields - this is the junction table

First form based on tblApp
Second form based on junction table, with a subform based on tblAnimals

Presently I have a command button the application form that open the second form, to the AppID on the first form.
DoCmd.OpenForm "frmAppSpecies",,,,,,Me.AppID
How do I then allow the user to add another record that is also related to that AppID, without going back to the first form and reclicking the command button?



I know this would be simpler using a subform in the application form, but I've been directed that this is not what the boss wants!

[June7]

You could set the DefaultValue property of the AppID textbox of the opened form. What is the code that extracts the AppID from OpenArgs and populates the first record? Put code to set the DefaultValue property in that same procedure.

[Missinglinq]

You're already using the OpenArgs argument to pass the AppID to the second Form, so simply use it again when you add additional Records for that ID in that session of the second Form:

Private Sub Form_Current()
 If Me.NewRecord Then
  If Nz(Me.OpenArgs, "") <> "" Then
     Me.AppID = Me.OpenArgs
  End If
 End If
End Sub

Linq ;0)>

[jfn15]

Hi Linq, thanks so much for your reply. That works well for adding a new record, however once the second form has more than one record (i.e if it was a subform, you would see several related records), I need to be able to open that second form (called frmAppSpecies) to show all the related animal records from the application form. So, say we have an application for 7 different animal species, the user can open the second form and have all the related species information there to edit, one page (species) at a time. To explain, each species may also have several related individual animal records (gender, microchip number etc - a 4th table, linked to tblAppspecies. These records are entered into a subform in frmAppSpecies (subfrmAnimaldetails). Does that make sense??? So, on frmApplication we need to see each species that is listed on the app., and on frmAppSpecies we need to see details about individuals within that species (for each application). I'm very new to this so I often make simple errors that may seem obvious to others, but that leave me quite perplexed. I do hope my explanation doesn't leave you similarly confused!

[June7]

So need to have option to open form to view existing species records related to an application?

DoCmd.OpenForm "formname", , , "ApplicationID=" & Me.ApplicationID

[jfn15]

.... and it would be useful if I actually engaged my brain before seeking assistance!!!!\

Many thanks - got it!