Yes...thanks so much Mr. Kid. smga sukses slalu...
--- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote:
>
> 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 <abduhsuryadi@...>
>
> > **
> >
> >
> > 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
> > > >
> > > >
> > > >
> > >
> >
> >
> >
>
