Mungkin dengan cara seperti ini
Sub RekamLog(Optional act As String = "", Optional uid As String)
If Kosong(uid) Then uid = VUserName
winUserName = Environ("USERNAME" )
winComputerName = Environ("USERDOMAIN ")
Dim db as database, tsql As String
Set db = CurrentDb
tsql = "INSERT INTO tbl_Log " & "(UserName, Activity, lComputerName,
lUserName)" & "VALUES ('" & uid & "', '" & act & "', '" & winComputerName & "',
'" & winUserName & "')"
db.Execute (tsql)
End Sub
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: erna yanti <[email protected]>
Sender: [email protected]
Date: Wed, 28 Jul 2010 02:55:30
To: belajar access<[email protected]>
Reply-To: [email protected]
Subject: [belajar-access] append row
Dear All,
saya py sedikit kendala ni.........
Seluruh tabel sudah saya pindahkan ke .adp lalu saya buat link odbc ke .mdb
(spy
tidak perlu dirubah lg querynya). masalahnya adalah setiap kali log in atau
close (terutama yg ada rekamlog), selalu muncul layar konfirmasi : You Are
About
Append 1 row (s), dan pilihan Yes atau No
kalo dipilih Yes, maka tabel TLog akan terisi, sedangkan jika dipilih No, tabel
TLog tidak terisi dan muncul pesan Debug.
berikut procedure RekamLog yg saya buat :
Sub RekamLog(Optional act As String = "", Optional uid As String)
If Kosong(uid) Then uid = VUserName
winUserName = Environ("USERNAME")
winComputerName = Environ("USERDOMAIN")
tsql = "INSERT INTO tbl_Log " & "(UserName, Activity, lComputerName,
lUserName)"
& "VALUES ('" & uid & "', '" & act & "', '" & winComputerName & "', '" &
winUserName & "')"
DoCmd.RunSQL tsql
End Sub
Pertanyaannya : Bagaimana caranya supaya tabel TLog terisi tanpa perlu memilih
Yes dan layar konfirmasi tersebut tidak muncul.
thanks buat yg bersedia membantu......
Erna
