Assalamu'alaikum Wr. Wb.
Saya mempunyai sebuah table "datasiswa" di microsoft access (data.accdb) yang
akan saya olah di excel. saya ingin mengambil seluruh data siswa yang lahirnya
antara tanggal di cell A1 dan tanggal di cell A2.
yang jadi masalah adalah tanggal dianggap sebagai bulan dan sebaliknya, bulan
dianggap sebagai tanggal. contoh 1-3-2013 dianggap tanggal 3 januari 2013. tapi
anehnya kalau tanggal 31-3-2013, maka dianggap sebagai 31 desember 2013.
regional setting yang saya pake adalah format Indonesia.
Mohon solusi dari para master. terima kasih
Berikut kodenya:
Sub AmbilData()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim sSQL As String
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Data.accdb;Persist
Security Info=False;"
sSQL = "Select * From DataSiswa Where TanggalLahir Between #"& Range("A1")
&"# And #"& Range("A2")" & "#"
rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic
Cells(5, 2).CopyFromRecordset rs
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
