Member Avatar for hikosj

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
  • 133 Views
  • 2 Weeks Discussion Span
  • Latest Post Latest Post by boblarson

Recommended Answers

All 2 Replies

Member Avatar for hikosj

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
Member Avatar for boblarson

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.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.