access makro

Autor: fijak <person_at_server.com>
Data: Mon 09 Jul 2007 - 22:53:50 MET DST
Message-ID: <f6u78u$3kh$1@news.onet.pl>
Content-Type: text/plain; charset=ISO-8859-2; format=flowed

Pisze tu bo chyba nie wiem gdzie, jesli to hjest bardzo NTG to prosze
powiedzcie gdzie moge to pytanie zadac.

Otoz sporawa tyczy sie Accessa (xp) mam baze i rowniez formularze do
latwego wypelniania tabel, chcialbym zrobic rejestr zmian w tabelach,
nie wiem jednak jak wygrzebac nazwe zalogowanego usera i index rekordu
ktory jest edytowany. Bosko by bylo gdybym wiedzial czy event zostal
wywolany przy dodawaniu rekordu czy modyfikacji.

robie to tak na formularzu jest event PoAktualizacji czyli AfterUpdate i
oprogramowywuje go tak, zawiesilem sie jednak odnosnie niektorych danych
tak jak pisalem powyzej (user, index)

Private Sub Form_AfterUpdate()
Dim strSQL As String
Dim Teraz As Date
Teraz = Now
Dim NazwaTabeli As String

NazwaTabeli = "jakasTabela"

Dim Id As Integer

Id = 0

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 + "');"

Rem strSQL = "INSERT INTO Zmiany(tabela) values('" + NazwaTabeli + "');"

DoCmd.RunSQL strSQL

End Sub
Received on Mon Jul 9 22:55:06 2007

To archiwum zostało wygenerowane przez hypermail 2.1.8 : Mon 09 Jul 2007 - 23:42:02 MET DST