/* */

Wednesday, July 29, 2009

[belajar-access] Re: find record menggunakan field

----- Original Message -----
From: "Harry siswanto" <harry.siswanto@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 29, 2009 1:36 AM
Subject: Re: [belajar-access] Re: find record menggunakan field


> Maaf ikutan Nimbrung....
>
> untuk di MsAccess (MDB)
> masih belum mudeng nih....
> untuk mencari berdasarkan isian yg ada.
> terlampir contoh mdb nya...
>
> Tolong dapat dibantu...
>
>
> thanks
> harry
> Pada 28 Juli 2009 12:00, HENDRA <hendragunadi@gmail.com> menulis:
>
> >
> >
> > Oh ok pak, jd kl saya update, delete, insert drpd pake ado mending saya
> > pake stored procedure ajah ya pak, trus kita passing parameter2 nya
> >
> >
> > ------------------------------
> >
> > *From:* belajar-access@yahoogroups.com [mailto:
> > belajar-access@yahoogroups.com] *On Behalf Of *Nana Supriatna Access
> > *Sent:* Tuesday, July 28, 2009 11:42 AM
> > *To:* belajar-access@yahoogroups.com
> > *Subject:* Re: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> >
> >
> >
> >
> > Mas Hendra..
> >
> >
> >
> > Store Procedure disimpan di Sql Server seperti query di MS Access. Coba
> > dulu create Sp sederhana saja, lalu jadikan recordsource form atau
subform.
> >
> > Nanti tinggal coba passing parameter di form. Kalau ada kesulitan nanti
> > bisa tanya ke MBA :)
> >
> >
> >
> >
> >
> > Salam
> >
> >
> >
> >
> >
> >
> >
> > Nana
> >
> >
> >
> >
> >
> > ----- Original Message -----
> >
> > *From:* HENDRA <hendragunadi@gmail.com>
> >
> > *To:* belajar-access@yahoogroups.com
> >
> > *Sent:* Tuesday, July 28, 2009 11:20 AM
> >
> > *Subject:* RE: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> >
> >
> > Wah masih blum ngerti pak, bisa diberikan contohnya? Yg simple ajah?
> > ------------------------------
> >
> > *From:* belajar-access@yahoogroups.com [mailto:
> > belajar-access@yahoogroups.com] *On Behalf Of *Nana Supriatna Access
> > *Sent:* Tuesday, July 28, 2009 10:19 AM
> > *To:* belajar-access@yahoogroups.com
> > *Subject:* Re: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> > Mas Hendra kenapa gak pakai Store Procedure ?
> >
> > ----- Original Message -----
> >
> > *From:* HENDRA <hendragunadi@gmail.com>
> >
> > *To:* belajar-access@yahoogroups.com
> >
> > *Sent:* Tuesday, July 28, 2009 8:22 AM
> >
> > *Subject:* RE: [belajar-access] Re: find record menggunakan field
> >
> >
> >
> > Jadi maksudnya mas aksan kl contoh kita pake adp begini kira2? Mohon
> > dikoreksi
> >
> > Dim RST2 As ADODB.Recordset
> > Set RST2 = New ADODB.Recordset
> > RST2.Open "SELECT * from tblbarang ", CurrentProject.Connection,
> > adOpenStatic, adLockOptimistic
> >
> > trus bgm kita memfilter2 data yg sudah di download ke comp client?
> > Combobox1.rowsource = ????? (bgm contoh memfilter nya?) terima kasih
> >
> > -----Original Message-----
> > From: belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>[mailto:
> > belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>]
> > On Behalf Of Aksan Kurdin
> > Sent: Tuesday, July 28, 2009 12:05 AM
> > To: belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>
> > Subject: Re: [belajar-access] Re: find record menggunakan field
> >
> > Jika sudah demikian, maka anda bisa mengambil langkah meload recordset
> > sql server ke memory client dengan opsi openkeyset atau openstatic.
> > dengan open static, maka recordset sudah didownload semua ke memori,
> > sehingga proses filter memfilter di sisi client harusnya lebih cepat,
> > lambat saat loadingnya saja. Tetapi diingat, karena sifatnya yang static
> > / keyset, maka penambahan data dari user lain tidak akan terlihat sampai
> > dilakukan requery lagi.
> >
> > Aksan Kurdin
> >
> > HENDRA wrote:
> > >
> > > Oh iya, saya juga menggunakan sql server mas aksan, berarti sudah
> > > betul caranya. Tetapi saya pernah pakai cara filter yg ditaruh di
> > > event on change text box kemudian di set listbox.rowsource = select *
> > > from tblanu where cust like ' textbox.value' . tapi hasilnya masih
> > > tetap lagging kl data sudah banyak. Kira2 apa yg salah ya? Terima
kasih
> > >
> > > ----------------------------------------------------------
> > >
> > > *From:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>]
> > *On Behalf Of *Aksan Kurdin
> > > *Sent:* Monday, July 27, 2009 6:11 PM
> > > *To:* belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>
> > > *Subject:* Re: [belajar-access] Re: find record menggunakan field
> > >
> > > Mas Hendra,
> > > MS Access adalah file server, bukan client server, jadi selalu kalau
> > > database di taruh di tempat berbeda (server atau workstation lain),
> > > maka select * from customer where custname like 'aksan*', selalu
> > > mengirimkan select * from customer ke workstation yang meminta, nanti
> > > dari workstation baru tampilan ke screen di filter where custname like
> > > 'aksan*'
> > > SQL Server adalah salah satu contoh database server, sehingga
> > > permintaan di atas langsung di filter di sisi SQL Server, dan hasilnya
> > > baru di kirim ke workstation yang meminta.
> > >
> > > Jadi, kalau proses requery di lakukan di MS Access, maka penarikan
> > > data akan berulang-ulang sejumlah record yang terrekam dalam file MDB.
> > >
> > > aksan kurdin
> > >
> > >
> > > HENDRA wrote:
> > >
> > >> Mas aksan, bisa kasih contoh kode yg dimaksud dengan client server,
> > >> sehingga jika memfilter 4 data , hanya 4 data saja yg dikirim. Apa
> > >> bisa menggunakan Microsoft Access untuk mengisi sebuah listbox ato
> > >> bgm? Kalo saya biasa menggunakan ADO di access untuk mempopulasi
> > >> listbox yg berisi data2 hasil filter, kl prinsip kerja ADO apakah
> > >> hanya menarik 4 data sajah ato semuanya ditarik? Terima kasih
> > >>
> > >> ----------------------------------------------------------
> > >>
> > >> *From:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>]
> > *On Behalf Of *Aksan Kurdin
> > >> *Sent:* Monday, July 27, 2009 4:11 PM
> > >> *To:* belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>
> > >> *Subject:* Re: [belajar-access] Re: find record menggunakan field
> > >>
> > >> Kalau pake requery memang pasti lambat, karena selalu request data
> > >> kembali setiap kali melakukan filter. Padahal di Access, data yang
> > >> ditarik dari server database selalu semuanya, nanti pada saat mau
> > >> ditampilkan di form, baru di filter. Beda kalau client server, kita
> > >> filter 4 data dari 4 juta record, yang dikirim pun selalu 4 saja.
> > >>
> > >> Usulan awal dari MBA yang paling mengena, yaitu dengan filter form
> > >> pada event on change text box. Biasanya efektif untuk filter text
> > >> field saja.
> > >>
> > >> Private Sub txtFilter_onchange()
> > >> if me.txtfilter.text = "" then
> > >> me.filter = ""
> > >> me.filteron = false
> > >> else
> > >> me.filter = "NoRekening Like '" & me.txtFilter.text & "*'"
> > >> me.filteron = true
> > >> end if
> > >> end sub
> > >>
> > >> ingat, gunakan property text dari txtFilter, bukan property value.
> > >> Text adalah nilai yang saat ini sedang di edit dan ditampilkan di
> > >> textbox saat mendapatkan focus, sedangkan value adalah nilai awal
> > >> yang sudah disimpan di database.
> > >> kode diatas akan dinamis memfilter record sesuai dengan nomor
> > >> rekening yang sesuai dengan awalan yang ada di txtfilter, atau
> > >> menampilkan semuanya jika txtFilter di kosongin.
> > >>
> > >> Biasanya kode seperti ini di kombinasikan dalam form header - detail.
> > >> Header berisi combo box yang memuat daftar field yang akan di filter,
> > >> seperti no rekening, nama customer, kota, dan sebagainya.
> > >> Detail adalah detail datasheet yang berisi data berupa query / table.
> > >> jadi kita memilih field apa yang akan di filter, lalu mulai
> > >> memasukkan huruf demi huruf apa yang difilter. Isi datasheet akan
> > >> menyesuaikan langsung, segera setelah kita mengetikkan sesuatu di
> > >> text filter. Karena cuma filter dan tidak ada requery, seharusnya
> > >> proses ini tidak memakan waktu yang lama untuk database gede.
> > >> kalau letak datasheet yang di filter ada di sub form, tinggal
> > >> mengganti me. dengan pointer yang sesuai semisal :
> > >>
> > >> me.filter = blah ...
> > >>
> > >> menjadi
> > >>
> > >> me.namasubform.form.filter = blah....
> > >>
> > >>
> > >>
> > >> Aksan Kurdin
> > >>
> > >>
> > >>
> > >> HENDRA wrote:
> > >>
> > >>> Saya sudah pernah mengaplikasikan kode semacam ini, untuk jumlah
> > >>> data sedikit masih oke, Cuma begitu mulai banyak akan terasa lagging
> > >>> nya. Sehingga
> > >>>
> > >>> Terakhir saya ubah sehingga tetap user nya saja yg masukan criteria
> > >>> kemudian tekan tombol barulah di search barangnya.
> > >>>
> > >>> CMIIW
> > >>>
> > >>> ----------------------------------------------------------
> > >>>
> > >>> *From:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>]
> > *On Behalf Of *Murid Belajar
> > >>> Access
> > >>> *Sent:* Monday, July 27, 2009 3:10 PM
> > >>> *To:*
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>> *Subject:* Re: [belajar-access] Re: find record menggunakan field
> > >>>
> > >>> Mas Panca,
> > >>>
> > >>> Misalnya, textbox namanya txtFilter
> > >>> combobox namanya cboHasilFilter
> > >>>
> > >>> Private Sub txtFilter_onchange()
> > >>> strFilter=txtFilter.text
> > >>> strSQL="Select NoRekening From tblRekening where NoRekening Like '"
&
> > >>> strFilter & "*'"
> > >>>
> > >>> with cboHasilFilter
> > >>> .rowsource=strSQL
> > >>> .requery
> > >>> end with
> > >>>
> > >>> end sub
> > >>>
> > >>> setiap selesai ketik satu huruf, data di combo box akan langsung
> > >>> menyesuaikan.
> > >>> kode belum dites, tapi saya rasa bisa ditangkap idenya.
> > >>>
> > >>> salam hangat dan jabat erat,
> > >>> MBA
> > >>>
> > >>> ----- Original Message -----
> > >>> From: "panca_w201002"
<panca_w201002@yahoo.com<panca_w201002%40yahoo.com>
> > >>> <mailto:panca_w201002%40yahoo.com <panca_w201002%2540yahoo.com>>>
> > >>> To: <belajar-access@yahoogroups.com
<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >>
> > >>> Sent: Monday, July 27, 2009 10:33
> > >>> Subject: [belajar-access] Re: find record menggunakan field
> > >>>
> > >>> > sebenarnya cara mas hendra bisa diaplikasikan, tp itu sesuai
kata..
> > >>> > klo sesuai huruf blm saya temukan, klo sekedar pke find biasa yg
> > >>> muncul
> > >>> > mang akan banyak..tp dalam hal ini saya mencoba mengaplikasikan di
> > >>> dalam
> > >>> > form.
> > >>> > misalny : kita punya kode brg yg bentuknya seperti ini
> > >>> >
> > >>> > 5.1.1.01
> > >>> > 5.1.1.02
> > >>> > 5.2.1.01.01 kertas hvs 60gram
> > >>> > 5.2.1.01.02 kertas hvs 70gram
> > >>> > dst...
> > >>> >
> > >>> > lha klo kita masukkan data di text box/combo box no rekening 5.2.1
> > dst
> > >>> > maka yg keluar adalah no rekening yg awalnya 5.2.1..
> > >>> > tp dlm hal ini tiap kali kita tulis satu huruf maka akan muncul
> > >>> list combo
> > >>> > box dibawahnya. misal kita tulis 5 maka akan muncul semua, klo
kita
> > >>> tulis
> > >>> > 5.2 maka yg muncul hanya yg berawalan 5.2 dan seterusnya
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> > --- In
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
>,
> > "HENDRA"
> > >>> <hendragunadi@...> wrote:
> > >>> >>
> > >>> >> Sekadar menambahkan, agar pencarian lebih mudah gunakan cara
> > >>> seperti ini
> > >>> >> :
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> Saya beri contoh ada combobox yg bernama KODE_BARANG
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> ARR = Split(Me.KODE_BARANG.Text, " ")
> > >>> >>
> > >>> >> S = UBound(ARR)
> > >>> >>
> > >>> >> SEARCH = ""
> > >>> >>
> > >>> >> I = 0
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> For I = 0 To S
> > >>> >>
> > >>> >> If I = S Then
> > >>> >>
> > >>> >> SEARCH = SEARCH & " (NAMA_BARANG LIKE '%" & ARR(I) & "%') "
> > >>> >>
> > >>> >> Else
> > >>> >>
> > >>> >> SEARCH = SEARCH & " (NAMA_BARANG LIKE '%" & ARR(I) & "%') AND "
> > >>> >>
> > >>> >> End If
> > >>> >>
> > >>> >> Next
> > >>> >>
> > >>> >> Me("KODE_BARANG").RowSource = "SELECT * FROM TBLBARANG WHERE " &
> > >>> SEARCH
> > >>> >>
> > >>> >> ARR = ""
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> Cara search ini biasa nya saya gunakan agar metode pencarian
lebih
> > >>> >> gampang .
> > >>> >> contoh bila kita ada bbrp barang dengan nama demikian
> > >>> >>
> > >>> >> 1 AVIAN SUPER WHITE 200 CC
> > >>> >>
> > >>> >> 2 AVIAN SUPER WHITE 100 CC
> > >>> >>
> > >>> >> 3 AVIAN SUPER WHITE 50 CC
> > >>> >>
> > >>> >> 4 AVIAN SUPER WHITE 25 CC
> > >>> >>
> > >>> >> 5 AVIAN SUPER BLACK 200 CC
> > >>> >>
> > >>> >> 6 AVIAN SUPER BLACK 100 CC
> > >>> >>
> > >>> >> 7 AVIAN SUPER BLACK 50 CC
> > >>> >>
> > >>> >> 8 AVIAN SUPER BLACK 25 CC
> > >>> >>
> > >>> >> Kemudian kita mo cari barang avian super black 25 cc misalnya
> > >>> >>
> > >>> >> Maka kita cukup search dengan mengetikkan avi (spasi) 25 (spasi)
> > blac
> > >>> >> maka barang yg kita cari akan lebih mudah ketemunya. Apabila
> > >>> >>
> > >>> >> Pake search yg biasa kadang masih terlalu banyak barangnya, jadi
> > user
> > >>> >> bisa
> > >>> >> lebih spesifik mencari barangnya.
> > >>> >>
> > >>> >> Semoga membantu, mohon dikoreksi apabila ada salah
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> _____
> > >>> >>
> > >>> >> From:
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >
> > >>> >>
[mailto:belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >]
> > >>> >> On Behalf Of Murid Belajar Access
> > >>> >> Sent: Sunday, July 26, 2009 4:42 AM
> > >>> >> To:
belajar-access@yahoogroups.com<belajar-access%40yahoogroups.com>
> > >>>
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >
> > >>> >> Subject: Re: [belajar-access] find record menggunakan field
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >>
> > >>> >> kalau pakai form biasanya tinggal mengeset record source form /
row
> > >>> >> source
> > >>> >> suatu list.
> > >>> >> atau pakai filter
> > >>> >>
> > >>> >> misalnya, kalau dari form - buat teks box, misalnya:
> > >>> >>
> > >>> >> me.filter="[Nama]='anang'"
> > >>> >> me.filteron=true
> > >>> >> akan memfilter semua baris / record yang kolom Namanya anang
> > >>> /ANANG/Anang
> > >>> >>
> > >>> >> kalau ingin yang hanya mengandung kata tertentu seperti : an ,
terus
> > >>> >> keluar
> > >>> >> dian, ana, pian dst gunakan
> > >>> >> like
> > >>> >> me.filter="[Nama]=like '*anang*'"
> > >>> >> me.filteron=true
> > >>> >>
> > >>> >> atau di set recordsource sbb:
> > >>> >>
> > >>> >> me.recordsource = "select * from tblAnu where nama = '" &
> > >>> >> teksfilter.value &
> > >>> >>
> > >>> >> "'"
> > >>> >> me.requery
> > >>> >>
> > >>> >> kalau untuk yang mengandung kata - sama dgn filter gunakan like
> > >>> >> me.recordsource = "select * from tblAnu where nama like '*" &
> > >>> >> teksfilter.value & "*'"
> > >>> >> me.requery
> > >>> >>
> > >>> >> btw, saya tidak mengerti kebutuhan anda yang mana.
> > >>> >> mudah2-an bermanfaat.
> > >>> >>
> > >>> >> salam hangat dan jabat erat,
> > >>> >> MBA
> > >>> >>
> > >>> >> ----- Original Message -----
> > >>> >> From: "Harry siswanto" <harry.siswanto@
> > >>> >> <mailto:harry.siswanto%40gmail.com
<harry.siswanto%2540gmail.com>>
> > >>> >> gmail.com>
> > >>> >> To: <belajar-access@
<mailto:belajar-access%40yahoogroups.com<belajar-access%2540yahoogroups.com>
> > >
> > >>> >> yahoogroups.com>
> > >>> >> Sent: Saturday, July 25, 2009 19:55
> > >>> >> Subject: Re: [belajar-access] find record menggunakan field
> > >>> >>
> > >>> >> > Kalau saya,
> > >>> >> > Click di Field yg akan dicari datanya,
> > >>> >> > tekan Ctrl-F (atau Click Edit-Find)
> > >>> >> > lalu ketikan teks yg ingin dicari...
> > >>> >> >
> > >>> >> > karena fungsi FIND sebenarnya udah ada....
> > >>> >> >
> > >>> >> >
> > >>> >> > rgds
> > >>> >> >
> > >>> >> > hs
> > >>> >> >
> > >>> >> > 2009/7/25, panca_w201002 <panca_w201002@
> > >>> >> <mailto:panca_w201002%40yahoo.com <panca_w201002%2540yahoo.com>>
> > yahoo.com>:
> > >>> >> >> ada yg tau source code-nya nyari record dgn ngisi huruf di
field?
> > >>> >> >> pake vb access
> > >>> >> >> jadi seperti search engine gitu..
> > >>> >> >> aq bingung...
> > >>> >> > Harry Siswanto
> > >>> >> > Email: harry.siswanto@
<mailto:harry.siswanto%40gmail.com<harry.siswanto%2540gmail.com>
> > >
> > gmail.com
> > >>> >> > www.facebook <http://www.facebook>.com/harry.siswanto

[belajar-access] maap blm mudeng.... filter dari Form

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 29, 2009 5:42 PM
Subject: Re: [belajar-access] maap blm mudeng.... filter dari Form


>
>
> Option Compare Database
>
> Sub FilterList()
> Dim sqlFilterType As String
>
> If Len(Me.Combo6 & "") = 0 Then
> sqlFilterType = ""
> Else
> sqlFilterType = "Type = '" & Me.Combo6 & "'"
> End If
>
> If Len(Me.Combo8 & "") = 0 Then
> sqlFilterMerk = ""
> Else
> sqlFilterMerk = "MerkID = '" & Me.Combo8 & "'"
> End If
>
> If sqlFilterType = "" Then
> If sqlFilterMerk = "" Then
> Me.Filter = ""
> Me.FilterOn = False
> Else
> Me.Filter = sqlFilterMerk
> Me.FilterOn = True
> End If
> Else
> If sqlFilterMerk = "" Then
> Me.Filter = sqlFilterType
> Me.FilterOn = True
> Else
> Me.Filter = sqlFilterType & " AND " & sqlFilterMerk
> Me.FilterOn = True
> End If
> End If
>
>
> End Sub
>
> Private Sub Combo6_AfterUpdate()
> FilterList
> End Sub
>
> Private Sub Combo8_AfterUpdate()
> FilterList
> End Sub
>

[belajar-access] tanya stored procedure

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 29, 2009 9:46 AM
Subject: Re: [belajar-access] tanya stored procedure


>
>
> Jangan dicampur aduk.
> Sekali lagi, topik perbedaan performance bukan pada model query/store
procedure, tetapi kepada engine database-nya.
> Kalau anda pakai client-server semacam SQL Server, maka proses selalu di
kerjakan di server, baik sproc maupun sql text. Hasilnya saja yang dikirim
ke client.
> Kalau anda pakai file-server MS Access mdb, maka proses filter dilakukan
di client, jadi semua row di kirim dari file share ke client, baru nanti
client yang proses filternya.
>
> Contoh yang anda berikan sama-sama jalan di SQL Server bukan ? baik pake
sproc atau sql text. Hasilnya tetap sama, cuma record terfilter saja yang
dikirim ke client adp.
>
> Aksan Kurdin
>
>
>
> Nana Supriatna Access wrote:
>
>
> Seharusnya iya.. Mungkin para suhu bisa memeriksa kode yg ditulis (Mas :
Aksan, MBA, Haer, Opy, Private Access, SWS dll)
> Prinsipnya SP mirip dengan query yang dijalankan di sisi server, yang
diambil oleh client cuma hasilnya .
> FE apapun yg dipakai SPnya tetap sama, cara kerjanya juga sama.
> Cobalah buat SP dengan database yg besar, misalkan 100 ribu record lalu
bandingkan hasilnya.
>
>
>
> Salam
>
>
> Nana
>
>
>
> ----- Original Message -----
> From: HENDRA
> To: belajar-access@yahoogroups.com
> Sent: Tuesday, July 28, 2009 11:06 PM
> Subject: RE: [belajar-access] tanya stored procedure
>
>
>
>
> Ok. Saya sudah coba dengan kode demikian sudah bisa untuk mengeksekusi
sp dan mengisinya ke recordset
>
>
> Dim CMD As New ADODB.Command
>
> Dim RST As New ADODB.Recordset
>
> Dim KODE As String
>
>
> CMD.CommandText = "spSTOCK"
>
> CMD.CommandType = adCmdStoredProc
>
> CMD.ActiveConnection = CurrentProject.Connection
>
>
>
>
> KODE = Me.Text2.Value
>
>
> Set RST = New ADODB.Recordset
>
>
> RST.Open CMD.Execute(, KODE)
>
>
>
> Set CMD = Nothing
>
> Set RST = Nothing
>
>
>
> Apakah cara saya ini sudah betul? Maksudnya apa cara saya ini hanya
menarik data sejumlah data yg sesuai dengan parameter saja? Jadi kl data yg
cocok hanya 4 data dr 4 juta data, yg ditarik hanya 4 data saja? Apakah
berarti cara ini lebih cepat prosesnya drpd cara sbb :
>
>
> Dim RST2 As ADODB.Recordset
>
> Set RST2 = New ADODB.Recordset
>
> RST2.Open "SELECT * from tblbarang where kode_barang = '"
me.text2.value "' ", CurrentProject.Connection, adOpenStatic,
adLockOptimistic
>
>
>
>
> Mohon pencerahannya dr para master , terima kasih
>
>
>
>
>
>
> --------------------------------------------------------------------------
--
>
> From: belajar-access@yahoogroups.com
[mailto:belajar-access@yahoogroups.com] On Behalf Of Nana Supriatna Access
> Sent: Tuesday, July 28, 2009 6:27 PM
> To: belajar-access@yahoogroups.com
> Subject: Re: [belajar-access] tanya stored procedure
>
>
>
>
> Mas Supreme..
>
>
> Coba liat di TAB data pada Form (mode design), disitu ada Input
Parameters ?
>
> Kalau ada coba masukkan parameter yg diinginkan. Contohnya sbb:
>
>
> @TxtItem=Forms!Frm_PencarianBarang!Txtitem
>
>
> Coba dulu Mas, kalau ada kesulitan tinggal sampaikan.
>
>
>
> Salam
>
>
>
> Nana
>
>
>
>
> ----- Original Message -----
>
> From: suprememgs
>
> To: belajar-access@yahoogroups.com
>
> Sent: Tuesday, July 28, 2009 2:00 PM
>
> Subject: [belajar-access] tanya stored procedure
>
>
>
>
> saya sudah buat sp contohnya select * from tblbarang where
kode_barang = @kode
>
> nah kemudian bgm cara mempassing parameter ke sp itu, agar pas buka
form tidak muncul box yg minta diinput kode? terima kasih.

[belajar-access] Re: Belajar Access

----- Original Message -----
From: "suprememgs" <hendragunadi@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 29, 2009 11:08 AM
Subject: [belajar-access] Re: Belajar Access


Coba pake ADO

Dim rst as new adodb.recordset
Set rst = new adodb.recordset

Rst.open "select noid,nama, alamat from identitas where noid ='"&
form_form1.text0 &"' ", CurrentProject.Connection, adOpenStatic,
adLockOptimistic

Jika hanya 1 data saja bisa lgs anda masukkan ke textbox misal
Me.txtnama = rst!nama
Me.txtalamat = rst!alamat

Jika lebih dr 1 maka anda harus pilih salah satu data ato bisa seperti ini

Rst.movefirst
Do while not rst.eof
(masukkan kode untuk menulis data anda ke listbox ato combobox dll disini)
Rst.movenext
Loop

semoga membantu

---

Tuesday, July 28, 2009

[belajar-access] tanya stored procedure

----- Original Message -----
From: "HENDRA" <hendragunadi@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, July 28, 2009 11:06 PM
Subject: RE: [belajar-access] tanya stored procedure


> Ok. Saya sudah coba dengan kode demikian sudah bisa untuk mengeksekusi sp
> dan mengisinya ke recordset
>
>
>
> Dim CMD As New ADODB.Command
>
> Dim RST As New ADODB.Recordset
>
> Dim KODE As String
>
>
>
> CMD.CommandText = "spSTOCK"
>
> CMD.CommandType = adCmdStoredProc
>
> CMD.ActiveConnection = CurrentProject.Connection
>
>
>
>
>
>
>
> KODE = Me.Text2.Value
>
>
>
> Set RST = New ADODB.Recordset
>
>
>
> RST.Open CMD.Execute(, KODE)
>
>
>
>
>
> Set CMD = Nothing
>
> Set RST = Nothing
>
>
>
>
>
> Apakah cara saya ini sudah betul? Maksudnya apa cara saya ini hanya
menarik
> data sejumlah data yg sesuai dengan parameter saja? Jadi kl data yg cocok
> hanya 4 data dr 4 juta data, yg ditarik hanya 4 data saja? Apakah berarti
> cara ini lebih cepat prosesnya drpd cara sbb :
>
>
>
> Dim RST2 As ADODB.Recordset
>
> Set RST2 = New ADODB.Recordset
>
> RST2.Open "SELECT * from tblbarang where kode_barang = '"
> me.text2.value "' ", CurrentProject.Connection, adOpenStatic,
> adLockOptimistic
>
>
>
>
>
>
>
> Mohon pencerahannya dr para master , terima kasih

[belajar-access] Re: find record menggunakan field

----- Original Message -----
From: "Nana Supriatna Access" <nanasupriatna.access@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, July 28, 2009 10:19 AM
Subject: Re: [belajar-access] Re: find record menggunakan field


Mas Hendra kenapa gak pakai Store Procedure ?

----- Original Message -----
From: HENDRA
To: belajar-access@yahoogroups.com
Sent: Tuesday, July 28, 2009 8:22 AM
Subject: RE: [belajar-access] Re: find record menggunakan field


Jadi maksudnya mas aksan kl contoh kita pake adp begini kira2? Mohon
dikoreksi

Dim RST2 As ADODB.Recordset
Set RST2 = New ADODB.Recordset
RST2.Open "SELECT * from tblbarang ", CurrentProject.Connection,
adOpenStatic, adLockOptimistic

trus bgm kita memfilter2 data yg sudah di download ke comp client?
Combobox1.rowsource = ????? (bgm contoh memfilter nya?) terima kasih

Sunday, July 26, 2009

[belajar-access] Re: implementasinya agak aneh

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, July 26, 2009 3:58 AM
Subject: Re: [belajar-access] Re: implementasinya agak aneh


> biar lebih seru ini saya kirimkan file berdasarkan ide bang Aksan.
> agak di modif sedikit tanpa tabel temporary.
> dan biar beda dikit - pake for next untuk loopingnya.
> ini adalah langkah pertama untuk jadi asisten bang Aksan he he he
> (ayo galang petisi ....)
>
> salam hangat dan jabat erat,
> MBA
>
>
> ----- Original Message -----
> From: "davidmontung" <davidmontung@yahoo.co.id>
> To: <belajar-access@yahoogroups.com>
> Sent: Saturday, July 25, 2009 06:15
> Subject: [belajar-access] Re: implementasinya agak aneh
>
>
> > Mas Aksan, you are absolutely the best.
> > Sy juga sempat nanya ke milist luar dan ternyata jawaban anda lebih
> > akurat.
> > Harusnya anda dapat gelar mvp karena anda sangat layak untuk itu. sekali
> > lagi terima kasih.
> >
> > Best Regards
> > David
> >
> > --- In belajar-access@yahoogroups.com, aksan kurdin <aksan.kurdin@...>
> > wrote:
> >>
> >> anda terpaksa harus bermain temporary table dan sedikit vba.
> >> dari query anda, buang ke tabel temporary semisal:
> >>
> >> delete * from tblTemp
> >>
> >> insert into tblTemp(nama,[jum-1],harga,[tot-1])
> >> select nama, [jum-1], 0 as harga, 0 as [tot-1]
> >> from qsAnu
> >>
> >> lalu dengan vba anda bisa looping untuk memberikan harga dan totalnya.
> >> langkah pertama adalah mengambil nilai awal harga untuk baris pertama,
> >> selanjutnya lakukan looping untuk mengupdate field harga dan total.
> >> Langkah terakhir, buka report yang table-base-nya adalah tblTemp.
> >>
> >> Mudah2an dipahami, kode belum di tes. Tarik idenya saja.
> >>
> >> Sub FillHargaTotal()
> >> On Error GoTo errHandle
> >>
> >> Dim harga As Double
> >> harga = InputBox(prompt:="Masukkan insial harga awal untuk baris
> >> pertama", Title:="Harga awal", Default:="0")
> >>
> >> Dim db As DAO.Database
> >> Set db = currentdb
> >>
> >> Dim rs As DAO.Recordset
> >> Set rs = db.OpenRecordset("tblTemp", dbOpenDynaset)
> >>
> >> rs.MoveFirst
> >> Do While Not td.EOF
> >> rs.Edit
> >> rs("Harga") = harga
> >> rs("[total-1]") = rs("[jum-1]") * harga
> >> rs.Update
> >>
> >> harga = rs("[total-1]")
> >> rs.MoveNext
> >> Loop
> >> rs.Close
> >> Set rs = Nothing
> >> Set db = Nothing
> >>
> >> errHandle:
> >> Beep
> >> MsgBox prompt:=Err.Number, Button:=vbOK + vbCritical,
> >> Title:="Error# " & Err.Number
> >> Set rs = Nothing
> >> Set db = Nothing
> >> End Sub
> >>
> >> aksan kurdin
> >>

[belajar-access] find record menggunakan field

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, July 26, 2009 4:42 AM
Subject: Re: [belajar-access] find record menggunakan field


> kalau pakai form biasanya tinggal mengeset record source form / row
source
> suatu list.
> atau pakai filter
>
> misalnya, kalau dari form - buat teks box, misalnya:
>
> me.filter="[Nama]='anang'"
> me.filteron=true
> akan memfilter semua baris / record yang kolom Namanya anang /ANANG/Anang
>
> kalau ingin yang hanya mengandung kata tertentu seperti : an , terus
keluar
> dian, ana, pian dst gunakan
> like
> me.filter="[Nama]=like '*anang*'"
> me.filteron=true
>
> atau di set recordsource sbb:
>
> me.recordsource = "select * from tblAnu where nama = '" & teksfilter.value
&
> "'"
> me.requery
>
> kalau untuk yang mengandung kata - sama dgn filter gunakan like
> me.recordsource = "select * from tblAnu where nama like '*" &
> teksfilter.value & "*'"
> me.requery
>
> btw, saya tidak mengerti kebutuhan anda yang mana.
> mudah2-an bermanfaat.
>
> salam hangat dan jabat erat,
> MBA

[belajar-access] Bls: How To Calculate Last Record in Query

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, July 26, 2009 2:14 AM
Subject: Re: [belajar-access] Bls: How To Calculate Last Record in Query


mas Rudy. Terlampir adalah implementasi ide sbb.

1. intinya ada pada report Simulasi PickList by Item - toExecute. Jalankan
report tsb . dia akan menjalankan rutin sbb:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Qty_Issue = 0 Then
CurrentDb.Execute "UPDATE wo_update set blnShow=false where ID=" &
txtID.Value, dbFailOnError
Else
CurrentDb.Execute "UPDATE wo_update set blnShow=true where ID=" &
txtID.Value, dbFailOnError
End If

End Sub

2. jadi terlihat bahwa di tabel wo_update ada field bernama blnShow.
diupdate apabila qty_Issue=0 bernilai true dan selainnya bernilai false.
3. di recordsource report Simulasi PickList by Item saya tambahkan criteria
blnShow=true.

Mudah-mudahan ini yang dimaksud.

Salam hangat dan jabat erat,
MBA


[belajar-access] Membatasi jumlah record yang muncul

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, July 26, 2009 12:55 AM
Subject: Re: [belajar-access] Membatasi jumlah record yang muncul


> Saudara Himmah,
> Silahkan gunakan seperti contoh di lampiran.
> catatan, taruh pagebreaknya mepet batas bawah section detail.
>
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> Dim noHide
> noHide = 0
> If Text10.Value < 26 Then
> noHide = Text10.Value
> PageBreak9.Visible = (noHide = 25)
> Text12.Value = noHide
> Else
> noHide = Text10.Value - 25
> PageBreak9.Visible = noHide Mod 35 = 0
> Text12.Value = IIf(noHide Mod 35 = 0, 35, noHide Mod 35)
> End If
>
> End Sub
>
> Salam hangat dan jabat erat,
> MBA

Friday, July 24, 2009

[belajar-access] Re: implementasinya agak aneh

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, July 24, 2009 5:39 PM
Subject: Re: [belajar-access] Re: implementasinya agak aneh


anda terpaksa harus bermain temporary table dan sedikit vba.
dari query anda, buang ke tabel temporary semisal:

delete * from tblTemp

insert into tblTemp(nama,[jum-1],harga,[tot-1])
select nama, [jum-1], 0 as harga, 0 as [tot-1]
from qsAnu

lalu dengan vba anda bisa looping untuk memberikan harga dan totalnya.
langkah pertama adalah mengambil nilai awal harga untuk baris pertama,
selanjutnya lakukan looping untuk mengupdate field harga dan total.
Langkah terakhir, buka report yang table-base-nya adalah tblTemp.

Mudah2an dipahami, kode belum di tes. Tarik idenya saja.

Sub FillHargaTotal()
On Error GoTo errHandle

Dim harga As Double
harga = InputBox(prompt:="Masukkan insial harga awal untuk baris
pertama", Title:="Harga awal", Default:="0")

Dim db As DAO.Database
Set db = currentdb

Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("tblTemp", dbOpenDynaset)

rs.MoveFirst
Do While Not td.EOF
rs.Edit
rs("Harga") = harga
rs("[total-1]") = rs("[jum-1]") * harga
rs.Update

harga = rs("[total-1]")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing

errHandle:
Beep
MsgBox prompt:=Err.Number, Button:=vbOK + vbCritical,
Title:="Error# " & Err.Number
Set rs = Nothing
Set db = Nothing
End Sub

aksan kurdin


Thursday, July 23, 2009

[belajar-access] How To Calculate Last Record in Query

----- Original Message -----
From: "edi rosadi" <edirosadie@yahoo.com.sg>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, July 23, 2009 5:11 PM
Subject: Re: [belajar-access] How To Calculate Last Record in Query


saya bukan pakar, tapi boleh ya coba jawab....

summary-nya lakukan direportnya saja :
- buat textbox, name : txtQty, control source : Qty, dengan asumsi Qty
adalah nama field.
- buat textbox baru, control source : =[txtQty], running sum : overall

salam,
edi

Monday, July 20, 2009

[belajar-access] Re: form parent dan child

----- Original Message -----
From: "HENDRA" <hendragunadi@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, July 20, 2009 5:49 PM
Subject: RE: [belajar-access] Re: form parent dan child


> Misal saya asumsikan nama form nya frmNOTA dengan subform nya bernama
> frmNOTAsubform. Combo box tipe barang yg ada di main form saya asumsikan
> cbobarang, dan combo box barang yg ada di subform saya asumsikan namanya
> cbobarangsubform. Juga saya asumsikan nama table tempat menyimpan data
> barang adalah tblBARANG, dan field TIPE BARANG namanya adalah TIPE_BARANG
>
>
>
> Anda masukkan saja kode di cbobarang_afterupdate ato di
frmNOTAsubform_enter
> kira2 begini :
>
>
>
> Form_frmNOTAsubform.cbobarangsubform.RowSource = "SELECT * FROM tblBARANG
> WHERE TIPE_BARANG = '" & Me.cbobarang.Value & "'"
>
>
>
> Semoga membantu
>

Friday, July 17, 2009

[belajar-access] Peringatan duplikasi data

----- Original Message -----
From: "exz@nt" <exzant@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, July 17, 2009 8:04 PM
Subject: Re: [belajar-access] Peringatan duplikasi data


mo coba jawab
misal yg dicek field NoSurat
misal nama tabel Surat

Private Sub NoSurat_AfterUpdate()
If DCount("NoSurat", Surat, NoSurat.Value) > 0 Then
MsgBox "Maaf, No Surat sudah ada"
NoSurat.SetFocus
End If
End Sub

CMIIW..

salam,
exz@nt


Thursday, July 16, 2009

[belajar-access] Menu Bar and another question..

----- Original Message -----
From: "Roland" <roland@alkitab.or.id>
To: <belajar-access@yahoogroups.com>; <idwan_rmk@yahoo.co.id>
Sent: Thursday, July 16, 2009 3:14 PM
Subject: RE: [belajar-access] Menu Bar and another question..


> Untuk pembuatan menu bertingkat, prosesnya...
>
> 1. Buat New Menu terlebih dahulu
> Tools > Customize
> 2. pada Tab "Commands" > Categories pilih "New Menu"
> 3. Drag ke lokasi Menu Barnya..
> 4. lalu Atur-atur deh yang akan ditampilkan..
> 5. Selesai..
>
> Untuk pembuatan Sub Menu, prosesnya sama saja dengan diatas..
>
>
> salam,
> Roland
>
>
>
>
> -----Original Message-----
> From: IdwanATuharea [mailto:idwan_rmk@yahoo.co.id]
> Sent: Thursday, July 16, 2009 14:26
> To: belajar-access@yahoogroups.com
> Subject: RE: [belajar-access] Menu Bar and another question..
>
>
> Mas Roland,
>
> Thanks banget....kalo boleh saya mo tanya lagi (gak mesti mas
Roland
> yang jawab, yang lain juga boleh)..bagaimana kalo kita mo bikin Menu Bar ,
> dimana didalam submenu ada submenu lagi ? misalnya di menu LAPORAN
> didalamnya submenu LAPORAN PENJUALAN begitu kita pilah muncul lagi submenu
> HARIAN dan BULANAN.
>
> Thanks,
> Idwan
> =============
> --- Pada Kam, 16/7/09, Roland <roland@alkitab.or.id> menulis:
>
> Dari: Roland <roland@alkitab.or.id>
> Judul: RE: [belajar-access] Menu Bar
> Kepada: belajar-access@yahoogroups.com, idwan_rmk@yahoo..co.id
> Tanggal: Kamis, 16 Juli, 2009, 8:34 AM
>
>
>
>
> pada properties form yang akan diset dialog dirubah:
> border style= dialog (tab format)
> pop up = yes (tab other)
>
> salam,
> roland
>
>
>
>
> -----Original Message-----
> From: IdwanATuharea [mailto:idwan_ rmk@yahoo. co.id]
> Sent: Wednesday, July 15, 2009 17:36
> To: Belajar MsAccess
> Subject: [belajar-access] Menu Bar
>
>
> Dear All,
>
> Saya sedang buat Aplikasi dengan konsep Menu Bar, dimana
> setiap aplikasi ini dibuka ukurannya maximize. Nah masalahnya adalah
setiap
> saya masuk ke salah satu menu yang ada di menu Bar tersebut misalnya
LAPORAN
> dengan submenu LAPORAN PENJUALAN hasilnya selalu MAXIMIZE, padahal
designnya
> hanya kotak dialog kecil untuk masukan range tanggal laporan, mohon
> pencerahannya agar tetap seukuran kotak dialog ?
>
> Thanks,
> Idwan

[belajar-access] Membatasi jumlah record yang muncul

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, July 16, 2009 5:57 PM
Subject: Re: [belajar-access] Membatasi jumlah record yang muncul


biasanya begini:

tambahkan satu textbox. isi control source dengan =-1, running sum =
overall, namakan txtNo
bikin visible = false
tambahkan satu pagebreak - namakan pagebreak1 taruh di section detail mepet
atas.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

With PageBreak1
If txtNo.Value Mod 25 = 1 And txtNo.Value > 1 Then
.Visible = True
Else
.Visible = False
End If
End With
End Sub


[belajar-access] username

----- Original Message -----
From: "Muntahar" <eyoung24@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, July 16, 2009 3:08 PM
Subject: Re: [belajar-access] username


Sub ComputerInfo()
Debug.Print "User Logon : " & Environ("USERNAME")
Debug.Print "computer Name : " & Environ("USERDOMAIN")

End Sub


[belajar-access] Menu Bar

----- Original Message -----
From: "Roland" <roland@alkitab.or.id>
To: <belajar-access@yahoogroups.com>; <idwan_rmk@yahoo.co.id>
Sent: Thursday, July 16, 2009 8:34 AM
Subject: RE: [belajar-access] Menu Bar


> pada properties form yang akan diset dialog dirubah:
> border style= dialog (tab format)
> pop up = yes (tab other)
>
> salam,
> roland

Friday, July 3, 2009

[belajar-access] terbilang in English...

----- Original Message -----
From: "Ivan Leonardo" <ivan@pttdp.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, July 03, 2009 1:05 PM
Subject: Re: [belajar-access] terbilang in English...


> Campur nih sama yg indo, cari yang terbil_eng
>
> Option Compare Database
>
> Function TERBIL_INDO(ByVal Angkanya)
> Dim Temp
> Dim Rupiahnya, Sennya
> Dim DecimalPlace, Count
>
> ReDim place(9) As String
> ' untuk nilai count=count+1, Angkanya dibagi atas 3 digit
> place(2) = "RIBU "
> place(3) = "JUTA "
> place(4) = "MILYAR "
> place(5) = "TRILYUN "