Jump to content
Forum Roportal
Sign in to follow this  
costelinon

Ajutor pentru ACCES XP Microsoft

Recommended Posts

Salut costelinon,

 

Eu nu cred ca este alta solutie decat modificarea programului (am inteles ca e facut de tine).

Ar trebui sa creezi in baza de date un camp cu cine este ultimul utilizator care a operat modificari asupra inregistrarii. Dar in prealabil ar trebui ca accesul la program sa se faca pe baza introducerii unui nume de utilizator si a unei parole.

Ai mai putea sa faci un fisier text in care sa notezi modificarile (din program) pe care face fiecare utilizator asupra bazei de date. Fisierul text ar trebui creat intr-un director la care utilizatorii nu au acces.

Share this post


Link to post
Share on other sites

eu te ajut cu placere, dar asta implica visual basic

 

adica creezi un modul in care scrii asta:

 

Option Compare Database

Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

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

 

Public Function UserName() As String

 

Dim lngLen As Long, lngx As Long

Dim strUserName As String

Dim strName As String

strUserName = String$(254, 0)

lngLen = 255

lngx = apiGetUserName(strUserName, lngLen)

 

If lngx <> 0 Then

UserName = Left$(strUserName, lngLen - 1)

Else

UserName = ""

End If

 

End Function

 

Public Function ComputerName() As String

 

Const sProc As String = "ComputerName":

Dim lngLen As Long, lngx As Long

Dim sComputerName As String

Dim sName As String

sComputerName = String$(254, 0)

lngLen = 255

lngx = GetComputerName(sComputerName, lngLen)

 

If lngx <> 0 Then

ComputerName = Left$(sComputerName, lngLen)

Else

ComputerName = ""

End If

End Function

 

 

asta iti ia username si calculatorul

variabilele computername si username

 

apoi ca sa vezi ce si pe unde a modificat poti face asa:

 

de exemplu, modificare intr-un text, sau orice obiect :

 

pui in evenimentul obiectului dorit urmatoarele:

(on text change, on clicca pentru buton,etc)

 

'---------------

-creezi un log:

logfile=Application.CurrentProject.Path & "\" & username & ".log"

 

open logfile for append as #1

print 1, format (date,ddmmyy) & " " & time() & " modificare in textul x"

print 1, ............

print 1, ............

print 1, ............

print 1, ............

close #1

 

daca asta nu-ti place, mai sunt si alte solutii, dar fara vba, accesul e mai nimic!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×