/* */

Thursday, November 26, 2009

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

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

[belajar-access] Re: syntac select di ms acces jalan tapi di di sql server tdk jalan

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, November 26, 2009 6:44 PM
Subject: [belajar-access] Re: syntac select di ms acces jalan tapi di di sql
server tdk jalan


> 1)
> iif ganti dengan case
>
>
IIf(Sum([mtn_status].[delivery])=sum([mtn_status].[mt_passed_mts_qty]),"comp
> > lete","not complete")
>
> case when
sum([mtn_status].[delivery])=sum([mtn_status].[mt_passed_mts_qty]) then
"complete" else "not complete" end as remarks
>
>
>
> 2)
> running sum dalam query bisa dilakukan dan efektif hanya untuk tabel /
query yang memiliki urutan tertentu yang jelas, semisal kode barang, tanggal
transaksi, dll, dan terutama untuk data yang tidak banyak.
> jika datanya banyak, bisa ditempuh dengan operasi recordset (memiliki
dasar pengetahuan programming vba)
> lebih mudah dengan melemparnya dalam report.
>
>
> aksan kurdin
>

Wednesday, November 25, 2009

[belajar-access] Re: User Password

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, November 25, 2009 4:26 PM
Subject: [belajar-access] Re: User Password


> Mengenai keamanan access 2007, bisa tengok2 blog mbah kita:
> http://geeks.netindonesia.net/blogs/haertalib/archive/2008/08.aspx
>
>
>
> aksan kurdin
>
>
>
> --- In belajar-access@yahoogroups.com, dayat <dayat@...> wrote:
> >
> > Thanks Pak Oracle, ternyata extensi terbaru yaitu *.accdb ga mendukung
User
> > and Permission. Jadinya terpaksa convert ke *.mdb
> >
> > Trims atas bantuannya
> > dayat
> >
> > 2009/11/25 The Oracle <vizcorner@...>
> >
> > >
> > >
> > > di menu atas mas... liat aja pelannnn pelan sambil kunyah jagung
rebus...
> > > :D
> > >
> > > // nubie access //
> > >
> > >
> > > 2009/11/25 dayat <dayat@...>
> > >
> > >
> > >>
> > >> Kalo yang Access 2007 dimana kira-kira menu seperti itu ya. File
extention
> > >> *.accdb bukan *.mdb
> > >>
> > >> dayat

Tuesday, November 24, 2009

[belajar-access] Report to *.Pdf

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, November 24, 2009 10:13 AM
Subject: Re: Bls: [belajar-access] Report to *.Pdf


> hmm....
> berarti hanya bisa di access 2007.
>
> coba cara dari guru lebans:
> http://www.lebans.com/reporttopdf.htm
>
> aksan kurdin

[belajar-access] Bagaimana Meng-Konvert Number menjadi CheckBox ?

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, November 24, 2009 10:33 AM
Subject: Re: [belajar-access] Bagaimana Meng-Konvert Number menjadi CheckBox
?


Di report, detail format event tambahkan kode ini bang ...:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Me.Check46 = (Me.DeviceType = 1)
Me.Check51 = (Me.DeviceType = 2)
Me.Check53 = (Me.DeviceType = 3)
Me.Check55 = (Me.DeviceType = 4)
Me.Check57 = (Me.DeviceType = 5)
Me.Check59 = (Me.DeviceType = 6)
End If
End Sub

aksan kurdin

[belajar-access] look up 2 combo box

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, November 24, 2009 8:42 AM
Subject: Re: [belajar-access] look up 2 combo box


Sangat mudah,
ubah rowsource combo2 menjadi:
SELECT Table2.JENIS, Table2.PETUGAS FROM Table2 WHERE
(((Table2.KAMAR)=[Forms]![Form1]![Combo0]));

lalu di event after update combo0, requery combo2:

Private Sub Combo0_AfterUpdate()
Me.Combo2.Requery
End Sub

dan control source text4 ubah menjadi:
=[Combo2].[column](1)


aksan kurdin

Monday, November 23, 2009

[belajar-access] paramater data tahun pada crosstab query

----- Original Message -----
From: "Sumiyanto -" <sumiyanto@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, November 23, 2009 6:02 PM
Subject: Re: [belajar-access] paramater data tahun pada crosstab query


@ Muhibudin Fahmi, Terima kasih mas....Problem Solved.

Sumiyanto Soerabaia

--- On Mon, 11/23/09, Muhibudin Fahmi <muhibudin@gmail.com> wrote:

From: Muhibudin Fahmi <muhibudin@gmail.com>
Subject: Re: [belajar-access] paramater data tahun pada crosstab query
To: belajar-access@yahoogroups.com
Date: Monday, November 23, 2009, 1:02 PM

sekedar share mas, tolong dibenerin kalo salah..
yang pernah saya coba untuk parameter pada crosstab query harus ditentukan
type datanya, yang ada di menu query parameters. (pada design view) ato
kalo disql sebelum transform tambahin parameters
untuk mas sumiyanto coba pada design view ditambahin
field Format([Tanggal Terima],"yyyy") (asumsi kalo ini ada tahunnya)
terus dikasih criteria misalnya between [tahun1] and [tahun2]trus ke menu
query parameters.. . ditambahin parameter | data type
tahun1 | texttahun2 | text
sqlnya kira2 kayak gini....
PARAMETERS tahun1 Text ( 255 ), tahun2 Text ( 255 );
TRANSFORM Sum([Bank Receive qr].[Pokok Angsuran (Rp)]) AS [SumOfPokok
Angsuran (Rp)1]
SELECT [Bank Receive qr].[Nama Kolektor], Sum([Bank Receive qr].[Pokok
Angsuran (Rp)]) AS [SumOfPokok Angsuran (Rp)], Count([Bank Receive qr].ID)
AS [Total Of ID]

FROM [Bank Receive qr]
WHERE (((Format([tgllhr] ,"yyyy")) Between [tahun1] And [tahun2]))GROUP BY
[Bank Receive qr].[Nama Kolektor], Format([tgllhr] ,"yyyy")

PIVOT Format([Tanggal Terima],"mmm") In
("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

salam jabat erat