Bang Echa n Bang Erwin n temen2 semuanya... udah 3 harian saya belum berhasil membuat multi criterianya niyh bang,,sebenernya si udah tapi maksud saya kalo si comboboxnya kosong dy akan nampilin all records gimana ya bang..aku udah nyoba cuma ga berhasil2 niyh..mentok juga niyh
aku malah nulisnya kalo ga diisi ntar keluar msgbox(terlihat tidak profesional dan ga akomodatif) abis ga tau cara nampilin all records kalo kosong: ini yang udah aku buat.. Dim bProcOK As Boolean bProcOK = True If IsNull((Me.txTahunAwal) And (Me.txTahunAkhir)) Then MsgBox "Anda harus memilih Tahun", vbExclamation, _ "Error" 'txTahunAwal.SetFocus bProcOK = False Else If IsNull(Me.txBulan) Then MsgBox "Anda harus memilih Bulan", vbExclamation, _ "Error" 'txTahunAwal.SetFocus bProcOK = False Else If IsNull(Me.cboDept.Value) Then MsgBox "Anda harus memilih Departemen", vbExclamation, _ "Error" 'txTahunAwal.SetFocus bProcOK = False End If If bProcOK Then DoCmd.OpenReport "CultureReport_3", acPreview, , _ "[Tahun] Between '" & txTahunAwal & "' And '" & txTahunAkhir & "' AND [Bulan]='" & _ Me!txBulan & "'AND [Departemen]='" & _ Me!cboDept & "'" minta tolong dong bang di beri pencerahannya (lagi).. terima kasih Bang.. --- In [email protected], "eCHa" <[EMAIL PROTECTED]> wrote: > > :-) jadi senyum2 sendiri ..... > eniwei selamat yah ..... > > ----- Original Message ----- > From: Ichsan Fadhilah > To: [email protected] > Sent: Thursday, September 13, 2007 1:08 PM > Subject: [belajar-access] Re: Report Filter > > > boleh nimbrung dong bang... > > akhirnya ketemu juga masalahnya.. ternyata itu bentuknya masih > value..jadi kalo aku klik combobox dia hasilnya bukan "2007,2008 dll" > tetapi "1,2,3 dll" jadi aku ubah dulu valuenya: > > Private Sub cboTahunAkhir_AfterUpdate() > Me!txTahunAkhir = Me!cboTahunAkhir.Column(1) > End Sub > > Private Sub cboTahunAwal_AfterUpdate() > Me!txTahunAwal = Me!cboTahunAwal.Column(1) > End Sub > > Private Sub Command4_Click() > strWhere = "[Tahun] Between " & txTahunAwal & " And " & txTahunAkhir > & "" > DoCmd.OpenReport "CultureReport_3", acViewPreview, , strWhere > end sub > > thanks ya bang.. > > kalo boleh nanya satu lagi abang2 sekalian..: > > kalo mau buat multi criterianya gimana ya: > cboTahunAwal = Tahun Awal > cboTahunAkhir= Tahun Akhir > cboBulan=Bulan (Januari,Februari dst) > cboDepartemen= Departemen(Komunikasi,Inisiatif) > > misalnya tampilkan report Tahun 2007 sd 2008 bulan September untuk > departemen Komunikasi.. > > gimana ya bang?saya ga ngerti syntaxnya mohon bantuannya terima > kasih.. > > --- In [email protected], Erwin Sugiawan <esugiawan@> > wrote: > > > > kalo boleh nimbrung : > > tujuan adalah mendapatkan reportculture dgn kriteria tahun yyyy > > > > jawaban: > > ******* bila mempergunakan database nya ms.access > > 1. buat query yg berisi field2 dari reportcultrue (misalkan nama > query nya qa) > > 2. dalam qa pada field tahun , column kriteria buat spt ini > > forms!frmkriteria!tahun --> nanti nya text ini berisi 2007 > > 3. dalam form frmkriteia, buat command button untuk memanggil > reportculture , docmd.openreport "reportculture",acPreview > > > > ***** bila mempergunakan database nya sql > > 1. buat sp yg berisi spt ini kurang lebih > > alter procedure spRptCulture > > @thn as varchar(4) > > as > > select * from tblculture where [EMAIL PROTECTED] > > > > 2.buat form yg berisi field tahun -->nama form nya frmkriteria > > 3.buat report culture dan souce sprptcuture dan dalam parameter nya > di kasih > > @thn =Forms!frmkriteria!tahun > > > > > > seharus nya jalan, kalo ngak jalan bertanyalah lagi, mumpung bulan > puasa ..hihihhih apa hubungan nya :)) > > ... > > ... > > .. > > ... > > teman pertanyaan gue ttg access2007 tolong dong di bantu... pusing > sendiri nih "(( > > > > Best regard > > Erwin Sugiawan > > > > ----- Original Message ---- > > From: Ichsan Fadhilah <satch_tape@> > > To: [email protected] > > Sent: Thursday, September 13, 2007 8:00:29 AM > > Subject: [belajar-access] Re: Report Filter > > > > tidak terfilter juga tuh bang.. bagaimana ya... hmm..... > > > > > > --- In [email protected], "eCHa" <caesar.triasdana@> > > wrote: > > > > > > hhhmmmm .... > > > coba dengan ini yah ... > > > strwhere = "Tahun Between '" & Form_Report.cbo1 & "' And '" & > > > Form_Report.cboEndYear & "'" > > > > > > ----- Original Message ----- > > > From: Ichsan Fadhilah > > > To: [email protected] > > > Sent: Wednesday, September 12, 2007 4:29 PM > > > Subject: [belajar-access] Re: Report Filter > > > > > > > > > masih tampil semua niyh bang...ga ke filter. > > > oiya aku lupa aku pakai access project dgn tipe: > > > Tahun varchar 4 > > > > > > kalo gini siyh berhasil bang: > > > 'DoCmd.OpenReport "ReportCulture", acViewPreview, , "[Tahun] = > 2007" > > > > > > --- In [email protected], "eCHa" <caesar.triasdana@> > > > wrote: > > > > > > > > untuk tahun formatnya apa yah ? string kah ???? > > > > coba tanda # di ganti dengan single kutip ' > > > > > > > > strwhere = "Tahun Between '" & Form_Report.cbo1.Value & "' > And '" > > & > > > > Form_Report.cboEndYear.Value & "'" > > > > > > > > mudah2 an berhasil > > > > > > > > ----- Original Message ----- > > > > From: Ichsan Fadhilah > > > > To: [email protected] > > > > Sent: Wednesday, September 12, 2007 3:17 PM > > > > Subject: [belajar-access] Re: Report Filter > > > > > > > > > > > > thanks bang tapi masih ga ke filter juga niyh alias tampil > > > > semua,,padahal aku masukin dua-duanya tahun 2007 eh yang 2008 > > muncul > > > > juga.. > > > > > > > > mohon bantuannya lagi bang.. > > > > > > > > strwhere = "Tahun Between #" & Form_Report.cbo1.Value & "# And > #" > > & > > > > Form_Report.cboEndYear.Value & "#" > > > > DoCmd.OpenReport "ReportCulture", acViewPreview, strwhere > > > > > > > > --- In [email protected], "eCHa" > <caesar.triasdana@> > > > > wrote: > > > > > > > > > > coba ini : > > > > > 'strwhere = "Tahun Between #" & Form_Report.cbo1.Value & "# > And > > > #" & > > > > > Form_Report.cboEndYear.Value & "#" > > > > > > > > > > ----- Original Message ----- > > > > > From: Ichsan Fadhilah > > > > > To: [email protected] > > > > > Sent: Wednesday, September 12, 2007 1:02 PM > > > > > Subject: [belajar-access] Report Filter > > > > > > > > > > > > > > > Teman2 gimana ya cara untuk memfilter tahun report dari > > form..saya > > > > > udah nyoba ko ga bisa2..saya ingin dengan cmdClick > > > > > > > > > > keterangan: cbo1= Tahun Awal > > > > > cboEndYear= Tahun Akhir > > > > > > > > > > yang sudah saya coba: > > > > > > > > > > 'strwhere = "Tahun Between " & Form_Report.cbo1.Value & " > And " > > & > > > > > Form_Report.cboEndYear.Value & "" > > > > > 'DoCmd.OpenReport "ReportCulture", acViewPreview, strwhere > > > > > OUTPUT: tidak terfilter(semua tampil) > > > > > > > > > > strWhere = "[Tahun] Between " & cbo1 & " And " & cboEndYear > & "" > > > > > DoCmd.OpenReport "ReportCulture", acViewPreview, , strWhere > > > > > OUTPUT: BLANK(tidak Tampil) > > > > > > > > > > DoCmd.OpenReport "ReportCulture", acViewPreview, , "Tahun > > > between " > > > > & > > > > > cbo1.Value & " and " & cboEndYear.Value & "" > > > > > OUTPUT:blank > > > > > > > > > > sebagai info kalau ditulis gini bisa: > > > > > 'DoCmd.OpenReport "ReportCulture", acViewPreview, , "[Tahun] = > > > 2007" > > > > > > > > > > jadi saya rasa bukan masalah penulisan filed "Tahun" nya > > > > > satu lagi: > > > > > dan field Tahun sebagai Group Primer dari Report > > > > > > > > > > terima kasih buat bantuannya. > > > > > > > > > > > > > > > > > > > > > > SPAM IS PROHIBITED > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > > > > __________________________________________________________ > ______________ > > Tonight's top picks. What will you watch tonight? Preview the > hottest shows on Yahoo! TV. > > http://tv.yahoo.com/ > > >
