Jako "Źródło rekordów" dla pola z datą możesz ustawić funkcję =Date(), która uzupełni je bieżącą datą. Jeśli zakładasz jednak, że plik będzie otwarty przez kilka dni i potrzebujesz tej pierwotnej, to można pokombinować tak:

1) W jakimkolwiek module (to ważne: musi to być moduł) deklarujesz zmienną publiczną oraz wprowadzasz funkcję zwracającą datę:

Public data_startu As Date

Function data_st()

data_st = data_startu

End Function

2) Do zdarzenia "Form_Open" formularza, który user otwiera jako pierwszy, dodajesz wiersz:

If data_startu = 0 Then data_startu = Date

Zmienna "data_startu" powinna przechowywać datę przypisaną jej przy otwarciu formularza, aż do zamknięcia pliku, możesz pozyskać ją w wybranym polu, wpisując =data_st() jako jego wartość domyślną.

Tak, ale jak formularz startu jest otwierany kilka razy (bo uruchamia inne formularze, z których użytkownik korzysta), to kilka razy pojawia się data startu.
Chodzi mi o to, czy da się taką funkcję napisać, która nie byłaby "przypięta" do formularza, tylko do aplikacji (pliku klienta).
Ja zastosowałem takie rozwiązanie:

Mam tabelę z polami:

1. PracownikID

2. Od

3. Do

4. OtwartyFormularz

No i w każdym formularzu jest:

Form_open:

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

With rs
    .ActiveConnection = CurrentProject.Connection
    .Source = "tbl_kto_pracuje"
    .LockType = adLockPessimistic
    .CursorType = adOpenDynamic
    .Open
End With

rs.AddNew
rs!PracownikID = Pracownik()
rs!od = Now()
rs!OtwartyFormularz = "1"
rs.Update
rs.Close

Set rs = Nothing

Form_close:

Dim mSQL As String

DoCmd.SetWarnings False
mSQL = "UPDATE tbl_Kto_pracuje SET tbl_Kto_pracuje.Do = Now() " _
& "WHERE tbl_Kto_pracuje.Identyfikator In (SELECT Last(tbl_Kto_pracuje.Identyfikator) AS OstatniOfIdentyfikator " _
& "FROM tbl_Kto_pracuje " _
& "WHERE tbl_Kto_pracuje.PracownikID='" & Pracownik() & "' AND tbl_kto_pracuje.Od IS NOT NULL AND tbl_Kto_pracuje.Do IS NULL)"

DoCmd.RunSQL mSQL

Teoretycznie wiem: kto, kiedy i na jakim formularzu pracuje i jeśli mam rekord, w którym jest wartość w polu OD, a nie ma w polu DO, to znaczy, że ktoś właśnie pracuje.

Wolałbym jednak prostszą metodę: aplikacja włączona lub wyłączona, ale rozumiem, że takiej opcji nie ma.

1) Polecenie If data_startu = 0 Then data_startu = Date przypisze bieżącą datę tylko wtedy, kiedy zmienna jest równa zeru, czyli w momencie jej inicjacji przy starcie Accessa. Po pierwszym przebiegu jej wartość się zmieni, ergo nie będzie się więcej nadpisywać. :)

2) Świeże odkrycie: jeśli stworzysz makro (ale przez Tworzenie -> Makro, nie chodzi o VBA) i nazwiesz je "autoexec", będzie uruchamiało się przy starcie Accessa. Możesz potem odpalić z niego wszystko czego potrzebujesz, oprócz zdarzenia wyjścia z pliku.

3) Może dobrym rozwiązaniem będzie odpalenie w tle pustego, niewidocznego formularza, do którego zdarzeń Form_Load i Form_Unload przypiszesz swoje skrypty?

Autoexec to ciekawe rozwiązanie! Na bank się przyda na przyszłość. Teraz pozostanę przy swoim rozwiązaniu, bo daje mi w sumie to co chcę, ale kiedyś wrócę do tematu.

Bo faktycznie w Autoexecu można dać - uruchom funkcję i wpisać datę rozpoczęcia pracy i login pracownika, a trzeba by jeszcze pokombinować jak dodawać datę zakończenia pracy. Nie zawsze zakończenie pracy byłoby w formularzu startowym, więc trzeba by sprawdzać, czy zamykamy aplikację, czy tylko przechodzimy do innego formularza. Ale to już kiedy indziej. :)

Dzięki za pomoc i poradę. :)

Moje propozycje. :)

1) Zamiast monitować każdy formularz z osobna, może zrób tak, jak pisałem: w Autoexecu otwarcie jednego (pustego), który będzie niewidoczny i odpalony w tle przez całą sesję. Do jego zdarzeń "open" i "unload" (ten powinien odpalić się zawsze przy zamykaniu bazy) wrzuć skrypty logujące.

2) Po co Ci tyle kodu w ADO, skoro wystarczą dwie (i to tylko ze względu na przejrzystość, bo wystarczy jedna) linijki SQL-a? :)

SQL = "insert into tbl_kto_pracuje (PracownikID, od, OtwartyFormularz) VALUES (pracownik(), Now, '1');"

CurrentDb.Execute SQL, dbFailOnError

3) Jeśli już wolisz bawić się recordsetem, to proponuję do tbl_kto_pracuje dodać kolumnę z autonumeracją (np "LP") i wstawić dodatkową linijkę między odświeżeniem, a zamknięciem połączenia, która odczyta wartość autonumeracji ze wstawionego wiersza:

rs.Update
log_row = rs.Fields("LP").Value
rs.Close

 Zadeklaruj log_row jako zmienną globalną (będzie przechowywana przez całą sesję) i odwołaj się do niej w skrypcie zamykającym:

SQL = "UPDATE tbl_kto_pracuje SET do = Now() WHERE (LP=" & log_row & ");"

CurrentDb.Execute SQL, dbFailOnError