fijak ośmielił się napisać:
nieco powalczylem, i mam cos wiecej, brakuje mi jednak jeszcze nazwy
zalogowanego usera, i czy rekord zostal dodany czy edytowany nie wiem
kopletnie jak to wygrzebac
Moj kod wyglada teraz tak:
Private Sub Form_AfterUpdate()
Dim strSQL As String
Dim Teraz As Date
Teraz = Now
Dim NazwaTabeli As String
NazwaTabeli = RecordSource
Dim Id As Integer
Id = CurrentRecord
Dim Akcja As Integer
Akcja = 0
Dim Edytor As String
Edytor = "ktos"
strSQL = "INSERT INTO Zmiany(tabela, id_w_tabeli, data, akcja, edytor)
values('" + NazwaTabeli + "', '" + CStr(Id) + "', '" + CStr(Teraz) + "',
'" + CStr(Akcja) + "', '" + Edytor + "');"
DoCmd.RunSQL strSQL
End Sub
Received on Mon Jul 9 23:15:06 2007
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Mon 09 Jul 2007 - 23:42:02 MET DST