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

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

> Bener mas aksan, sepertinya ini sudah masuk area vb6.
> biar nggak putus asa, kalau pake VB6 mungkin bisa pakai code ini, bisa
> buat log txt
>
> tapi apakah bisa di attach di vbanya Access, saya belum coba.
>
> cara pakainya taro di modul trus call dibawah event2 atau terserah anda.
> cara callnya CreateDataLog "Isi Log 1", "Isi Log 2","Isi Log 3","Isi Log
> 4","Isi Log 5"
> saya buat nama filenya bulantahun.txt
>
> jika kurang jelas coba aja nimbrung di milis VB6 sepeti yang mas aksan
> kasih tau.
> pasti mereka lebih jago. kalo dibahas disini nanti jadi milis VB lagi...
>
> Public Function CreateDataLog(ByVal isi1 As String, Optional isi2 As
> String, Optional isi3 As String, Optional isi4 As String, Optional isi5
> As String)
> On Error GoTo Err
> iTotalRecord = 0
> sFileToExport = App.Path & "\" & Format(Now, "mmyy") & ".txt"
> iFileNum = FreeFile()
> Open sFileToExport For Append As #iFileNum
> Print #iFileNum, isi1 & "," & isi2 & "," & isi3 & "," & isi4 & "," & isi5
> Close iFileNum
>
> Err:
> If Err.Number = 54 Then
> Close iFileNum
> Open sFileToExport For Input As #iFileNum
> Print #iFileNum, isi1 & "," & isi2 & "," & isi3 & "," & isi4 & "," & isi5
> Close iFileNum
> End If
>
> End Function
>
> semoga memberi arahan yang benar.
>
> aksankurdin wrote:
> >
> > :)
> >
> > 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
> > <mailto:belajar-access%40yahoogroups.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
> > <mailto:belajar-access%40yahoogroups.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