[AccessD] User sysvars

  Not as a class; I just have a user preferences table and a get/put
routine.  He's a sample of setting some controls and a filter:

    varFieldValues = GetUserPreferences(lngUserID,
"frmTractorSummarySF_QBF:FieldValues")
    If Nz(varFieldValues, "") <> "" Then
      intFilterSet = True
      Call SetControlsToData(frmQBFForm, CStr(varFieldValues))
    End If
    
    If intFilterSet = True Then Me![SQLWhereClause] =
BuildWhereClause(frmQBFForm)
    
    varFieldValues = GetUserPreferences(lngUserID,
"frmLoadSummarySubform_QBF:Filter")

    If Nz(varFieldValues, "") = "ON" Then
      Call btnApplyFilter_Click
    Else
      Call btnRemoveFilter_Click
    End If

  Of course I did this all long ago before a lot of stuff was built into
Access, but it still works<g>.  And that's also the reason why it's
tableized.  I don't load anything more into memory then I absolutly have to.

Jim. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Monday, June 20, 2011 09:22 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] User sysvars

Does anyone have a functioning user sysvar class.  The user is able to
select things (perhaps a 
window position) and save them, then have them reload when that user logs
in?

I have never done this and don't want to reinvent the wheel if someone is
doing it already.
-- 
John W. Colby
www.ColbyConsulting.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com