Free
Dit is een test
FreeDeze functie logt het gebruik van je applcatie
Code
Public Function userlogging()
On Error GoTo userlogging_Error
Dim user, datum As String
Dim tijd As String
Dim db As Database
Dim perap As Recordset
Dim struser As String
Dim lngSize As Long
Dim logUser As String
Dim bln
Dim lpBuff As String * 255 'Buffer variable
Dim lngRetVal As Long 'Testvariable
Dim strComputerName As String 'Computername
Dim fhpGetComputerName
Dim DBname, filename, strnaam As String
Dim strVnaam As String
'****************************************************
'NT_Gebruikersnaam ophalen
'****************************************************
struser = Space(55)
lngSize = GetUserName(struser, 55)
logUser = struser
'****************************************************
'NT_omputernaam ophalen
'****************************************************
strComputerName = "Test" 'If an error
lpBuff = Space$(255) 'Prepare buffer
lngRetVal = hp_api_GetComputerName(lpBuff, 255) 'Do API call
strComputerName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) 'Remove some chars
fhpGetComputerName = strComputerName 'The retrieved computername
'****************************************************
'Verdere gegevens ophalen
'****************************************************
user = CurrentUser()
datum = Date
tijd = Time$
filename = CurrentDb.Name
DBname = stripbestandsNaam(filename)
'****************************************************
'Gegevens wegschrijven in de tabel
'****************************************************
Set db = DBEngine.Workspaces(0).Databases(0)
Set perap = db.OpenRecordset("Tbl_LOG", dbOpenDynaset)
' perap.MoveLast
perap.AddNew
perap!gebruiker = user
perap!NT_Account = logUser
perap!Computer = strComputerName
perap!ingelogt = datum
perap!tijd = tijd
perap!DBname = DBname
perap!vnaam = getnaam()
perap.Update
perap.Close
db.Close
userlogging_Exit:
Exit Function
userlogging_Error:
MsgBox "Unexpected error - " & Err.Number & vbCr & vbCr & Error$, vbCritical, "Prorap- Sap Data Analyse - Use"
Resume Next
End Function
