Ajutor pentru ACCES XP Microsoft

[costelinon 0]

Am nevoie de ajutor

[roportal 21]

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.

[deYu 0]

ba yo te-as ajuta...dar nustiu cum.......oricum suscces mult in continuare... :)

[work27 0]

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!