Wa'alaikumussalam Wr. Wb. Coba di range A1 dan A2 diisi dengan data yang ketika meng-entry-nya dalam format YYYY-MM-DD Jadi jika ingin entry A1 dengan 1 maret 2013m maka ketik di A1 : 2013-03-01
Wassalamu'alaikum Wr. Wb. Kid. 2013/4/6 Adi <[email protected]> > ** > > > 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 > > >
