Setelah A1 dan A2 diinput dengan cara tadi,
sekarang coba baris VBA :
sSQL = "Select * From DataSiswa Where TanggalLahir Between #"& Range("A1")
&"# And #"& Range("A2")" & "#"
diganti menjadi :
sSQL = "Select * From DataSiswa Where TanggalLahir Between #" & _
format$(Range("A1").value,"YYYY-MM-DD") & _
"# And #" & _
format$(Range("A2").value,"YYYY-MM-DD") & _
"#"
Wassalam,
Kid.
2013/4/6 Adi <[email protected]>
> **
>
>
> 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
> > >
> > >
> > >
> >
>
>
>
