Access Select Multiple Records on List and Transfer to Subform
Posted on 2009-05-12
I have a main form (unbound) that contains a list that is generated from several search fields. Currently, I can click on the record, and press a command button that will copy that record information over to a bounded subform. Works great! However, looks like we would like to be able to select multiple record on the list and have those records be copied over to the subform for browsing.
Here is the code in the list table review subform(frmBrowseByName_Single):
Private Sub Command83_Click()
DoCmd.OpenForm "frmBrowseByName_Single", , , "[StructureID]=" & Me.lstStructures
On Error GoTo Err_Command83_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmBrowseByName_Single"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Here is the code in the subform (frmBrowseByName_Single):
Private Sub Form_Load()
'Used to allow for next record to be browsed
Dim rstFormRecords As Object
Dim lngStructureID As Long
lngStructureID = Me.StructureID
Me.FilterOn = False
Set rstFormRecords = Me.Recordset.Clone
rstFormRecords.FindFirst "[StructureID] = " & lngStructureID
If Not rstFormRecords.EOF Then Me.Bookmark = rstFormRecords.Bookmark
If I set the multiple select to extended, and the code stopped at the StructureID =.
Thanks for the help!!