Jadi ane bikin program payroll gan. Nah ini ane lagi nyoba ngitung jumlah absensi karyawan dalam kurun waktu tertentu

ane buat form seperti ini :



Masukin , NIP, enter, pilih tanggal mulai, trus tuh kalo di pilih tanggal akhir langsung muncul jumlah absen

ane buat kode seperti ini di DTPicker2, sesuai anjuran user stackoverflow

Private Sub DTPicker2_Change()

'Dim countval As Integer

Call koneksi

hitung = "select count(*) from absen where NIP ='" & cnip & "' and status ='absen masuk' and tglabsen between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'"

rsabsen.Open hitung, KON, adOpenForwardOnly, adLockReadOnly

If Not rsabsen.EOF Then



 tjumlahabsen.Text = rsabsen(0).Value

 

Else

MsgBox "Data tidak ditemukan"

End If

End Sub

tuh kolom "jumlah absen" di form masih tetep nol gan walau pun pas di input NIP-nya, dari data absen ada banyak yang masuk kriteria di SQL statementnya, gimana ya gan/ mohon bantuanya dong. Apa ada yang salah di penulisan SQL statement, atau di code vb-nya, atau dua duanya ya? Thanks before