Terima ksih atas saran mas aksan, nanti saya coba mas, kalau belum berhasil nanya lagi..
--- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@...> wrote:
>
> kenapa harus ke vba ?
> dengan query saja kekuatan database tool.
>
> aturannya bisa disimpulkan:
> - setiap karyawan punya ketentuan jam masuk sendiri-sendiri,
> - keterlambatan akan dikenai denda yang besarnya sama: 5000
>
> maka anda butuh minimal tiga tabel:
> - master karyawan (saya sebut m_karyawan)
> - transaksi absen (saya sebut t_absensi)
> - master global variabel (saya sebut m_setup)
>
> o master karyawan
> berisi informasi data setiap karyawan, minimum isinya adalah kode, nama,
> batas_terlambat.
> primary key adalah kode
>
> o transaksi absen
> berisi rekaman absensi harian, minimum isinya adalah kode karyawan, tgl
> absen, jam absen
>
> o master global variabel
> berisi informasi general yang berlaku di seluruh program aplikasi,
> semisal denda harian sebesar 5000, fieldnya saat ini berisi cuma satu
> saja: denda
>
> sekarang tinggal buat form untuk mengisi master karyawan, transaksi absen.
> tabel m_setup tidak perlu interface, cukup admin/programmernya saja yang
> isi :)
>
> contoh isi data master karyawan:
> (kode, nama, batas_terlambat)
> A, Anu, 07:00
> R, Ranu, 09:00
>
> setelah itu isi data absensi seperti biasa.
>
> sekarang untuk mengetahui si karyawan terkena denda adalah dengan
> membuat querynya:
>
> select
> a.kode_karyawan,
> k.nama,
> format(k.batas_terlambat,"hh:nn") as batas_telat,
> a.tgl_absen,
> format(a.tgl_absen,"hh:nn") as jam_masuk,
> iif(jam_masuk>batas_telat,format(a.tgl_absen-k.batas_terlambat,"hh:nn"),format(#12:00:00
> AM#,"hh:nn") as total_telat,
> iif(total_telat>0,s.denda,0) as denda_telat
> from t_absensi as a
> inner join m_karyawan as k on a.kode_karyawan=k.kode, m_setup as s
>
>
> aksan kurdin
>
>
> On 4/23/2013 2:33 PM, Andri wrote:
> >
> > Dear Para Master,
> >
> > Bagaimana kode vba jika saya punya logika sbb:
> >
> > Jika:
> >
> > Peraturannya,
> > Jika nama "A" masuk jam 07.00 otomastis keluar di textbook " A
> > Terlambat harus di denda sebesar 5000"
> > Jika nama "R" Masuk jam 09.00 otomotis keluar di textbox " R terlambat
> > harus di denda sebesar 5000"
> >
> > dan jika masuk dibawah jam yang telah ditentukan diatas keterangan di
> > textbox nya "Tepat Waktu"
> >
> > Tabel
> > Tanggal, Waktu Masuk, Nama, denda
> >
> > Terima Kasih, mohon bantuaanya..
> >
> >
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar