Time to update David's "PasswordLogin.mdb" ?

[mrcunknown]

Hi all, I realy like this login! But is this also working with multi level? I looking for a good login system that has 5 different levels/roles

 

[isladogs]

The latest released version is available in post #6 of this thread https://www.access-programmers.co.uk/forums/showthread.php?t=193131 or from my website http://www.mendipdatasystems.co.uk/password-login/4594469149

It is intended for multi level access as you should see if you try it.

NOTE I'm intending to release an enhanced version with additional features. There will be a small charge for that version. If you want to know more, please email me using the link below

 

[mrcunknown]

Thnx for youre reaction.



Regarding access im a noob I have seen the 1,2,3 levels .... but i dont know how i can use this in the forms that i want to use. every level redirect to frmSessions.

 

[isladogs]

With respect, this isn't really a beginners level project as the logic can get quite complex.
However, giving examples of doing that is going to be part of the enhanced version.

 

[mrcunknown]

thnx for youre advice. I'm looking forward to the enhanced version.

 

[mrcunknown]

I'f wanted to send you a DM but i'f first have to make 10 post

 

[isladogs]

Well you're almost there. If you email me using the link I'll let you know what features are planned and also when its ready.

 

[mrcunknown]

Youve have mail ... and i have my 10 post Thnx for the help

 

[isladogs]

Now everyone is happy! I'll reply to your email later today

 

[Qunaki]

Old thread, but why not use... (I haven't looked into the newer solution):

Ok, but these sometimes get old (as seen here), and are much harder to use:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

So why not use the built in functions already in Access instead?
strUser = Environ("UserName")
strComputer =Environ("ComputerName")
I think they newer will expire, since they are MS-peoples concern/problem.

// Q

 

[Isaac]

If I remember correctly, the environ() ones are easier to spoof?

 

[theDBguy]

Old thread, but why not use... (I haven't looked into the newer solution):

Ok, but these sometimes get old (as seen here), and are much harder to use:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

So why not use the built in functions already in Access instead?
strUser = Environ("UserName")
strComputer =Environ("ComputerName")
I think they newer will expire, since they are MS-peoples concern/problem.

// Q

Hi. I also avoid using Environ() and prefer using this instead.

Code Snippets

 

[isladogs]

Hi Qunaki
Perhaps you should have looked at the newer version first!
https://www.access-programmers.co.u...on-login-recording.193131/page-2#post-1670494

I never use the old GetUserName API.
Although it does work well it is unnecessarily complex and like all APIs it needs to be modified for 64-bit

Also, as Isaac mentioned Environ can easily be spoofed and is best avoided.

The best solution in my opinion is using WScript

GetUserName = CreateObject("WScript.Network").UserName

GetComputerName = CreateObject("WScript.Network").ComputerName

For more info, see my website articles: Get User Name & Get Computer Name

Nevertheless, there are many situations where relying on the network user name may not be sufficiently secure.
For example in schools, many staff may at different times use the same PC over the course of a day..
Therefore many apps require users to login and supply a password to prevent unauthorised access

This example is intended for use in such cases

 

[Qunaki]

Thx for the update.
Becasue of our real sale system (bought, and payed for), and used daily. I'm too still using 2003, as they are. Then I've been stuck there...
I have for long time wanted to move further, but that have stopped me...
Yes I know, I have a lot to learn today to move further. But then the new AC Navigation Pane has always stopped me taking that leap (what a s..it it is, compared to the old one, as I see it).

// Q