ثبت نام کامپیوترها

[saeed razaee]

با سلام من یک دیتابیس را shari نمودم و کاربرهای مختلفی این برنامه را باز می کنند قبلا این سوال ارائه شد که چگونه متوجه شویم چه کسی این دیتابیس را باز نموده که خانم شاپرک لطف نمودند و پاسخ دادند که هنگامی که برنامه را باز نموده روی دیتابیس کلیک راست و برنامه را در notepad باز کنید نام کامپیوتری که برنامه را باز نموده و در حال دیدن برنامه است مشخص است حال سوال اینجاست که چگونه همان نام را در دیتابیس یا برنامه دیگری save کنیم تا بدانیم چه ساعتی و چند بار وارد برنامه شده است.لازم بذکر است که برای برنامه کاربر تعریف نشده فقط دیتابیس shari شده است و همه به آن دسترسی دارند.با تشکر

[mohkhosh]

فکر می کنم با کمک این ماژول بتونی این کار رو بکنی

Option Compare Database
Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'-----------------------------------------------------------------------------------------
' This code is used to retrieve the network user name by accessing the API apiGetUserName.
' Created by: Unknown (Found on Dev Ashish web site http://home.att.net/~dashish/api)
' This code has not been altered in anyway.
' Added to database: 27 dec 1999
' Added by: Richard Rensel
'-----------------------------------------------------------------------------------------

Function fOSUserName() As String
On Error GoTo fOSUserName_Err

Dim lngLen As Long, lngX As Long
Dim strUserName As String

strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)

If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If


fOSUserName_Exit:
Exit Function

fOSUserName_Err:
MsgBox error$
Resume fOSUserName_Exit
End Function

[saeed razaee]

با سلام دوست عزیز امکان دارد که مراحل انجام کار را نیز توضیح دهید . با تشکر