Sudah saya coba Mr tapi tetap g bisa. saya mengambil data tanggal antara 1/3/2013 dan 31/3/2013. untuk yg pertama dianggap bulan januari dan yg kedua dianggap bulan maret. tapi klu saya gnti yg prtama dg 3/1/2013, maka dianggap sebagai bln maret.
--- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote: > > 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 <abduhsuryadi@...> > > > ** > > > > > > 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 > > > > > > >
