Layanan Teknologi Informasi
Showing posts with label source code. Show all posts
Showing posts with label source code. Show all posts

Cara Menampilkan Record tanggal awal hingga tanggal akhir pada Microsoft Access

Monday, 16 September 2013

Artikel ini khusus untuk menjawab pertanyaan yang diajukan oleh saudara Pontianus Setiawan.
Screenshot Pertanyaan
Pertanyaan diatas secara singkat saya jawab seperti dibawah ini :

SELECT * FROM Tabel_kamu WHERE Field_Tanggal >=#1/1/2011# and <=#1/1/2013#

atauuuu....
SELECT * FROM Tabel_kamu WHERE Field_Tanggal >=CDate(1/1/2011) and <=CDate(1/1/2013)


Bahasa sederhana dari pengertian perintah diatas adalah:
  • >=  diartikan sebagai "Lebih besar atau sama dengan tanggal awal" hal ini memiliki pengertian yang sama dengan "dengan kriteria dimulai dari tanggal Awal hingga tanggal selanjutnya"
  • <= diartikan sebagai "Lebih kecil atau sama dengan tanggal akhir " hal ini memiliki pengertian yang sama dengan "dengan kriteria dimulai dari sejak tanggal sebelumnya hingga akhir tanggal yang ditentukan"
  • # diartikan sebagai "semua bentuk tipe data Date/Time diharuskan diawali dan diakhiri dengan simbol #, hal ini untuk memastikan data tersebut ber type date/time"
  • "SELECT * FROM Tabel_kamu WHERE Field_Tanggal >=#1/1/2011# and <=#1/1/2013#" diterjemahkan "Tolong tampilkan data pada Tabel_kamu, yang mana kriteria yang diinginkan adalah dimulai dari tanggal 1 Januari 2011 hingga sampai tanggal 1 Januari 2013"

Fungsi menampilkan RECORD berdasarkan kriteria 2 buah tanggal

Untuk memperingkas pencarian atau menampilkan data record dengan kriteria 2 buah tanggal tersebut, saya menggunakan Fungsi AccessDT_Between, jika anda suka silakan dipakai.


'---//------------------------------------------
'Name : AccessDT_Between
'Nilai INPUT [FIELD]= nama Field
'Nilai INPUT [TANGGALDARI] = Tanggal Awal
'Nilai INPUT [TANGGALSAMPAI] = Tanggal Akhir
'---\\-------------------------------------------

Public Function AccessDT_Between(FIELD, TANGGALDARI, TANGGALSAMPAI) As String
    Dim sBet As String
    sBet = FIELD & " >= cdate('" & TANGGALDARI & "') AND " & FIELD & " <= cdate('" & TANGGALSAMPAI & "')"
    AccessDT_Between = sBet
End Function


Penerapan Coding pada Visual Basic:
"SELECT * FROM Tabel_kamu WHERE " & AccessDT_Between(nama Field, Tanggal_Awal, Tanggal_Akhir) & ";"


Baca juga Cara Cepat Memvalidasi Tanggal pencarian awal dan tanggal akhir

Jika anda mengalami kesulitan dalam memahami artikel ini, silakan ajukan pertanyaan dimana letak kesulitannya.

Cara Cepat Memvalidasi Tanggal pencarian awal dan tanggal akhir

Thursday, 5 September 2013

pesan error saat melakukan kesalahan memilih tanggal
Daripada kebanyakan menuliskan coding yang berkali - kali dalam menentukan pencarian pada 2 buah tanggal di code window Visual Basic, lebih baik kita ringkas saja codingnya seperti yang ada dibawah ini.


Prinsipnya adalah:
  • Tanggal awal akan selalu ditetapkan sebagai tanggal yang lebih kecil dari tanggal sekarang, dan tidak bisa lebih besar dari tanggal sekarang
  • Tanggal akhir akan selalu ditetapkan sama dengan tanggal sekarang dan atau lebih besar dari tanggal awal, namun tidak boleh lebih besar dari tanggal sekarang.

Mengapa demikian?
Logikanya adalah, data yang pernah diinput atau yang disimpan di database, tidak boleh dan tidak pernah lebih besar dari tanggal sekarang. Dalam beberapa kasus, mungkin saja data disimpan untuk diproses atau divalidasi pada tanggal yang akan datang (ikuti artikel lainnya yang membahas masalah ini). Namun disini dibuat pengecualiannya.

Dibawah ini adalah contoh script yang akan di panggil untuk memvalidasi dalam menentukan tanggal.

Baca Juga

 

Pencarian

Archives

Paling Populer

Ikuti Kami




Join This Site
Disini bukan tempat pamer kemampuan pemrograman, namun tempat untuk membagikan ilmu pemrograman visual basic, Dibahas secara sederhana dan sangan cocok bagi yang baru belajar membuat program menggunakan visual basic.