Betul Pak, di query Bpk tambahkan kolom baru, lalu rumus buatan (custom function) ini di copy paste, misal:
ColumnBaru:=JamMsk([NamaFieldJam]) Nanti pas query nya di run, akan muncul jam masuknya. Thank's ----- Original Message ----- From: GALIH PERSADHA To: [email protected] Sent: Thursday, 25 February 2010 9:20 AM Subject: Bls: [belajar-access] mohon solusinya maaf pak saya masih bingung, maksudnya "Tempel fungsi diatas di query" apakan saya tinggal kopi paste fungsi di query atau fungsi itu ada di form ? ------------------------------------------------------------------------------ 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! ------------------------------------------------------------------------------ Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.Dapatkan IE8 di sini! (Gratis)
