iya pak memang di tabelnya ada checktype nya, tetapi isinya cuman "I" saja. jadi saya bingung untuk mengetahui mana yang masuk dan mana yang keluar
________________________________ Dari: Belajar Office <[email protected]> Kepada: [email protected] Terkirim: Rab, 24 Februari, 2010 10:07:20 Judul: Re: [belajar-access] mohon solusinya Bpk, ada satu kolom yg kurang di sheet datadasar, yakni kolom status, apakah statusnya in atau out. Semua mesin absen, dari tipe yg lama s.d yg baru umumnya selalu ada / menyertakan tombol in out, bila tidak ada, akan sulit diketahui apakah jam pulang atau jam masuk. Bahkan mesin absen manual seperti Amano pun ada tombol in out nya. Selain itu, harus ada data Master Shift Karyawan, dan Bpk sdh membuatnya di sheet "schedule". Fungsi master shift, supaya orang yg masuk jam 9 malam, pulangnya kan di tanggal berikutnya (yakni jam 7 pagi), kalau langsung dibuat query akan sulit karena sudah berbeda tanggal, karena itu harus dibandingkan dengan master shift karyawan tersebut, bila hari ini dia shift 3, maka kalau dia melakukan absen jam 9 malam, maka program harus cek jam keluarnya pada tanggal berikutnya. Jadi Bpk coba cek di mesin absen, apakah ada fasilitas/tombol In Out, kalau ada, harap diaktifkan. Namun bila memang tidak ada fasilitas tsb, terpaksa Bpk harus buat query tambahan utk mengetahui statusnya, supaya diketahui jam masuk atau jam keluar dari suatu record, gunakan VBA dengan fungsi if, misal: 'Code sebelumnya.. ......... .... Dim Status As String If Shift = 1 Then If Jam >= #6:30:00 PM# And Jam <= #7:30:00 PM# Then Status = "In" ElseIf Jam >= #1:30:00 PM# And Jam <= #2:30:00 PM# Then Status = "Out" End If ElseIf Shift = 2 Then If Jam >= #1:30:00 PM# And Jam <= #2:30:00 PM# Then Status = "In" ElseIf Jam >= #8:30:00 PM# And Jam <= #9:30:00 PM# Then Status = "Out" End If ElseIf Shift = 3 Then If Jam >= #8:30:00 PM# And Jam <= #9:30:00 PM# Then Status = "In" ElseIf Jam >= #6:30:00 PM# And Jam <= #7:30:00 PM# Then Status = "Out" End If End If 'Dst........ ....... Namun bila Bpk tidak ingin membuat function status In Out seperti diatas, maka Bpk langsung buat saja function untuk Jam Masuk dan function untuk Jam Keluar, misal: Function JamMsk(Jam As Date) As Date If Shift = 1 Then If Jam >= #6:30:00 PM# And Jam <= #7:30:00 PM# Then JamMsk = Jam ElseIf Shift = 2 Then If Jam >= #1:30:00 PM# And Jam <= #2:30:00 PM# Then JamMsk = Jam ElseIf Shift = 3 Then If Jam >= #8:30:00 PM# And Jam <= #9:30:00 PM# Then JamMsk = Jam End If End Function Function JamKrl(Jam As Date) As Date If Shift = 1 Then If Jam >= #1:30:00 PM# And Jam <= #2:30:00 PM# Then JamKrl = Jam ElseIf Shift = 2 Then If Jam >= #8:30:00 PM# And Jam <= #9:30:00 PM# Then JamKrl = Jam ElseIf Shift = 3 Then If Jam >= #6:30:00 PM# And Jam <= #7:30:00 PM# Then JamKrl = Jam End If End Function Tempel fungsi diatas di query. Range jam sengaja saya lebih kurangkan sebanyak 30 menit mengingat karyawan bisa saja datang lebih awal dan datang terlambat. Setelah ada querynya, bisa dibuat make table dan query lainnya. Thank's ----- Original Message ----- >From: GALIH PERSADHA >To: belajar-access@ yahoogroups. com >Sent: Tuesday, 23 February 2010 4:18 > PM >Subject: [belajar-access] mohon solusinya > [1 Attachment] > > >saya > ingin ada data dari ms access saya export ke exel > >data dasar ada di > sheet data dasar >dengan menggunakan kriteria dari data schedule saya ingin > membuat output seperti pada sheet hasil yang diinginkan > >mohon > bantuannya > >________________________________ > Lebih aman saat online. >Upgrade > ke Internet Explorer 8 baru dan lebih cepat yang dioptimalkan untuk Yahoo! > agar Anda merasa lebih aman. Gratis. Dapatkan > IE8 di sini! ___________________________________________________________________________ Nama baru untuk Anda! Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/
