0

Hi all,

I have a problem with a query in access that I cant seem to figure out. I have a form named frmRecruitment with a subform named sfrmParticipant. At the moment I am using an append query to append records from 'sfrmParticipant' to 'frmIntervention' using a button on a main form 'frmRecruitment'.

This append query appends all the records from
'sfrmParticipant' to 'frmIntervention' but I only want to append the record that is displayed as the current record in the form or the last record from tblParticipant into tblIntervention and by using the button on the form append only that very last record.

I modified the code to do this:

Private Sub Command31_Click()
DoCmd.RunSQL "INSERT into [tblIntervention]([participantID]) VALUES (participantID)"
End Sub

and yes it appends only the information being displayed or the very last record from tblParticipant into tblIntervention but it prompts me to enter the participantID in order to do it.

How do I modify the append query to only append the form record with out promting me and having to enter the participant ID manually?


Thanks for your help!
hikosj

2
Contributors
2
Replies
3
Views
9 Years
Discussion Span
Last Post by boblarson
0

Thanks evreyone for the "help" and suggestions,

I finally figured it out! It took me a while but I finally got it to work.
I added this to the click event of a button

Dim str As String
 str = Form_frmPresentation.presentationID.Value
 DoCmd.Close
 DoCmd.OpenForm "sfrmAppointmentOne", acNormal, , , , acWindowNormal,
 "Value=" + str


And then I added this to the on load event of the form getting the variable


 Form_frmIntervention.participantID.Value =
 Form_frmParticipant.participantID.Value
 Me.Refresh
0

The answer to your original question as to why the query wasn't working is that you never gave it a WHERE clause to limit what it was doing.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.