[belajar-access] Re: tanya rollback dan log activity

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, November 26, 2009 11:21 AM
Subject: [belajar-access] Re: tanya rollback dan log activity

> :)
>
> dari pertama anda sebenarnya gak nyambung dengan milis ini.
> kode ini seperti thread awal anda, jalan di vb6, bukan di ms access.
>
> jadi sebaiknya mungkin thread ini bisa lanjut di milis vb seperti
indoprog-vb atau programmer-vb, yang masih membahas vb 6, walau sekarang
sudah tidak seramai dahulu.
>
> saya kasih klu-nya saja, tetapi dalam konteks ms access.
>
> jika yang ingin anda rekam log aktifitas hanya saat login dan keluar saja,
anda bisa tambahkan kode yang merekam user sekarang dan jam saat ini ke
suatu tabel (operasi sql atau recordset) pada kode tersebut.
> jika yang ingin anda rekam adalah log aktifitas yang membuka form apa
saja, maka di setiap event on open form, anda bisa rekam user name dan waktu
pada tabel log yang sama.
> jika yang ingin anda rekam adalah log aktifitas edit data, maka anda bisa
rekam log melalui event after update form.
>
> jika anda merekam aktifitas berdasarkan operasi recordset (begintrans,
committrans, ataupun rollbacktrans), maka anda bisa tulis log tepat setelah
baris transaction tersebut.
>
> sorry, tidak ada hard kode saya sertakan, kecuali jika anda bermain di ms
access.
>
>
> aksan kurdin
>

> --- In belajar-access@yahoogroups.com, "di2_shadow" <di2_shadow@...>
wrote:
> >
> > mas ini coding untuk login aplikasi...bagaimana untuk memasukan log
activity nya ya?? apakah harus membuat table baru didatabase?bagaimana
caranya??
> >
> > Private Sub TbLogin_Click()
> > Dim vActivityLog As Single
> > Dim vInsertLog As Single
> >
> > If txtUser.Text = "" Then
> > MsgBox "USER ID MASIH KOSONG !", vbCritical + vbOKOnly, "Error"
> > txtUser.SetFocus
> > ElseIf txtPwd.Text = "" Then
> > MsgBox "PASSWORD MASIH KOSONG !", vbCritical + vbOKOnly, "Error"
> > txtPwd.SetFocus
> > Else
> > SQL = ""
> > SQL = "SELECT * FROM Pengguna " _
> > & "WHERE UserID='" & txtUser.Text & "' " _
> > & " AND PassID='" & txtPwd.Text & "'" _
> > & " AND Level='" & cmbLevel.Text & "'"
> > Set rsPeriksa = KonekDb.Execute(SQL)
> >
> >
> >
> > If Not rsPeriksa.BOF Then
> > If rsPeriksa!Level = "ADMIN" Then
> > Unload Me
> > With FrmUtama
> > .Enabled = True
> > .Show
> > .MuFile.Enabled = True
> > .mnuLogin.Enabled = False
> > .mnuLogout.Enabled = True
> > .mnuKeluar.Enabled = True
> > .MuData.Enabled = True
> > .MuTransaksi.Enabled = True
> > .mnuPembelian.Enabled = True
> > .mnuPenjualan.Enabled = True
> >
> > .MuLaporan.Enabled = True
> >
> > .mnuLapJualNota.Enabled = True
> >
> > .mnuLapBeliNota.Enabled = True
> >
> > .MuSetting.Enabled = True
> > .mnuPengguna.Enabled = True
> >
> > End With
> > Else
> > Unload Me
> > With FrmUtama
> > .Enabled = True
> > .Show
> > .MuFile.Enabled = True
> > .mnuLogin.Enabled = False
> > .mnuLogout.Enabled = True
> > .mnuKeluar.Enabled = True
> > .MuData.Enabled = False
> > .MuTransaksi.Enabled = True
> > .mnuPembelian.Enabled = False
> > .mnuPenjualan.Enabled = True
> >
> > .MuLaporan.Enabled = True
> >
> > .mnuLapJualNota.Enabled = True
> >
> >
> > .mnuLapBeliNota.Enabled = False
> >
> > .MuSetting.Enabled = False
> > .mnuPengguna.Enabled = False
> >
> > End With
> > End If
> >
> >
> > UserId = rsPeriksa!UserId
> > NamaId = rsPeriksa!Nama
> >
> >
> > With FrmUtama
> > .StatusBar1.Panels(1).Text = rsPeriksa!Nama
> > .StatusBar1.Panels(2).Text = "[" & rsPeriksa!Level & "]"
> > .mnuLogout.Enabled = True
> > End With
> >
> > Unload Me
> > Else
> > ' Periksa, login hanya 3 kali
> > ' 3x gagal pesan error ditampilkan
> > If MaxLogin < 3 Then
> > MsgBox "PASSWORD MASIH SALAH, SILAHKAN ULANGI LAGI!",
vbCritical + vbOKOnly, "Error"
> > txtPwd.Text = ""
> > txtPwd.SetFocus
> > MaxLogin = MaxLogin + 1
> > Else
> > MsgBox "ANDA BUKAN USER YANG BERHAK!", vbCritical +
vbOKOnly, "Error"
> > End
> > End If
> > End If
> > End If
> > End Sub
> >
> >
> > --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@>
wrote:
> > >
> > > coba mana kode yang sudah ardy buat, mungkin bisa saya selipkan kode
> > > untuk log activity-nya ....
> > >
> > > aksan kurdin
> > >
> > >
> > > ardy bayang wrote:
> > > >
> > > >
> > > > mas aksan,untuk membuat log activity nya gimana ya??mohon
> > > > penyerahaannya.thx
> > > >
> > > >
> > > >
> > >
> >
>
>