MS ACCESS MAILING LIST: Re: [belajar-access] absensi

Pada vba, tidak coding relationship. Tabel yang disampaikan oleh Ndaru saya ubah. Sebelumnya ada relationship, saya ubah tanpa relationship.

Untuk melihat nama, yang saya lakukan cuma dlookup (baris ke-26):

aa = DLookup("[Nama]", "pegawai", "[NIK]=" & NIK)

If aa <> "" Then

'Jika nama ada (aa tidak sama dengan Null, letakkan aa di text8
Text8 = aa

'Ini juga saya ubah. Sebelumnya type NIK text. Mengingat hanya berfungsi

'hanya tampilan, saya ubah menjadi number (karena lebih cepat untuk proses

'pencarian).
NIK_tam = Format(NIK, "000")

'Ini juga lookup untuk melihat id_a paling tinggi + 1 (karena yang akan dientry

'nilainya harus paling tinggi. Dan unik.

aa = Nz(DMax("[id_a]", "absen", ""), 0) + 1
Set db = CurrentDb

'Untuk mengisi data, saya memilih metode insert. Metode recordset juga bisa

'dilakukan, sebagaimana contoh pada file mdb sebelumnya (import xls 2 mdb

            'dengan dialog), karena dari coding lebih ringkas. Cukup pakai for i to             db.Execute "insert into absen (id_a, NIK, Jam_masuk)" _
            & " Values (" & aa & "," & NIK & ",'" & TimeValue(time) & "')"
            db.Close
            Set db = Nothing
        Else
            MsgBox "Maaf Anda tidak terekam di database kami", , "ILLEGAL"
            Call kosong
        End If

Else
        MsgBox "Masukkan angka. Bukan karakter lainnya", , "HARUS ANGKA"
        Call kosong
    End If

Kalau untuk report, tergantung data yang diinginkan. Bisa menggunakan recordset. Misalnya:

Dim rss as recordset

set rss = currentdb.openrecordset("SELECT pegawai.Nama, absen.Tanggal, absen.Jam_masuk, absen.Jam_keluar
FROM absen INNER JOIN pegawai ON absen.NIK = pegawai.NIK")

'jika data ada

if not rss.eof then

'lakukan sampai record terakhir

Do while not rss.eof

'>> disini datanya, yang bisa diinsert-kan ke tabel temporer untuk source data report

rss.moveNext

loop

end if

rss.close

set rss = nothing

Semoga bisa membantu, bermanfaat dan memberi semangat.

Hariyanto (Surabaya)

--- On Thu, 14/4/11, Hendra Agestha Hamid <the_agestha@yahoo.com> wrote:

From: Hendra Agestha Hamid <the_agestha@yahoo.com>
Subject: Re: [belajar-access] absensi
To: belajar-access@yahoogroups.com
Date: Thursday, 14 April, 2011, 4:45 PM

Maaf nimbrung mas Hari ... mas dibaris keberapa coding mas itu yang mengatur relationship antar tabelnya..? kemudian mohon mas bisa buatkan contoh
report yg berasal dari perintah sql.
Terima kasih mas Hari

From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Thu, April 14, 2011 3:04:59 PM
Subject: Re: [belajar-access] absensi [1 Attachment]

File terlampir sudah ada perbaikan...

Mudah-mudahan bermanfaat dan memberi semangat..

Hariyanto (Surabaya)

--- On Thu, 14/4/11, ndaru <ndaruwirawan@yahoo.co.id> wrote:

> From: ndaru <ndaruwirawan@yahoo.co.id>
> Subject: Re: [belajar-access] absensi [1 Attachment]
> To: belajar-access@yahoogroups.com
> Date: Thursday, 14 April, 2011, 8:09 AM
> Para suhu access semua ... saya sdh mencoba membuat mesin
> absen .. tapi
> karena baru belajar access jadi bingung sendiri heheeheheh
> mohon bantuannya .... bagaimana caranya agar :
> 1. Ada jam yang muncul terus ..
> 2. Setelah selesai dimasukkan NIK otomatis keluar nama dan
> masuk ke
> database tanggal masuk dan jam masuk
>
> Atas bantuannya diucapkan banyak terima kasih
>
> ndaru wrote:
> > Pak Harry Siswanto, pak Hariyanto terima kasih atas
> sarannya .. akan
> > saya buat semampu saya .. akan saya upload mdb
> nya apabila selesai....
> > mohon sarannya nanti
> > mungkin ada rekan2x lain yang punya modelnya ...
> >
> >
> > salam access
> >
> > Harry siswanto wrote:
> >
> >>
> >> Pak,
> >> Biasanya kan ada Proggram sederhana dari Vendor
> untuk database
> >> mengenai absensinya...
> >> coba aja minta didemokan, dan lihat bentuk
> databasenya seperti apa,
> >> mungkin dari situ bisa di Customize supaya lebih
> Mudah dan lebih Enak
> >> dilihat...
> >> terimakasih.
> >>
> >> salam access
> >>
> >>
> >>
> >> Pada 13 April 2011 11:17, hari yanto <har_i20002000@yahoo.com
>
> >> <mailto:har_i20002000@yahoo.com>>
> menulis:
> >>
> >>
> >>    Menurut saya prinsipnya
> begini:
> >>
> >>
> >> 1. Jika database
> pegawai sudah ada, cetak kartu pegawai yang
> >>    salah
> satunya ada tampilan barcode (bisa berasal dari nomor
> >>
>    pegawai digabung tgl lahir dlsb)
> >> 2. Buat tabel absensi
> yang berisi field-field id_karyawan,
> >>
>    masuk, keluar, dlsb.
> >> 3. Buat form unbound.
> Buat textbox barcode
> >> 4. Karena (kinerja
> mesin barcode adalah mengirim isi barcode +
> >>
>    enter), beri event barcode after update.
> Dengan tujuan
> >>
>    melihat apakah id_karyawan dengan kode
> barcode ada didatabase.
> >> 5. Bila ada, lihat di
> tabel absensi > memakai patokan
> >>
>    id_karyawan lihat jam masuk/keluar
> (sebelumnya telah
> >>
>    ditetapkan) pada hari ini. Bila ada,
> abaikan (sudah absen),
> >>    atau
> beri pesan "Anda sudah absen Masuk/Keluar hari ini".
> >>    Bila
> tidak, lakukan proses insert ke data absensi karyawan
> >>
>    (id_karyawan, jam masuk/keluar, dlsb).
> >> 6. Menurut saya seperti
> itu gambaran flow chart absensi karyawan.
> >>
> >>
> >>    Semoga bisa membantu dan
> memberi semangat...
> >>
> >>    Hariyanto (Surabaya)
> >>
> >>
> >>    --- On *Tue, 12/4/11,
> Ndaru Wirawan /<ndaruwirawan@yahoo.co.id
> >>    <mailto:ndaruwirawan@yahoo.co.id>>/*
> wrote:
> >>
> >>
> >>    From: Ndaru
> Wirawan <ndaruwirawan@yahoo.co.id
> >>
>    <mailto:ndaruwirawan@yahoo.co.id>>
> >>    Subject:
> [belajar-access] absensi
> >>    To: belajar-access@yahoogroups.com
> >>
>    <mailto:belajar-access@yahoogroups.com>
> >>    Date:
> Tuesday, 12 April, 2011, 7:11 PM
> >>
> >>
> >>
> >>    Salam kenal
> semuanya....
> >>
> >>    Saya sedang
> mendapat tugas untuk membuat absensi dengan
> >>    memakai
> barcode .. dan rencana memakai ms access..... hanya
> >>    absen saja
> .. tidak sampai ke penggajian. Jadi hanya mencatat
> >>    jam masuk -
> jam keluar..
> >>
> >>    Apakah ada
> yang pernah membuat memakai ms access? kira2x
> >>    bentuknya
> bagaimana? syukur2x ada contohnya ... hehheheh
> >>
> >>    terima
> kasih
> >>    ndaru
> >>
> >>
> >>
> >>
> >> --
> >> Harry Siswanto
> >> Email: harry.siswanto@gmail.com
> <mailto:harry.siswanto@gmail.com>
> >> http://www.facebook.com/harry.siswanto
> >> http://harry-siswanto.blogspot.com/
> >>
> >>
> >>
> >>
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
> >
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
> belajar-access-fullfeatured@yahoogroups.com
>
>
>