Layanan Teknologi Informasi

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.
*VB-Share* Anda sedang membaca artikel tentang Cara Menampilkan Record tanggal awal hingga tanggal akhir pada Microsoft Access dan anda bisa menemukan artikel ini di alamat url http://vb-share.blogspot.com/2013/09/cara-menampilkan-record-tanggal-awal.html, silakan sebar luaskan atau copy paste artikel ini, namun jangan lupa untuk meletakkan link Cara Menampilkan Record tanggal awal hingga tanggal akhir pada Microsoft Access sebagai sumber informasinya.
LIKE dan SHARE jika arikel ini bermanfaat !!!

1 comment

  1. Mohon bantuanya master....
    misalkan:
    Text1(awal)-text2(akhir)=text3(hasil)
    Bagaimana caranya Angka di text2(akhir) menjadi Angkatext1(awal) secara otomatis pada hari berikutnya...begitu seterusnya....jd tidak perlu memasukkan angka awal setiap harinya..terima kasih

    ReplyDelete

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.