saya sudah buat sbb:
Private Sub Image52_Click()
Dim strPesan As String
Dim strUser As String
strPesan = "Report dibuka"
strUser = pemakaiaplikasi
strSQL = "INSERT INTO tblLogHistory ([User],[LogTime],[Note]) VALUES _
('strUser',#" & now() & "# , '" & strPesan & "')"
DoCmd.RunSQL strSQL
End Sub
yg jadi masalah strUser-nya datanya tidak bisa diambil, jadi yg muncul di
TblLogHistory bukan nama user tapi "strUser", saya menduga sih syntax-nya yg
salah tapi saya ga tau harus seperti apa syntax-ny. Gimana ya syntax-nya?
pemakaiAplikasi adalah saya ambil dari TblLogin yg datannya udah ada di
modul Public.
Pada 12 Maret 2010 15:39, Belajar Office <[email protected]> menulis:
>
>
> Bpk bisa pakai query append, bisa juga run SQL lewat VBA, misal:
>
> DoCmd.RunSQL "INSERT INTO TblLogHistory ( [User], [Log Time], [Note] )" _
> & " SELECT '*Nama User*' AS [User], *Now()* AS [Log Time], '*Nama
> Transaksi*' AS [Note];"
>
> Thank's
>
> ----- Original Message -----
> *From:* Cecep W <[email protected]>
> *To:* [email protected]
> *Sent:* Friday, 12 March 2010 1:31 PM
> *Subject:* [belajar-access] Ambil data untuk tabel
>
>
>
> hallo pakar access semua,
>
> saya punya tabel 'TblLogHistory' dengan field sbb:
>
> User
> Log Time
> Note
>
> saya ingin ketika saya menjalalnkan event On Clik pada suatu Form maka
> Field Note pada tabel 'TblLogHistory' aka terisi kata.
>
> misalkan ketika saya klik Command button untuk membuka form Karyawan
> maka Note pada tabel 'TblLogHistory' akan terisi "Form Karyawan
> dibuka"
> cara ini juga akan diberlakukan untuk mengisi Field 'User' dan 'Log Time'
>
> regards
> CW
>
>
>
