Message to alert users of change

SteveGr

Registered User.
Local time
Today, 19:05
Joined
Aug 2, 2002
Messages
65
I have a database that 10 people use round the clock. I have just made a change and would like them to notified when opening the main form. I setup a msgbox macro to do this, but I would like the msgbox to go away after 10 days or so once everyone had a chance to read it.

Any thoughts on how to do this?

Thanks, Stevegr
 
Here's some code that will tell you who your logged on users are by logonID and by workstationID. You could put all your users into a table with a "Seen" column, initially False, that you set to True when someone logs on. That would avoid bugging people who'd seen it, but it would hang around until everyone had seen it.

I got this from a German site - sorry I've lost the attribution.

Code:
Option Compare Database

'Deklarationsteil:
Private Declare Function GetComputerNameA Lib "kernel32" _
    (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserNameA Lib "advapi32.dll" _
    (ByVal lpBuffer As String, nSize As Long) As Long

'Prozeduren:
Public Function WhereAmI() As String
  Dim s As String * 255
  GetComputerNameA s, Len(s)
  WhereAmI = Left$(s, InStr(s, vbNullChar) - 1)
End Function

Public Function WhoAmI() As String
  Dim s As String * 255
  GetUserNameA s, Len(s)
  WhoAmI = Left$(s, InStr(s, vbNullChar) - 1)
End Function

Jim
 

Users who are viewing this thread

Back
Top Bottom