[AccessD] Number of Users

Robert robert at servicexp.com
Sun Jan 6 15:05:28 CST 2008


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Are you anticipating this application migrating to Access 2007 Format?
If so, I'm not sure the GUID and ldb methods will correctly.???

WBR
~Robert



Rocky Smolin at Beach Access Software wrote:
> That was my first thought as well.  Maybe someone will chime in with a bit
> of ldb lore. 
> 
> Rocky
> 
> 
> 
>  	
> 	
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
> Sent: Sunday, January 06, 2008 12:17 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Number of Users
> 
> I've never done this before, but can't you interrogate the LDB file to find
> out how many users are on at once?
> 
> Arthur
> 
> On 1/6/08, Rocky Smolin at Beach Access Software <rockysmolin at bchacc.com>
> wrote:
>> Dan:
>>
>> I always declare dao variables explicitly.  But it looks like, as you 
>> say, a good template.
>>
>> Thanks
>>
>> Rocky
>>
>>
>>
>>
>>
>>
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
>> Sent: Sunday, January 06, 2008 11:40 AM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] Number of Users
>>
>> No - you'll need to work on it.
>>
>> You'll need to use your own tables of course.  You'll also need to 
>> deal with a couple of custom Functions (like 'SystemTitle'), which 
>> you'll need to either change or remove.
>>
>> I forgot about this but I believe that you'll need to qualify all your 
>> other recordset variables with your database as DAO.Recordset or 
>> ADODB.Recordset .
>> If you also set a reference to ADO, then your recordsets will need to 
>> know which type to become.
>>
>> This is intended as a template to start with.  I hope it does help!
>> Dan
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin at Beach Access Software
>> Sent: Sunday, January 06, 2008 1:18 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] Number of Users
>>
>> Dan:
>>
>> Just drop it in and it works?  I try to avoid code when I don't 
>> understand everything it's doing.  Can't maintain it.  Pretty much set 
>> a reference to ADO and then plug and play?
>>
>> Rocky
>>
>>
>>
>>
>>
>>
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
>> Sent: Sunday, January 06, 2008 10:45 AM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] Number of Users
>>
>> Hi Rocky,
>>
>> This came from MS KB198755, and I've used it for a few years now with 
>> no problems.  This will also tell the person being kicked off who else 
>> is logged in so they know who to ask to log off.
>>
>> -------------------------------------------------------------------
>>
>> Public Sub UserLimit()
>>
>>     Dim con As New ADODB.Connection
>>     Dim rst As New ADODB.Recordset
>>     Dim stgData As String
>>     Dim stg As String
>>     Dim stgFullName As String
>>     Dim rstFullname As DAO.Recordset
>>     Dim stgUserName As String
>>     Dim stgNameList As String
>>     Dim intUsers As Integer
>>     Dim stgUsers As String
>>     Dim rstUsers As DAO.Recordset
>>     Dim stgLockout As String
>>     Dim rstLockout As DAO.Recordset
>>
>>     '-- The user roster is exposed as a provider-specific schema rowset _
>>         in the Jet 4.0 OLE DB provider.  You have to use a GUID to _
>>         reference the schema, as provider-specific schemas are not _
>>         listed in ADO's type library for schema rowsets
>>
>>     '-- This is from MSKB 198755 and is specific to Access 2000 & up
>>     con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
>> DBEngine.SystemDB
>>
>>     Set rst = con.OpenSchema(adSchemaProviderSpecific, ,
>> "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
>>
>>     Do While rst.EOF = False
>>         stgUserName = Left$(rst(1), InStr(1, rst(1), Chr(0)) - 1)
>>         Set rstFullname = DBEngine(0)(0).OpenRecordset("SELECT Person 
>> FROM tblPeopleMain" _
>>             & " WHERE UserName = '" & stgUserName & "'", dbOpenSnapshot)
>>         If stgUserName <> "Admin" Then
>>             If stgNameList = "" Then
>>                 stgNameList = rstFullname("Person")
>>             Else
>>                 stgNameList = rstFullname("Person") & ", " & vbNewLine 
>> & stgNameList
>>             End If
>>             intUsers = intUsers + 1
>>         End If
>>         rst.MoveNext
>>         rstFullname.Close
>>         Set rstFullname = Nothing
>>     Loop
>>     rst.Close
>>     Set rst = Nothing
>>
>>     '-- Look for too many users logging in
>>     stgUsers = "SELECT ThisMonthUsers FROM tblUserLicenseInformation"
>>     Set rstUsers = DBEngine(0)(0).OpenRecordset(stgUsers, dbOpenSnapshot)
>>     If intUsers > rstUsers("ThisMonthUsers") Then
>>         stgLockout = "SELECT * FROM tblUserLicenseLockouts"
>>         Set rstLockout = DBEngine(0)(0).OpenRecordset(stgLockout,
>> dbOpenDynaset)
>>         rstLockout.AddNew
>>         rstLockout("Name") = CurrentPerson
>>         rstLockout("LockoutDate") = CurrentDate
>>         rstLockout("LockoutTime") = Format(Now(), "Medium Time")
>>         rstLockout("AllowedUsers") = rstUsers("ThisMonthUsers")
>>         rstLockout.Update
>>         rstLockout.Close
>>         Set rstLockout = Nothing
>>         FormattedMsgBox GstgNotReady, "There are insufficient User 
>> Licenses for you to log on." _
>>             & "  The following people are now logged on to " & 
>> SystemTitle & ":" _
>>             & vbNewLine & vbNewLine _
>>             & stgNameList & "@ @", vbExclamation + vbOKOnly, 
>> "Insufficient User Licenses"
>>         rstUsers.Close
>>         Set rstUsers = Nothing
>>         DoEvents
>>         DoCmd.Quit
>>         Exit Sub
>>     End If
>>     rstUsers.Close
>>     Set rstUsers = Nothing
>>
>> End Sub
>>
>>
>> ----------------------------------------------------------------------
>> -----
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin at Beach Access Software
>> Sent: Sunday, January 06, 2008 10:19 AM
>> To: 'Access Developers discussion and problem solving'
>> Subject: [AccessD] Number of Users
>>
>> Dear List:
>>
>> What is the easiest way to restrict the number of users in a FE/BE 
>> application?
>>
>> MTIA
>>
>> Rocky
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> No virus found in this incoming message.
>> Checked by AVG Free Edition.
>> Version: 7.5.516 / Virus Database: 269.17.13/1210 - Release Date: 
>> 1/5/2008
>> 11:46 AM
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> No virus found in this incoming message.
>> Checked by AVG Free Edition.
>> Version: 7.5.516 / Virus Database: 269.17.13/1210 - Release Date: 
>> 1/5/2008
>> 11:46 AM
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> No virus found in this incoming message.
> Checked by AVG Free Edition. 
> Version: 7.5.516 / Virus Database: 269.17.13/1210 - Release Date: 1/5/2008
> 11:46 AM
>  
> 
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFHgUKY72dSYCwH8FQRAnzPAJ0QhmZqAX1nYv/VysO23LIH6gjvcQCdH3t3
VjjgzMETvrWHzdOG58ggMA8=
=sKG2
-----END PGP SIGNATURE-----




More information about the AccessD mailing list