UtterAccess HomeUtterAccess Wiki

Welcome Guest ( Log In | Register )

Custom Search
Edit Discussion
> Lists    

clsList is designed to work with simple terminology or lookup lists and individualized subclass lists. For example in a personal care facility, you may need to have lists of medical conditions, food sensitivities, etc. for individual facility users. Full usage notes are included in the file media:clsLists.zip. There is a demonstration of the class use in the code archive

CODE


'************************************************************
'clsLists
'
'This class implements management of terminology lists and
'related subclass lists. Terms can belong to one or more
'categories. Subclass lists identify a lists category and its
'owner.
'
'The scenario in which this class is
'used involves three tables:
'
'    Terms Master List
'    Lists
'    Detail list
'
'Terms table is a simple lookup table with a single field for
'terms.
'
'Lists Table is a simple lookup table that has a single data
'field of category names.
'
'Detail List is a junction table connecting Terms,
'Lists (categories), and owners.
'
'********************** U S E A G E *************************
'
'In the examples in this demonstration,
'
'    tblSymptoms is the Terms Master List table
'    tblLists is the Lists table
'    tblListDetails is the Detail List table
'
'    an additional table, tblCases represents the list owners
'
'After instantiating a clsLists object, associate the object
'with its tables:
'
'   'associate master list with its table
'   .MasterListTable = "tblSymptoms"
'   .MasterListKey = "SymptomID"
'   .MasterListDataField = "Symptom"
'   .MasterListClassificationField = "SymptomClassID"
'
'   'associate detail list with its table
'   .DetailListTable = "tblListDetails"
'   .DetailListKey = "ListID"
'   .DetailListOwner = "CaseID"
'   .DetailListTerm = "ListItemID"
'
'   'associate lists table with its table
'   .ListsTable = "tblLists"
'   .ListsTableKey = "ListId"
'
'              L I S T   M A N A G E M E N T
'
'    Add new terms to the master list
'
'        'add a term to the masterlist
'        '.Term = "zigzags"
'        '.AppendTerm
'
'    Convert a csv list to structured data
'
'        'parse a csv list to structured data
'        'specify the csv
'        '.CSVList = "symp1, symp2, symp3"
'
'        'identify the owner
'        '.DetailListOwnerID = 29    'case id
'
'        'identify the category
'        '.DetailListID = 1    'Other Symptoms
'
'        '.ParseCSVToStructure
'
'    Create a csv list from structured data
'
'        'parse structured data to csv list
'
'        'specify list owner
'        .DetailListOwnerID = 29    'case id
'
'        'specify which list to parse
'        .ListType = 1
'
'        .ParseStructureToCSV
'        .ParseStructureToCSV
'
'    Display a csv list
'
'        Debug.Print .CSVList
'
'       A L T E R N A T I V E   D E L I M I T E R S
'
'    Work with alternative delimiters. The class defines
'    values for Bar and Tab delimiters but these are not
'    used in the demo.
'    either
'      .Delimiter = BarDelim
'    or
'      .Delimiter = TabDelim
'    will override the default comma delimiter
'
'                 E R R O R   H A N D L I N G
'
'   The class includes a rudimentary error handling method,
'   ClassError(). Property Get methods test the property's
'   value and call ClassError if the value is null, 0, or an
'   empty string. These errors may occur during development
'   but should not occur in production applications
'
'************************************************************


Creative Commons License
Lists by UtterAccess Wiki is licensed under a Creative Commons Attribution-ShareAlike 3.0 Unported License.
Editing and revision of the content is freely encouraged; for details, see Expected Usage.

Edit Discussion
Custom Search
Thank you for your support!
This page has been accessed 1,434 times.  This page was last modified 13:39, 27 January 2016 by Glenn Lloyd.   Disclaimers