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

----- Original Message -----
From: "ardy bayang" <di2_shadow@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, November 26, 2009 12:00 PM
Subject: Re: [belajar-access] Re: tanya rollback dan log activity

oke..txh...makasih. sory udah salah he..he..he...

--- On Wed, 11/25/09, nurfirman <nurfirman@gmail.com> wrote:

From: nurfirman <nurfirman@gmail.com>
Subject: Re: [belajar-access] Re: tanya rollback dan log activity
To: belajar-access@yahoogroups.com
Date: Wednesday, November 25, 2009, 8:42 PM

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
> > > >
> > > >
> > > >
> > >
> >
>