Statistik på brugen af formularer og rapporter

Lav en tabel ved navn LOG

2 felter Form og Bruger

Denne kode sætter du i et Modul

Public Sub LOG(Form As String)
    DoCmd.SetWarnings False
    strSQL = "Insert into Log  VALUES('" & Form & "','" & Environ("USERNAME") & "')"
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
End Sub


denne sættes øverst i Formens modul

Private Sub Form_Open(Cancel As Integer)
LOG Me.Name
End Sub

og denne i en rapports modul

Private Sub Report_Open(Cancel As Integer)
LOG Me.Name
End Sub


nu skrives der i tabellen hvilken form/rapport der åbnes og brugerens initialer.

Tak det virker meget fint.
Mange tak.
Hvordan giver jeg dig nu point ?

jaa, du skulle have ventet, til jeg havde svaret, nu fik du dem selv.

opret et nyt spørgsmål i denne kategori. skriv "Point til kabbak" og sæt link på til denne tråd.