From Which PC Was An Edit Made?

  • Thread starter Thread starter Bob Hathaway
  • Start date Start date
B

Bob Hathaway

I have an networked Access application that prints 1 of 6
types of letters based on specific database criteria
(prevents printing an inappropriate letter). The user needs
enter a social security number and, if found, a letter is
printed and the date is entered into the database.

There are several users of this application and no way to
determine who did what. I want to be able to look at the
aggregate of letters sent to determine whether or not one
or more staff members are performing a disproportionate
amount of the work burden.

Is there any way to strip out a PC's IP address (or other
PC identifying information) that could be stuffed into each
record on which a letter is printed?
 
Hi:

You can get the COmputerName this way --

Public Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetThisComputerName() As String
'get computer name of user using API call
Dim strName As String
Dim intSize As Long

strName = Space$(256)
intSize = Len(strName)
'buff = Space$(256)
If GetComputerName(strName, intSize) Then
GetThisComputerName = Left$(strName, intSize)
Else
GetThisComputerName = "Unknown"
End If


End Function


Regards,

Naresh Nichani
Microsoft Access MVP
 
Back
Top