' Available Selections Recordset
Set AvailSelections _
= CurrentDb.OpenRecordset( _
"SELECT tblSelectionsTree.SelectionID, " & _
"tblSelectionsTree.SelectionText, " & _
"tblSelectionsTree.ParentID " & _
"FROM tblSelectionsTree;", _
RecordsetTypeEnum.dbOpenSnapshot)
' User's current selections Recordset
' Edited by MVF form
Set UserSelections _
= CurrentDb.OpenRecordset( _
"SELECT tblUserSelections.UserID_FK, " & _
"tblUserSelections.SelectionID_FK " & _
"FROM tblUserSelections " & _
"WHERE tblUserSelections.UserID_FK=" & Me.UserID & ";", _
RecordsetTypeEnum.dbOpenDynaset, _
RecordsetOptionEnum.dbFailOnError)
'--------------- Color -----------'
' Available Selections Recordset
Set AvailSelections _
= CurrentDb.OpenRecordset( _
"SELECT tblColorSelections.SelectionID, " & _
"tblColorSelections.SelectionText, " & _
"0 as ParentID " & _
"FROM tblColorSelections " & _
"ORDER BY tblColorSelections.SelectionText;", _
RecordsetTypeEnum.dbOpenSnapshot)
' User's current selections Recordset
' Edited by MVF form
Set UserSelections _
= CurrentDb.OpenRecordset( _
"SELECT tblUserColorSelections.UserID_FK, " & _
"tblUserColorSelections.SelectionID_FK " & _
"FROM tblUserColorSelections " & _
"WHERE tblUserColorSelections.UserID_FK=" & Me.UserID & ";", _
RecordsetTypeEnum.dbOpenDynaset, _
RecordsetOptionEnum.dbFailOnError)