/* */

Thursday, September 30, 2010

Re: [belajar-access] No urut Form [1 Attachment]

<*>[Attachment(s) from Deni Agus included below]

saat kode
Sequence: DCount("Nama","TblName","Nama <='" & [Nama] & "'")
saya masukkan di query. maka ada peringatan kesalahan
"the expression you entered contains invalid syntax"

kira'' dmana kesalahannya ya?

<*>Attachment(s) from Deni Agus:

[belajar-access] Finger print

Dear all,
Ada yg punya sdk untuk finger print?
Blh share dong..

Terima kasih,
Yd
#Alhamdulillah#

Bls: Bls: Bls: [belajar-access] Re: Antrian

:)
maunya juga begitu, entar shareware-nya kasih aja ke epilambret untuk demo, kan minta prototipe. entar tinggal adu harga aja ama punya kang erwin, siapa lebih mahal ...

heheheheheh..... :P

aksan kurdin
ps. epilambret udah bikin lo ..... (mode sotoy)

Bls: Bls: Bls: [belajar-access] Re: Antrian



hihihi winsock kan dari vb6, mungkin udah uzur :)
untung masih pake access 2003 :)

ayo kang......... pake bigspped ,bisa di pake untuk chat, lempar data, lempar text
dan mungkin .......bisa lempar "Rp" ke kantong akang :) hehehe joke mode
Best regard
Erwin Sugiawan

Bls: Bls: [belajar-access] Re: Antrian

ok,
sekarang siapa yang mau ngoprek nih ?

hehehehe....
sumber mentah sudah ada,

ayo ... yang punya persoalan semula, bagaimana ?


kang erwin,
winsock juga gak bisa di access 2007 .... :(

aksan kurdin

Bls: Bls: [belajar-access] Re: Antrian



Bang.... emang ngak muncul di control... di aktifkan lewat dll

ini scrip nya dalam form

Option Compare Database

Public WithEvents SockLib As bsSocketLibrary.SocketLibrary
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Dim CallHandle As Long 'Handle to the calling socket
Dim UpSock As Long 'Handle to the uploading socket
Dim DownSock As Long 'Handle to the downloading socket
Dim UpFile As Long 'Handle to the uploaded file
Dim DownFile As Long 'Handle to the downloaded file
Dim UpCount As Long 'Number of the uploaded bytes so far
Dim DownCount As Long 'Number of the downloaded bytes so far
Dim UpSize As Long 'Size of the uploaded file
Dim DownSize As Long 'Size of the downloaded file
Dim UpName As String 'Name of the uploaded file
Dim DownName As String 'Name of the downloaded file
Dim DownPath As String 'Path to the downloaded file

Bls: [belajar-access] Re: Antrian

sayang sekali untuk BIGSPEED tidak muncul di control activex access 2007.... :(


aksan kurdin

[belajar-access] Re: export import data table transaksi

> > "t1h","001","20090801","150000"
> > "t1d","001","kode001","5","100","500"


sederhana saja harusnya,
select case arr(0)
case "t1h" : call procedure_untuk_insert_tabel1h(arr(1),arr(2),arr(3))

case "t1d" : call procedure_untuk_insert_tabel1detail(arr(1),arr(2),arr(3),arr(4),arr(5))

case ...

end select

ayo di coba mas rahmat, pasti sudah nemulah idenya.....


aksan kurdin

--- In belajar-access@yahoogroups.com, "rahmat" <rahmat02@...> wrote:
>
> kalau pak/mas aksan atau rekan yg lain ada waktu mungkin bisa di bagi ilmunya secara lengkap??
> petunjuk sebelunya juga sudah bisa saya gunakan tapi kalo ada yg lebih OK bisa juga dicoba....
>
> terimakasih
> rahmat

[belajar-access] Re: export import data table transaksi

kalau pak/mas aksan atau rekan yg lain ada waktu mungkin bisa di bagi ilmunya secara lengkap??
petunjuk sebelunya juga sudah bisa saya gunakan tapi kalo ada yg lebih OK bisa juga dicoba....

terimakasih
rahmat

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> Selain daripada bentuk file teks yang anda kerjakan sekarang, masih
> ada model lain yang pernah saya lihat, terutama dari perusahaan
> ekspedisi (mas taufik nih jagoannya).
> model yang diterapkan adalah setiap baris teks mewakili satu record dari
> tabel tertentu. Tabel yang dirujuk ditentukan dari kode yang diletakkan
> di setiap awal baris.
> contoh pengkodean untu table1_h : t1h dan table1_det : t1d, maka bentuk
> file teksnya adalah:
> "t1h","001","20090801","150000"
> "t1d","001","kode001","5","100","500"
> "t1d","001","kode002","2","100","200"
> "t1d","001","kode003","4","100","400"
>
> dengan cara ini, mestinya kodingnya lebih sederhana.
>
>
> aksan kurdin

Bls: [belajar-access] Re: Antrian



Untuk winsock sebaik nya mempergunakan bigspeed dari http://www.bigspeed.net/index.php?page=bssocklib
hasil nya lebih baik dan tidak pusing. contoh program sudah ada disana.

dan pasti nya sudah sangat REAL TIME :)
note :
1. jangan lupa melakukan refensi dll
2. untuk versi gratis bisa di gunakan sampai dgn 5 komputer
3. kalo mau lebih bayar 150 $

kalo mau TETAP pake winsock referensi nya ada di sini
http://support.microsoft.com/kb/163999
note :
1. jgn lupa meletakkan object winsock nya di dalam form ms.access
2. winsock jika di gunakan dalam access TIDAK bisa di array beda dgn vb

program winsock / bigspped socket tidak membutuhkan refresh data, krn object tersebut sudah ada event on receive

Best regard
Erwin Sugiawan

[belajar-access] Re: Antrian

rekan2, ada yang bisa bantu kasus ini dengan semacam winsock programming atau sejenisnya yang bisa di terapkan di access ?
selain antrian ini, juga bisa jadi contoh adalah aplikasi biling warnet.


aksan kurdin

[belajar-access] Re: Pusing buat report

Kita bisa select data dari tabel lain sebagai field dalam satu query melalui sub query, dan tampaknya untuk menghindari penggunaan temp. table, dan cukup dengan satu query saja, anda harus belajar menggunakannya.

perhatikan query ini yang akan jadi query-based untuk report seperti di excel:

SELECT P.NAMA, P.NIPBR, P.NIPLM, P.T4LHR, P.TGLLHR, P.JK, P.AGAMA,
(SELECT TOP 1 NOSK FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS NOSK_ANGKAT,
(SELECT TOP 1 TGLSK FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS TGLSK_ANGKAT,
(SELECT TOP 1 GOLID FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS GOL_ANGKAT,
(SELECT TOP 1 GOL.Pangkat FROM GOL INNER JOIN SK ON GOL.GolId = SK.GOLID WHERE SK.NIPBR = P.NIPBR ORDER BY SK.TGLSK) AS PANGKAT_ANGKAT,
(SELECT TOP 1 TMT FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS TMT_ANGKAT,
(SELECT TOP 1 MKTH FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS MKTH_ANGKAT,
(SELECT TOP 1 MKBL FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS MKBL_ANGKAT,
(SELECT TOP 1 NOSK FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS NOSK_AKHIR,
(SELECT TOP 1 TGLSK FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS TGLSK_AKHIR,
(SELECT TOP 1 GOLID FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS GOL_AKHIR,
(SELECT TOP 1 GOL.Pangkat FROM GOL INNER JOIN SK ON GOL.GolId = SK.GOLID WHERE SK.NIPBR = P.NIPBR ORDER BY SK.TGLSK DESC) AS PANGKAT_AKHIR,
(SELECT TOP 1 TMT FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS TMT_AKHIR,
(SELECT TOP 1 MKTH FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS MKTH_AKHIR,
(SELECT TOP 1 MKBL FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS MKBL_AKHIR
FROM PEGAWAI AS P


ok, coba copy paste query tersebut ke query baru dan jalankan. Anda melihat hasilnya adalah nama pegawai disertai informasi pengangkatan dan pangkat terakhir.
setiap kolom untuk 'pengangkatan sebagai cpns' adalah merupakan field sub query. sub query ini akan memfilter tabel yang dibutuhkan berdasarkan kriteria pada row saat itu berada.
logika yang saya pergunakan untuk informasi pengangkatan adalah tabel SK di sort by TGLSK menaik untuk pegawai di row tabel pegawai yang saat itu cursor berada, dan tarik row paling atas saja (tgl terkecil)


(SELECT TOP 1 NOSK FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK) AS NOSK_ANGKAT,

logika yang sama juga untuk informasi pangkat terakhir, informasi yang diambil adalah dari tabel SK di urut berdasarkan tanggal menurun, dan diambil row paling atas saja untuk pegawai yang ditunjuk kursor (tgl terbesar ada di atas)

(SELECT TOP 1 NOSK FROM SK WHERE NIPBR = P.NIPBR ORDER BY TGLSK DESC) AS NOSK_AKHIR,


cukup sampai disini saya beri contoh, silakan terapkan cara yang sama untuk jabatan terakhir dan pendidikan.


aksan kurdin


--- In belajar-access@yahoogroups.com, Jarjit Aco <jirjit81@...> wrote:
>
> Dear Master Access,
> nanya lagi berikut ada aplikasi sederhana (newbie yang buat nich, terlampir),
> bagaimana yach buat reportnya seperti file contoh di excel (terlampir juga).
> soalnya udah mutar-mutar gga bisa juga
> * apa dibuatkan tabel temporary ato pake query yach ?, trus gimana caranya ?
> mohon bimbingan master skalian.
>
> thank's
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

Re: [belajar-access] report



sebaiknya anda sertakan sampel file yang mau 'di-oprek' tersebut.
biasanya member kita malas bikin contoh, tapi kalau dikasih file yang mau di oprek, pada rajin tuh :)

aksan kurdin



On 9/28/2010 11:09 AM, abdurrahman auf wrote:
para suhu,
saya ada masalah dalam membuat report/Label, dimana maksimum detailnya harus 7 baris,
jika datanya lebih dari 7, akan jadi 2 hal, maka di hal 1, harus muncul subtotalnya, baru di halaman berikutnya
baru muncul totalnya..
help me ya.
Auf.




__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

[belajar-access] Re: File untuk Application Icon agar menyesuaikan dengan folder file Access

dari bukunya bang haer (MAPDDSS):

currentproject.properties.add "AppIcon", currentproject.path & "\icon.ico"

coba deh, bisa gak ?


aksan kurdin

[belajar-access] Re: Mohon Bantuan - Membuat Laporan

query design anda coba switch ke sql view, lalu tuliskan sql teksnya di situ.

contoh paling mudah, anda buat dulu query 1 lewat design view biar mudah, lalu setelah itu switch ke sql view
buat lagi query2 dari design view, lalu switch ke sql view
setelah itu buat query baru, switch ke sql view, lalu copy sql text query 1, tempel ke query baru, tambahkan klause union all, lalu copy text sql dari query 2, lalu tempelkan ke bawah union all dari query baru, save query baru, perhatikan tanda titik koma di hapus saja, lalu coba jalankan.

aksan kurdin

ps. cara dasar membuat query bisa anda peroleh di buku-buku access yang banyak di jual di toko-toko buku. standar kok mas .....

--- In belajar-access@yahoogroups.com, kaboet 90 <stekmensi@...> wrote:
>
> Bagaimana cara menggunakan/membuat query union dari table tersebut....
>
> terimakasih.
>
>
>
> ________________________________
> From: aksankurdin <aksan.kurdin@...>
> To: belajar-access@yahoogroups.com
> Sent: Thu, September 30, 2010 9:44:53 AM
> Subject: [belajar-access] Re: Mohon Bantuan - Membuat Laporan
>
>
> == quotes ====================
> Dear all,
>
> agar terlihat rapi di arsip web yahoogroups, sebaiknya post new message untuk
> topik baru, jangan reply dari topik yang sudah ada lalu mengubah subjectnya.
>
>
> coba kunjungi :
> http://groups.yahoo.com/group/belajar-access/messages
>
> atau spesifiknya contoh di thread ini:
> http://tech.groups.yahoo.com/group/belajar-access/message/28530
>
> perhatikan, thread ini tak terlihat dari summary topic, karena merupakan
> kelanjutan dari thread 'membuat mesin pencari'
>
> moderator
> == quotes ====================
>
> anda bisa gunakan query union:
>
> select a,b,c,d from table1
> union (atau union all)
> select a,b,c,d from table2
> union
> select a,b,c,d from table3
> union
> ...
> union
> select a,b,c,d from tablen
>
> syaratnya, urutan dan tipe field yang satu kolom itu harus sama.
>
> aksan kurdin
>
> --- In belajar-access@yahoogroups.com, kaboet 90 <stekmensi@> wrote:
> >
> > Kepada semua pakar Ms. Access, mohon bantuannya.
> >
> >
> > saya mempunyai kendala dalam pembuatan laporan dari beberapa query yang sama,
> > misalkan saya mempunyai query :
> > query 1 :
> > no. nama. kelas. dll
> >
> > query 2 :
> > no. nama. kelas. dll
> >
> > dst...
> >
> > query tersebut mempunyai table yang sama, bagaimana caranya query tersebut
> >dapat
> >
> > disatukan laporannya menjadi :
> > Laporan :
> > no. nama. kelas. dll
> > isinya adalah query 1 & 2.
> >
> > Mohon bantuan dan pencerahannya.
> >
> > Terimakasih.
> >
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Re: Motong satu huruf di belakang

ada,
gunakan fungsi split

aksan kurdin

--- In belajar-access@yahoogroups.com, Cecep W <cepwahyu@...> wrote:
>
> Oh begitu ya Mas, Ok lah akan saya coba cara ini.
> tapi saya penasaran juga kalo rumus untuk motong huruf itu sebenarnya
> ada ato tidak ya Mas? kalo ada kira2 rumusnya bagaimana ya? kalo tidak
> salah dulu saya pernah liat di milis ini tapi saya tidak tau dimana
> arsipnya.
>
> Regards
> CW
> ----- Original Message -----
> From: "aksankurdin" <aksan.kurdin@...>
> To: belajar-access@yahoogroups.com
> Date: 30 September 2010 09.38
> Subject: Motong satu huruf di belakang
>
> >
> > Saran saya, kang cecep,
> > jangan main potong-potong ..., serem.
> > mending tambah satu field baru sebagai 'group', jadi querynya juga bikinnya enak.
> >
> > Nanti kan tidak perlu semua makanan harus kata depannya 'makanan' semua, tetapi bisa saja berbeda, karena sudah ada field group 'makanan', maka penggolongannya tetap lancar.
> >
> > agar lebih konsisten, field group tersebut di buatkan masternya tabel product_group, dan direlasikan dengan tabel product melalui field group tersebut. jadi field itu cukup berisi id groupnya saja.
> >
> > aksan kurdin
> > - Perlihatkan kutipan teks -
> >
> >
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Re: Motong satu huruf di belakang

Oh begitu ya Mas, Ok lah akan saya coba cara ini.
tapi saya penasaran juga kalo rumus untuk motong huruf itu sebenarnya
ada ato tidak ya Mas? kalo ada kira2 rumusnya bagaimana ya? kalo tidak
salah dulu saya pernah liat di milis ini tapi saya tidak tau dimana
arsipnya.

Regards
CW
----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Date: 30 September 2010 09.38
Subject: Motong satu huruf di belakang

>
> Saran saya, kang cecep,
> jangan main potong-potong ..., serem.
> mending tambah satu field baru sebagai 'group', jadi querynya juga bikinnya enak.
>
> Nanti kan tidak perlu semua makanan harus kata depannya 'makanan' semua, tetapi bisa saja berbeda, karena sudah ada field group 'makanan', maka penggolongannya tetap lancar.
>
> agar lebih konsisten, field group tersebut di buatkan masternya tabel product_group, dan direlasikan dengan tabel product melalui field group tersebut. jadi field itu cukup berisi id groupnya saja.
>
> aksan kurdin
> - Perlihatkan kutipan teks -
>
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

Re: [belajar-access] Re: Mohon Bantuan - Membuat Laporan



Bagaimana cara menggunakan/membuat query union dari table tersebut....
terimakasih.


From: aksankurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Thu, September 30, 2010 9:44:53 AM
Subject: [belajar-access] Re: Mohon Bantuan - Membuat Laporan

 

== quotes ====================
Dear all,

agar terlihat rapi di arsip web yahoogroups, sebaiknya post new message untuk topik baru, jangan reply dari topik yang sudah ada lalu mengubah subjectnya.

coba kunjungi :
http://groups.yahoo.com/group/belajar-access/messages

atau spesifiknya contoh di thread ini:
http://tech.groups.yahoo.com/group/belajar-access/message/28530

perhatikan, thread ini tak terlihat dari summary topic, karena merupakan kelanjutan dari thread 'membuat mesin pencari'

moderator
== quotes ====================

anda bisa gunakan query union:

select a,b,c,d from table1
union (atau union all)
select a,b,c,d from table2
union
select a,b,c,d from table3
union
...
union
select a,b,c,d from tablen

syaratnya, urutan dan tipe field yang satu kolom itu harus sama.

aksan kurdin

--- In belajar-access@yahoogroups.com, kaboet 90 <stekmensi@...> wrote:
>
> Kepada semua pakar Ms. Access, mohon bantuannya.
>
>
> saya mempunyai kendala dalam pembuatan laporan dari beberapa query yang sama,
> misalkan saya mempunyai query :
> query 1 :
> no. nama. kelas. dll
>
> query 2 :
> no. nama. kelas. dll
>
> dst...
>
> query tersebut mempunyai table yang sama, bagaimana caranya query tersebut dapat
> disatukan laporannya menjadi :
> Laporan :
> no. nama. kelas. dll
> isinya adalah query 1 & 2.
>
> Mohon bantuan dan pencerahannya.
>
> Terimakasih.
>




__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

[belajar-access] Re: Mohon Bantuan - Membuat Laporan

== quotes ====================
Dear all,

agar terlihat rapi di arsip web yahoogroups, sebaiknya post new message untuk topik baru, jangan reply dari topik yang sudah ada lalu mengubah subjectnya.

coba kunjungi :
http://groups.yahoo.com/group/belajar-access/messages

atau spesifiknya contoh di thread ini:
http://tech.groups.yahoo.com/group/belajar-access/message/28530

perhatikan, thread ini tak terlihat dari summary topic, karena merupakan kelanjutan dari thread 'membuat mesin pencari'

moderator
== quotes ====================

anda bisa gunakan query union:

select a,b,c,d from table1
union (atau union all)
select a,b,c,d from table2
union
select a,b,c,d from table3
union
...
union
select a,b,c,d from tablen

syaratnya, urutan dan tipe field yang satu kolom itu harus sama.


aksan kurdin


--- In belajar-access@yahoogroups.com, kaboet 90 <stekmensi@...> wrote:
>
> Kepada semua pakar Ms. Access, mohon bantuannya.
>
>
> saya mempunyai kendala dalam pembuatan laporan dari beberapa query yang sama,
> misalkan saya mempunyai query :
> query 1 :
> no. nama. kelas. dll
>
> query 2 :
> no. nama. kelas. dll
>
> dst...
>
> query tersebut mempunyai table yang sama, bagaimana caranya query tersebut dapat
> disatukan laporannya menjadi :
> Laporan :
> no. nama. kelas. dll
> isinya adalah query 1 & 2.
>
> Mohon bantuan dan pencerahannya.
>
> Terimakasih.
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Re: Motong satu huruf di belakang

Saran saya, kang cecep,
jangan main potong-potong ..., serem.
mending tambah satu field baru sebagai 'group', jadi querynya juga bikinnya enak.

Nanti kan tidak perlu semua makanan harus kata depannya 'makanan' semua, tetapi bisa saja berbeda, karena sudah ada field group 'makanan', maka penggolongannya tetap lancar.

agar lebih konsisten, field group tersebut di buatkan masternya tabel product_group, dan direlasikan dengan tabel product melalui field group tersebut. jadi field itu cukup berisi id groupnya saja.

aksan kurdin

--- In belajar-access@yahoogroups.com, Cecep W <cepwahyu@...> wrote:
>
> Dear pakar access semua
>
> bagaimana ya caranya motong satu huruf di belakang?
> Contoh:
> saya punya Query "QDataBarang" yg mana field2 sbb:
> Nama_Produk Jumlah
>
>
> Nama Produk ini datanya sbb:
> Nama_Produk Jumlah
> Kopi A 10
> Kopi B 20
> Kopi C 5
> Makanan A 5
> Makanan B 10
> Makanan C 30
>
>
> dari data ini saya ingin menghilangkan satu huruf di belakangnya menjadi:
> Naman_Produk Jumlah
> Kopi 35
> Makanan 45
>
> bagaimana ya caranya?
>
> Regards
> CW
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Motong satu huruf di belakang

Dear pakar access semua

bagaimana ya caranya motong satu huruf di belakang?
Contoh:
saya punya Query "QDataBarang" yg mana field2 sbb:
Nama_Produk Jumlah


Nama Produk ini datanya sbb:
Nama_Produk Jumlah
Kopi A 10
Kopi B 20
Kopi C 5
Makanan A 5
Makanan B 10
Makanan C 30


dari data ini saya ingin menghilangkan satu huruf di belakangnya menjadi:
Naman_Produk Jumlah
Kopi 35
Makanan 45

bagaimana ya caranya?

Regards
CW


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Mohon Bantuan - Membuat Laporan



Kepada semua pakar Ms. Access, mohon bantuannya.

saya mempunyai kendala dalam pembuatan laporan dari beberapa query yang sama,
misalkan saya mempunyai query :
query 1 : 
no. nama. kelas. dll

query 2 :
no. nama. kelas. dll

dst...

query tersebut mempunyai table yang sama, bagaimana caranya query tersebut dapat disatukan laporannya menjadi :
Laporan :
no. nama. kelas. dll
isinya adalah query 1 & 2.

Mohon bantuan dan pencerahannya.

Terimakasih.



__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Wednesday, September 29, 2010

Re: [belajar-access] Membuat mesin pencari



Sayang karena tidak bisa download file nya attachment nya mungkin contoh ini bisa mewakili beberapa pertanyaan tentang pembuatan pencarian:
untuk kasus bapak mungkin ditambahkan code LIKE '*" & strkrit & "*' , agar kata kunci tidak perlu semuanya dituliskan.

Private Sub CariData_Click()
On Error GoTo Err_CariData_Click
Dim strsql As String
Dim strkrit As String
Dim rsl As Recordset

strkrit = Nz(Me!Textcari1.Value, "")

Select Case Me!FRM1
Case Is = 1

 strsql = "SELECT [NoItem], [Keterangan], [JenisItem],[Satuan],[HargaPokok], [HargaJual], [QtyStock],[Note]" _
 & " FROM [QRYCariStockBarang]" _
 & " WHERE (([QRYCariStockBarang].[NoItem]) LIKE '*" & strkrit & "*')"
strsql = strsql & " ORDER BY [QRYCariStockBarang].[NoItem]"

Case Is = 2
strsql = "SELECT [NoItem], [Keterangan], [JenisItem],[Satuan],[HargaPokok], [HargaJual], [QtyStock],[Note]" _
 & " FROM [QRYCariStockBarang]" _
 & " WHERE (([QRYCariStockBarang].[Keterangan]) LIKE '*" & strkrit & "*')"
strsql = strsql & " ORDER BY [QRYCariStockBarang].[Keterangan]"


End Select
 
Sumiyanto



From: Ruchi Msaccess <ruchi_msaccess@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Mon, September 27, 2010 2:45:44 PM
Subject: [belajar-access] Membuat mesin pencari [1 Attachment]

 

Mohon bantuan rekan-rekan sekalian

Saya mencoba belajar membuat database untuk material, dan saya mengalami kendala untuk memuat sebuah mesin pencari dimana ketika kita akan mencari data cukup memasukkan kata kunci saja. Sy sudah mencoba membuat tetapi hasil yang saya buat adalah kata/kalimat yang saya masukkan harus sesuai dengan data dan tidak bisa sepenggal-sepenggal.

Misalkan saya ingin mencari semua material dengan p/n 1492-WG4, maka yang harus saya ketikkan adalah 1492-WG4. Mohon bantuannya agar ketika saya mengetikkan 1492 maka semua data dengan kata tersebut bisa muncul, entah 1492-WG4 atau 1492-A231 atau yang lainnya

Mohon bantuan dari rekan-rekan dan para master sekalian

Data terlampir

Terima Kasih
Salam




__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

[belajar-access] mohon bantuan cara membuat form pencarian dalam aplikasi access [1 Attachment]

<*>[Attachment(s) from honey muswardana included below]

Dear All para pakar access,

Saya sudah coba membuat form pencarian data menggunakan access, tetapi hasilnya
tidak sesuai harapan
apakah koding yg saya buat ada yg salah atau tata cara penulisannya yg kurang
tepat

Berikut ini saya sertakan file access yg saya coba buat, mohon masukan dan
pencerahan dari pakar access
sehingga form pencarian yg saya buat bisa berjalan normal

Atas bantuannya saya ucapkan banyak terima kasih

Best Regard
Honey Muswardana

<*>Attachment(s) from honey muswardana:


<*> 1 of 1 File(s) http://groups.yahoo.com/group/belajar-access/attachments/folder/1327396285/item/list
<*> Pencarian data dalam access.rar

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Re: form di buka dari form lain

docmd.OpenForm formname:="formB",windowmode:=acDialog

aksan kurdin

--- In belajar-access@yahoogroups.com, him mah <himmah.mlg@...> wrote:
>
> maaf, mau tanya lagi
>
> misal saya punya dua form formA dan FormB
> form B di set property Modal = No
> formB dibuka dari formA dengan menekan Command Button
>
> kira-kita kodenya seperti apa ya agar formB dapat dibuka dari formA dengan
> set Property Modal=Yes
>
> terima kasih sebelumnya
>


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] MsAccess + Scheduling...

Dear all.

barangkali ada yang punya contoh, membuat Scheduling dengan MsAccess...
tolong bisa di share, bagaimana membuatnya...

trims
Harry



------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

Re: [belajar-access] Re: export import data table transaksi



Selain daripada bentuk file teks yang anda kerjakan sekarang, masih ada model lain yang pernah saya lihat, terutama dari perusahaan ekspedisi (mas taufik nih jagoannya).
model yang diterapkan adalah setiap baris teks mewakili satu record dari tabel tertentu. Tabel yang dirujuk ditentukan dari kode yang diletakkan di setiap awal baris.
contoh pengkodean untu table1_h : t1h dan table1_det : t1d, maka bentuk file teksnya adalah:
"t1h","001","20090801","150000"
"t1d","001","kode001","5","100","500"
"t1d","001","kode002","2","100","200"
"t1d","001","kode003","4","100","400"

dengan cara ini, mestinya kodingnya lebih sederhana.


aksan kurdin

select d.notrans, d.kode, d.qty, d.harga, d.total

On 9/27/2010 8:46 PM, rahmat wrote:
 

Berhasil
setelah saya coba dengan sedikit perubahan proses export/importnya berhasil sesuai dengan yg saya harapkan, perubahan terutama pada perintah:
-export yaitu saya tambahkan rs.movenext sebelum loop dan menghilangkan perintah Print #1
-proses Import menjadi:
open "c:\import\contoh.txt" for input as #1
line input #1, strLine 'dianggap baris pertama selalu berisi "{Table1_h}"
line input #1, strLine
do while strLine<> "{Table1_det}"
arrLine = split(strLine, ",")
docmd.runsql ("INSERT INTO Table1_h (notrans, tanggal, total) VALUES('"& arrLine(0)& "', #"& arrLine(1)& "#, "& arrLine(2)& ")")
line input #1, strLine
loop

karena kalau tidak saya rubah maka text {Table1_det} akan dianggap sebagai data

MAS/PAK AKSAN TERIMAKASIH ATAS BANTUANNYA. SEMOGA TIDAK BOSAN MEMBANTU ORANG-ORANG YANG BARU BELAJAR SEPERTI SAYA
RAHMAT

--- In belajar-access@yahoogroups.com, "rahmat" <rahmat02@...> wrote:
>
>
> mas/pak aksan terimakasih atas bantuannya
> ini sanagat berguna bagi saya..akan saya coba dulu
> rahmat
> --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@> wrote:
> >
> > kita mulai dengan cara klasik
> >
> > untuk menulis ke suatu file teks, bisa dengan cara berikut:
> >
> > open "c:\export\contoh.txt" for output as #1
> > print #1, "ini akan ditulis di file contoh.txt"
> > print #1, "ini juga di baris kedua"
> > close #1
> >
> >
> >
> > Dari contoh di atas anda bisa kembangkan untuk menulis dari suatu recordset:
> >
> > set rs = currentdb.openrecordset("select notrans, tanggal, total from table1_h where tanggal = #"& tglTransaksi& #")
> > 'tglTransaksi adalah parameter
> > print #1, "{Table1_H}"
> > rs.movefirst
> > do while not rs.eof
> > print #1, rs(0)& ","& rs(1)& ","& rs(2)
> > loop
> > print #1
> >
> > set rs = currentdb.openrecordset("select d.notrans, d.kode, d.qty, d.harga, d.total from table1_det as d inner join table1_h as h on d.notrans=h.notrans where h.tanggal = #"& tglTransaksi& #")
> > 'tglTransaksi adalah parameter
> > print #1, "{Table1_det}"
> > rs.movefirst
> > do while not rs.eof
> > print #1, rs(0)& ","& rs(1)& ","& rs(2)& ","& rs(3)& ","& rs(4)
> > loop
> > print #1
> >
> > ....
> >
> >
> > Nah setelah file text terbentuk, maka sekarang bisa dikirim ke cabang
> > yang dimaksud. Nanti proses importnya menggunakan operasi baca file,
> > dengan contoh seperti :
> >
> >
> > dim strLine as string, arrLine
> > open "c:\import\contoh.txt" for input as #1
> > line input #1, strLine 'dianggap baris pertama selalu berisi "{Table1_h}"
> > do while strLine<> "{Table1_det}"
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table1_h (notrans, tanggal, total) VALUES('"& arrLine(0)& "', #"& arrLine(1)& "#, "& arrLine(2)& ")")
> > loop
> >
> > do while strLine<> "{Table2_h}"
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table1_det (notrans, kode, qty, harga, total) VALUES('"& arrLine(0)& "', '"& arrLine(1)& "', "& arrLine(2)& ","& arrLine(3)& ","& arrLine(4)& ")")
> > loop
> >
> > do while strLine<> "{Table2_det}"
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table2_h (notrans, tanggal, total) VALUES('"& arrLine(0)& "', #"& arrLine(1)& "#, "& arrLine(2)& ")")
> > loop
> >
> > do while not eof(1) 'ambil sisanya sampai end of file
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table2_det (notrans, kode, qty, harga, total) VALUES('"& arrLine(0)& "', '"& arrLine(1)& "', "& arrLine(2)& ","& arrLine(3)& ","& arrLine(4)& ")")
> > loop
> >
> > close #1
> >
> >
> >
> > catatan: kode belum saya coba, tetapi bisa di trace sendiri. yang
> > penting operasi klasik tulis baca txt filenya seperti demikian.
> > silakan di improve ..., hasilnya jangan lupa di share kembali ke milis .....
> >
> > aksan kurdin
> >
> >
> >
> > On 9/21/2010 2:20 PM, rahmat wrote:
> > >
> > > adakah yang bisa membantu atau memberikan refrensi???
> > > rahmat
> > >
> > > --- In belajar-access@yahoogroups.com
> > > <mailto:belajar-access%40yahoogroups.com>, "rahmat" <rahmat02@> wrote:
> > > >
> > > >
> > > > maunya sih dalam satu file csv
> > > > karena akan mempermudah user dalam proses export/impornya
> > > > tq
> > > > rahmat
> > > > --- In belajar-access@yahoogroups.com
> > > <mailto:belajar-access%40yahoogroups.com>, Aksan Kurdin
> > > <aksan.kurdin@> wrote:
> > > > >
> > > > > mau cara ribet atau cara gampang ?
> > > > > cara gampang, jangan di simpan dalam satu tabel csv ke empat tabel
> > > itu,
> > > > > tapi pecah jadi empat file csv
> > > > > cara ribet, dengan vba, buka file dengan operasi read, dan parsing
> > > baris
> > > > > per baris. (Duh ... kalau yang ini, nunggu waktu senggang-nya baru
> > > bisa
> > > > > ngebantuin.)
> > > > >
> > > > > aksan kurdin
> > > > >
> > > > >
> > > > > On 9/16/2010 1:48 PM, rahmat wrote:
> > > > > >
> > > > > > rekan Aksan
> > > > > > lokasi A dan B mempunyai nomer transaksi yg berbeda,
> > > > > > dan pada waktu proses import user akan memenetukan tangall
> > > transaksi
> > > > > > yang akan diimport sehingga data yg sudah diimport tidak akan
> > > diimport
> > > > > > lagi
> > > > > >
> > > > > > mohon bantuannya
> > > > > > terima kasih
> > > > > > rahmat
> > > > > > --- In belajar-access@yahoogroups.com
> > > <mailto:belajar-access%40yahoogroups.com>
> > > > > > <mailto:belajar-access%40yahoogroups.com>, Aksan Kurdin
> > > > > > <aksan.kurdin@> wrote:
> > > > > > >
> > > > > > > Selama ini yang menjadi problem klasik adalah sinkronisasi
> > > offline.
> > > > > > > mana data yang sudah di upload, mana data yang harus di tumpuk.
> > > > > > > Pertimbangkan menggunakan remote sistem untuk kasus seperti
> > > ini, atau
> > > > > > > manfaatkan tools yang ada di server 2008 seperti replika dsb-nya.
> > > > > > >
> > > > > > > Apakah A dan B melakukan transaksi yang sama ? Bisakah di
> > > setiap field
> > > > > > > header transaksi yang dilakukan di setiap tempat diberikan
> > > kode khusus
> > > > > > > yang mewakili tempat transaksi dilakukan ? semisal penomoran
> > > dokumen
> > > > > > > mungkin bisa sama, tetapi ada field cabang yang membedakan,
> > > sehingga
> > > > > > > proses upload yang dilakukan tidak akan override antara A dan B.
> > > > > > >
> > > > > > > aksan kurdin
> > > > > > >
> > > > > > > On 9/13/2010 8:17 AM, rahmat wrote:
> > > > > > > >
> > > > > > > > dear para master dan rekan semua
> > > > > > > > mohon bantuannya:
> > > > > > > > saya baru saja belajar membuat project dengan access 2007 (ADP)
> > > > > > dengan
> > > > > > > > database mssql sever 2008,
> > > > > > > > program yg saya buat dijalankan di dua tempat yang berbeda, saya
> > > > > > > > bermaksud untuk menggabungkan data ke dua tempat tersebut
> > > > > > > > dengan proses sebagai berikut:
> > > > > > > > 1. tempat A melakukan proses Export data transaksi:
> > > > > > > > 2. tempat B melakukan pross Import data transaksi dari tempat A
> > > > > > > > dan sebaliknya
> > > > > > > >
> > > > > > > > yang ingin saya tanyakan adalah:
> > > > > > > > 1. bagaimana cara me Export data dari table taransaksi ke
> > > dalam 1
> > > > > > file
> > > > > > > > CSV (ada 4 table)
> > > > > > > >
> > > > > > > > Table1_H (NoTrans,Tanggal,Total)
> > > > > > > > Table1_Det (Notrans,Kode,qty,Harga,Total)
> > > > > > > >
> > > > > > > > Table2_H (NoTrans,Tanggal,Total)
> > > > > > > > Table2_Det (Notrans,Kode, qty,Harga,Total)
> > > > > > > >
> > > > > > > > 2 bagimana cara Import file CSV hasil dari Proses Export (yg
> > > berisi 4
> > > > > > > > table taransaksi)
> > > > > > > >
> > > > > > > > sebagai gambaran mungkin seperti ini hasil yang dihasilkan
> > > proses
> > > > > > export
> > > > > > > >
> > > > > > > > {Table1_H}
> > > > > > > > "NoTrans","Tanggal","Total"
> > > > > > > > "A1","2010-1-30","1000"
> > > > > > > > {Table1_Det}
> > > > > > > > "Notrans", "Kode","qty","Harga","Total"
> > > > > > > > "A1","001","3","5000","15000"
> > > > > > > > "A1","002","1","1000","1000"
> > > > > > > >
> > > > > > > > {Table2_H}
> > > > > > > > "NoTrans","Tanggal","Total"
> > > > > > > > "A11","2010-1-30","1000"
> > > > > > > > {Table2_Det}
> > > > > > > > "Notrans", "Kode","qty","Harga","Total"
> > > > > > > > "A11","005","1","5000","5000"
> > > > > > > > "A11","004","1","1000","1000"
> > > > > > > >
> > > > > > > > terimakasih atas bantuannya
> > > > > > > >
> > > > > > > > rahmat
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > >
> > >
> >
>




__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Re: [belajar-access] Crosstab dengan data kosong



Berarti Crosstab sebaiknya tidak dijadikan data untuk report ya, karena hasilnya bisa berubah-ubah, sebaiknya langsung di sum query saja. Terima Kasih P Aksan atas pencerahannya.

2010/9/29 Aksan Kurdin <aksan.kurdin@gmail.com>
 

Dear P. Ahmad,
Untuk fix report harus dari fix query, artinya kolom2 query tidak boleh berubah (menjadi lebih banyak atau menjadi lebih sedikit). Crosstab jangan dijadikan report, mending buang ke excel.
Jika anda tetap membutuhkan hasil seperti query crosstab, maka buat kolom-kolomnya menjadi fix. Coba ganti query based report menjadi:

SELECT  	data.Bagian,  	Sum(IIf([Pendidikan]="SD",1,0)) AS SD,  	Sum(IIf([Pendidikan]="SMP",1,0)) AS SMP, 	Sum(IIf([Pendidikan]="SMA",1,0)) AS SMA,  	Sum(IIf([Pendidikan]="D1",1,0)) AS D1,  	Sum(IIf([Pendidikan]="D2",1,0)) AS D2,  	Sum(IIf([Pendidikan]="D3",1,0)) AS D3,  	Sum(IIf([Pendidikan]="S1",1,0)) AS S1,  	Sum(IIf([Pendidikan]="S2",1,0)) AS S2,  	Sum(1) AS [Total of ID] FROM data GROUP BY data.Bagian; 


aksan kurdin


On 9/29/2010 7:18 AM, Ahmad Qomaruddin wrote:
 

Terima Kasih responnya, kayaknya masih belum sesuai keinginan saya.
Pengennya kalo data yang SD diganti dengan SMP jadi data SD tidak ada,
maka reportnya jadi ga bisa dibuka. Kayaknya cari field SD tapi karena
SD tidak ada jadinya report eror. bisa diakali ga ya? Trima kasih
sebelumnya.

On 9/28/10, Cecep W <cepwahyu@gmail.com> wrote:
> apakah seperti terlampir yang dimaksud? maklum bukan master yang
> manjawab...jadi jawabanya sebisanya aja.
>
> regards
> CW
>
> Pada 28 September 2010 07.36, Ahmad Qomaruddin <ud13en@gmail.com> menulis:
>
>>
>> [Attachment(s) <#12b56bca2d371f02_TopText> from Ahmad Qomaruddin included
>> below]
>>
>> Terima kasih atas responnya, maksud saya reportnya tetap bisa dibuka
>> tapi dengan data menunjukkan angka 0. sample file terlampir
>>
>> On 9/27/10, Cecep W <cepwahyu@gmail.com <cepwahyu%40gmail.com>> wrote:
>> > coba di report Design pada even On No Data masukan code sbb:
>> >
>> > MsgBox"Data tidak tersedia",VbInformation,"Perhatian"
>> > cancel=1
>> >
>> >
>> > regards
>> > CW
>> >
>> > ----- Original Message -----
>> > From: "Ahmad" <ud13en@gmail.com <ud13en%40gmail.com>>
>> > To: belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>
>> > Date: 27 September 2010 09.36
>> > Subject: [belajar-access] Crosstab dengan data kosong
>> >
>> >>
>> >> Bagaimana cara mengakali pada waktu buat report yang berasal dari
>> >> crosstab query tapi datanya kosong?
>> >> Saya coba kalo datanya tidak ada, selalu eror tapi kalo ada reportnya
>> >> berjalan lancar.
>> >>
>> >>
>> >>
>> >
>> >
>> > ------------------------------------
>> >
>> > SPAM IS PROHIBITEDYahoo! Groups Links
>> >
>> >
>> >
>> >
>>
>> --
>> Ahmad Qomaruddin
>> Sulang Rembang
>> email : ud13en@gmail.com <ud13en%40gmail.com>
>> blog : ud13en.blogspot.com
>>
>>
>

--
Ahmad Qomaruddin
Sulang Rembang
email : ud13en@gmail.com
blog : ud13en.blogspot.com





--
Ahmad Qomaruddin
Sulang Rembang
email : ud13en@gmail.com
blog : ud13en.blogspot.com


__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Re: [belajar-access] Crosstab dengan data kosong



Dear P. Ahmad,
Untuk fix report harus dari fix query, artinya kolom2 query tidak boleh berubah (menjadi lebih banyak atau menjadi lebih sedikit). Crosstab jangan dijadikan report, mending buang ke excel.
Jika anda tetap membutuhkan hasil seperti query crosstab, maka buat kolom-kolomnya menjadi fix. Coba ganti query based report menjadi:

SELECT  	data.Bagian,  	Sum(IIf([Pendidikan]="SD",1,0)) AS SD,  	Sum(IIf([Pendidikan]="SMP",1,0)) AS SMP, 	Sum(IIf([Pendidikan]="SMA",1,0)) AS SMA,  	Sum(IIf([Pendidikan]="D1",1,0)) AS D1,  	Sum(IIf([Pendidikan]="D2",1,0)) AS D2,  	Sum(IIf([Pendidikan]="D3",1,0)) AS D3,  	Sum(IIf([Pendidikan]="S1",1,0)) AS S1,  	Sum(IIf([Pendidikan]="S2",1,0)) AS S2,  	Sum(1) AS [Total of ID] FROM data GROUP BY data.Bagian; 


aksan kurdin

On 9/29/2010 7:18 AM, Ahmad Qomaruddin wrote:
 

Terima Kasih responnya, kayaknya masih belum sesuai keinginan saya.
Pengennya kalo data yang SD diganti dengan SMP jadi data SD tidak ada,
maka reportnya jadi ga bisa dibuka. Kayaknya cari field SD tapi karena
SD tidak ada jadinya report eror. bisa diakali ga ya? Trima kasih
sebelumnya.

On 9/28/10, Cecep W <cepwahyu@gmail.com> wrote:
> apakah seperti terlampir yang dimaksud? maklum bukan master yang
> manjawab...jadi jawabanya sebisanya aja.
>
> regards
> CW
>
> Pada 28 September 2010 07.36, Ahmad Qomaruddin <ud13en@gmail.com> menulis:
>
>>
>> [Attachment(s) <#12b56bca2d371f02_TopText> from Ahmad Qomaruddin included
>> below]
>>
>> Terima kasih atas responnya, maksud saya reportnya tetap bisa dibuka
>> tapi dengan data menunjukkan angka 0. sample file terlampir
>>
>> On 9/27/10, Cecep W <cepwahyu@gmail.com <cepwahyu%40gmail.com>> wrote:
>> > coba di report Design pada even On No Data masukan code sbb:
>> >
>> > MsgBox"Data tidak tersedia",VbInformation,"Perhatian"
>> > cancel=1
>> >
>> >
>> > regards
>> > CW
>> >
>> > ----- Original Message -----
>> > From: "Ahmad" <ud13en@gmail.com <ud13en%40gmail.com>>
>> > To: belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>
>> > Date: 27 September 2010 09.36
>> > Subject: [belajar-access] Crosstab dengan data kosong
>> >
>> >>
>> >> Bagaimana cara mengakali pada waktu buat report yang berasal dari
>> >> crosstab query tapi datanya kosong?
>> >> Saya coba kalo datanya tidak ada, selalu eror tapi kalo ada reportnya
>> >> berjalan lancar.
>> >>
>> >>
>> >>
>> >
>> >
>> > ------------------------------------
>> >
>> > SPAM IS PROHIBITEDYahoo! Groups Links
>> >
>> >
>> >
>> >
>>
>> --
>> Ahmad Qomaruddin
>> Sulang Rembang
>> email : ud13en@gmail.com <ud13en%40gmail.com>
>> blog : ud13en.blogspot.com
>>
>>
>

--
Ahmad Qomaruddin
Sulang Rembang
email : ud13en@gmail.com
blog : ud13en.blogspot.com




__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Re: [belajar-access] Crosstab dengan data kosong

Terima Kasih responnya, kayaknya masih belum sesuai keinginan saya.
Pengennya kalo data yang SD diganti dengan SMP jadi data SD tidak ada,
maka reportnya jadi ga bisa dibuka. Kayaknya cari field SD tapi karena
SD tidak ada jadinya report eror. bisa diakali ga ya? Trima kasih
sebelumnya.

On 9/28/10, Cecep W <cepwahyu@gmail.com> wrote:
> apakah seperti terlampir yang dimaksud? maklum bukan master yang
> manjawab...jadi jawabanya sebisanya aja.
>
> regards
> CW
>
> Pada 28 September 2010 07.36, Ahmad Qomaruddin <ud13en@gmail.com> menulis:
>
>>
>> [Attachment(s) <#12b56bca2d371f02_TopText> from Ahmad Qomaruddin included
>> below]
>>
>> Terima kasih atas responnya, maksud saya reportnya tetap bisa dibuka
>> tapi dengan data menunjukkan angka 0. sample file terlampir
>>
>> On 9/27/10, Cecep W <cepwahyu@gmail.com <cepwahyu%40gmail.com>> wrote:
>> > coba di report Design pada even On No Data masukan code sbb:
>> >
>> > MsgBox"Data tidak tersedia",VbInformation,"Perhatian"
>> > cancel=1
>> >
>> >
>> > regards
>> > CW
>> >
>> > ----- Original Message -----
>> > From: "Ahmad" <ud13en@gmail.com <ud13en%40gmail.com>>
>> > To: belajar-access@yahoogroups.com <belajar-access%40yahoogroups.com>
>> > Date: 27 September 2010 09.36
>> > Subject: [belajar-access] Crosstab dengan data kosong
>> >
>> >>
>> >> Bagaimana cara mengakali pada waktu buat report yang berasal dari
>> >> crosstab query tapi datanya kosong?
>> >> Saya coba kalo datanya tidak ada, selalu eror tapi kalo ada reportnya
>> >> berjalan lancar.
>> >>
>> >>
>> >>
>> >
>> >
>> > ------------------------------------
>> >
>> > SPAM IS PROHIBITEDYahoo! Groups Links
>> >
>> >
>> >
>> >
>>
>> --
>> Ahmad Qomaruddin
>> Sulang Rembang
>> email : ud13en@gmail.com <ud13en%40gmail.com>
>> blog : ud13en.blogspot.com
>>
>>
>


--
Ahmad Qomaruddin
Sulang Rembang
email : ud13en@gmail.com
blog : ud13en.blogspot.com


------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

Tuesday, September 28, 2010

Re: Sudah Solve.. Bls: [belajar-access] Re: mohon bantuan function pecah angka



Semula gua sangka itu soal tes untuk calon programmer tempatmu, win ....
ealah ...
ternyata memang untuk kasus riil ...

:)


aksan kurdin


On 9/28/2010 3:45 PM, Erwin Sugiawan wrote:
 
Terima kasih semua.. udah ketemu ,Function di bawah adalah modifikasi dari function yang di buat oleh Bang Aksan.


Masalah :
1. Jumlah Order terkirim dalam 1 PO tidak boleh lebih dari 10.000 item
2. Jika jumlah Order di bagi oleh Split > 10000, maka perintah di abaikan, misalkan Jumlah Order=30000 jika di split 2 maka hasil
data(1)=10000 dan data(2) > 10000, hal ini tidak di ijinkan
3. Sesuai dengan petunjuk dari Bang Aksan, harus di mungkinkan hasil split mempunyai data yang sama, contoh
Jumlah Order 30000 di split 3 , maka data(1)=10000,data(2)=10000 dan data(3)=10000


 Public Function SplitAngka(JmlOrder As Long, JmlSplit As Long)
   
    ReDim arr(JmlSplit) As Long
    Dim i As Integer
    Dim maxNilai As Long
    Dim MaxOrder As Long
    Dim OrderRataRata As Long
 
    Randomize
    maxNilai = JmlOrder
    MaxOrder = 10000
    'Jika JmlOrder < 10k, maka MaxOrder mengikuti yang terkecil
    If JmlOrder < MaxOrder Then MaxOrder = JmlOrder
    OrderRataRata = (JmlOrder / JmlSplit)
    If OrderRataRata > MaxOrder Then
        MsgBox ("Order hasil Split harus lebih kecil dari 10 rb")
        Exit Function
    End If
   
    If OrderRataRata = MaxOrder Then
         For i = 0 To JmlSplit - 1
            arr(i) = OrderRataRata
         Next i
    Else
        For i = 0 To JmlSplit - 2
            If maxNilai > MaxOrder Then
                arr(i) = MaxOrder
            Else
                Do While True
                    arr(i) = CLng(Rnd() * (MaxOrder - (JmlSplit - 2) - 1)) + 1
                    If arr(i) > 0 And arr(i) * JmlSplit < 10000 Then Exit Do
                Loop
            End If
           
            maxNilai = maxNilai - arr(i)
            If maxNilai < MaxOrder Then MaxOrder = maxNilai
        Next
       
        arr(JmlSplit - 1) = maxNilai - arr(i)
    End If
   

   
    Dim runNilai As Long
    runNilai = 0
    For i = 0 To (JmlSplit - 1)
        Debug.Print i + 1, arr(i)
        runNilai = runNilai + arr(i)
    Next
    Debug.Print "total : " & runNilai
End Function


 
Best regard
Erwin Sugiawan






__._,_.___


SPAM IS PROHIBITED



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___