=== BEGIN ARIEFWT'S POST === Fungsi Month() mengembalikan nilai Integer berupa nomor bulan. Contohnya: Januari = 1, Februari = 2, dst.
Misalnya untuk bulan Januari, kira-kira querynya jadi begini: "Select * From Tabel Where 1 = 'Januari' and 2007 = '2007'. Terlihat bahwa 1 tidak sama dengan Januari, jadi querynya tidak mengembalikan hasil. Untuk itu, gunakan properti .ListIndex dari Combo Box, seperti yang telah diposting oleh mas Liung. Sebagai tambahan, sebaiknya jangan menggunakan nama Field yang sama dengan nama peubah atau fungsi internal. Date() adalah fungsi untuk mengambil tanggal hari ini. Sebaiknya diubah entah menjadi "Tanggal" atau apa yang lain. Kodenya sebaiknya diubah menjadi: '=== BEGIN CODE - COPY FROM HERE === db.Execute "SELECT * FROM Tabel WHERE Month(Tgl) = '" & (cboBulan.ListIndex + 1) & "' AND Year(Tgl) = '" & cboTahun & "'" 'powered by Arief Softwares Lab ([EMAIL PROTECTED]) '=== END CODE - COPY UNTIL HERE === Happy coding! === END ARIEFWT'S POST === Catatan: * Semoga posting ini dapat bermanfaat secara positif bagi kita semua * CMIIW - Correct Me If I am Wrong! * Silakan tinggalkan testimonial Anda di http://ariefwt.byethost7.com/testimonial ======== My Online Things ========= Y!: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] Jabber/GTalk: [EMAIL PROTECTED] ICQ: 421914355 www: http://ariefwt.byethost7.com =================================== TPM, 23 Mei 2007 -- Best Regards, (Arief Wibowo, C.Hts, RM) Computer Programmer and Alternative Therapist --- In [email protected], "mukromin" <[EMAIL PROTECTED]> wrote: > > Selamat pagi semua, > Rekan-rekan saya mempunyai sebuah form dengan 2 combo box (cboBulan dan cboTahun) dan 1 datagrid. Data yang ditampilkan pada datagrid difilter sesuai dengan cboBulan dan cboTahun. Masalahnya jika cboBulan diisi nama bulan (misal : May) data tidak tampil di datagrid, tapi jika cboBulan diisi dengan angka (misal : 5) maka datanya akan tampil. > Querynya sbb: > db.Execute "Select * From Tabel Where Month(Tabel.Date) = '" & cboBulan & "' and Year(tabel.Date) = '" & cboTahun & "' . > Mohon bantuannya karena saya ingin mengisi cboBulan dengan kalimat bukan dengan angka. > > > Salam > Mukromin >
