coding nya 2-2 nya di pake, yg pake if isnull(me.txtbln)=true ........ di pake dalam access adp yg berfungsi untuk mengisi recordsource pada form tsb dan alter ...... merupakan sp source nya..........
gitu aja kok repot :)) ahahahahha banyak ketawa akan awet muda Best regard Erwin Sugiawan ----- Original Message ---- From: Ichsan Fadhilah <[EMAIL PROTECTED]> To: [email protected] Sent: Monday, September 24, 2007 3:56:12 AM Subject: [belajar-access] Re: Report Filter emang nyambung ya bikin program sama mandi di sumur hahahaha yang ada ga bisa mikir kedinginan soalnya.. belum sempet di coba karna kantor masih libur datanya ga di bawa. iya saya pake SQL..nah satu lagi bang itu coding "if isnull (me.txtbln)=true then" dan query yang "alter procedure" di pake dua duanya atau boleh milih salah satu,,boleh pake query aja atau coding aja. Bang pertanyaan tambahan niyh..ko sql saya stop connecting ya kalo password windowsnya saya ganti?padahal dari kantor udah di set di domainnya 1 bulan ganti password. sabar2 bang ya..bulan puasa niyh gw doain deh lo banyak pahalanya hehehe --- In [email protected], Erwin Sugiawan <[EMAIL PROTECTED]> wrote: > > pake adp.......... moga2 database nya pake sql server., krn aku ngak tahu field apa aja yg ada di table km, aku tebak aja ya... mudah2an ide nya terbaca > > pada bagian form, jgn gunakan tanda bintang, gunakan bulan jan-dec spt semula, kalo ngak di pilih arti nya kosong atau null > > pada tombol search di form > if isnull(me.txtbln)=true then > me.recordsource = "exec dbo.sptext null " > else > me.recordsource= " exec dbo.sptext '"& me.txtbln &"' > endif > me.requery > > > alter procedure sptest > @bulan nvarchar(4) > as > > select bla,bla,bla > from tblx > where ([EMAIL PROTECTED] or @bulan is null) > > tambahannya cuma pada ===> or @bulan is null > kalo masih ngak berhasil........ kudu mandi 7 sumur dan 7 kembang :)) hahahhah joke man > > > Best regard > Erwin Sugiawan > > ----- Original Message ---- > From: Ichsan Fadhilah <[EMAIL PROTECTED]> > To: [email protected] > Sent: Thursday, September 20, 2007 5:36:11 AM > Subject: [belajar-access] Re: Report Filter > > wah bang Erwin aku tambahin tanda bintang tapi ko dia malah nyarinya > * deh.. jadi pas aku pilih * eh dia kosong reportnya hehehehe. > misalnya di cboBulan: *,Januari, Februari,,gitu ga si bang maksudnya? > koreksi ya bang kalo salah.. tapi aku ga pake Query Criteria jadi > cuma tambah di form aja.. > > itu maksudnya boleh pilih salah satu (tambahin * di form) atau harus > dua2nya(tambahin * di form DAN pake Query kriteria) > > oiya bang kalo bisa jgn pake query bang diriku sama sekali tidak > mengerti mungkin kalo di Codingnya gimana bang? oiya aku pakenya adp > bukan mdb.. > > matur nuwun sanget nggih bang .. > > > --- In [email protected], Erwin Sugiawan > <esugiawan@> wrote: > > > > udah nyoba ya.............. hihhii seneng nya ada yg mau > usaha....... > > aku coba menjawab ya........ tp jgn marah kalo tak berkenan : > > > > untuk mendapatkan all report : > > 1. di form bisa di buat kan tambahan nilai "*" --> tanda bintang , > diatas nya angka 8 > > 2. di qry yang menjadi source dari form tersebut buat kriteria > like form!frmkriteria!cmbEmp > > > > > > kalo lupa cara menambahkan bintang di combo.... sheeeeeeeeeee > jangan bilang ke siapa2 ya...... gunakan query union dan ingat kalo > union itu jumlah field yang di union harus sama.... > > > > mudah2an berguna, kalo ada salah mohon di maafkan > > > > btw......... om excel kemana ya......... kok pertanyaan gue ngak > di jawab :)) sambil melirik ke kanan dan ke kiri hehehhehhe > > > > Best regard > > Erwin Sugiawan > > > > ----- Original Message ---- > > From: Ichsan Fadhilah <satch_tape@> > > To: [email protected] > > Sent: Tuesday, September 18, 2007 7:21:53 AM > > Subject: [belajar-access] Re: Report Filter > > > > 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" <caesar.triasdana@> > > 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/ > > > > > > > > > > > > > > > > > SPAM IS PROHIBITED > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > > > > _____________________________________________________________________ > _______________ > > Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s > user panel and lay it on us. > http://surveylink.yahoo.com/gmrs/yahoo_panel_invite.asp?a=7 > > > > > > > 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/ > SPAM IS PROHIBITED Yahoo! Groups Links ____________________________________________________________________________________ Looking for a deal? Find great prices on flights and hotels with Yahoo! FareChase. http://farechase.yahoo.com/
