Bisa disiasati dengan menggabungkan kode dengan nama departemennya terlebih dahulu (ambil dari table kode departemen):
Mengisi combo box : While not rsdepartemen.eof() Isicombo=kode &" " &namadepartemen Cmbkodedepartemen.additem &isicombo Rsdepartemen.movenext Cara simpannya ke table : Rssystem!kodedepartemen = left(cmbkodedepartmen.text,3) Gambarannya seperti diatas. Silahkan dilengkapi syntax-nya. Mudah-mudahan membantu. Salam ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of hendra Sent: Wednesday, July 04, 2007 1:24 PM To: [email protected] Subject: Re: [indoprog-vb] cara simpan file Mas, Yohan utk yg jenis kelamin saya sdh bisa. Saya buat seperti ini. (Kalau salah tolong di koreksi) if cmbkelamin.text="Pria" then rssystem!jeniskelamin="L" elseif cmbkelamin.text="Wanita" then rssystem!jeniskelamin="P" end if Sekarang saya mau pakai dept dengan menggunakan code (Mis:001 utk IT, 002 utk HRD) Masalahnya mas yohan, dept di tmp kami byk sekali macamnya sampai 79 dept. Kalau saya buat seperti di atas, waduhhhh lama mas. Maaf mas Yohan saya ini baru dlm program jadi saya agak bingung dgn apa mas yohan maksud. Tolong kasih masukan yg sederhana aja. Thanks and best regards, Hendra P Sirait ~~~~~~~~~~~~~~~~~~~~~~~~ Office Add; PT Sentraco Garmindo Jl. Raya jati Pasar Kemis Jl. Putera Utama No.39 Tangerang Banten ----- Original Message ----- From: Yohan Widodo To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> Sent: Wednesday, July 04, 2007 12:51 PM Subject: Re: [indoprog-vb] cara simpan file mas hendra ini mungkin akan sedikit membantu coba mas hendra yang simpan adalah index data dalam combo mis misalnya data.field(" JenisKelamin" )= cbojeniskelamin.index maka nantinya akan tersimpan dalam table index saja yaitu numeric (dengan default index dalm combo adalah index -1 = kosong, 0 data ke 1, 1 data ke=2 dst.....) untuk menampilkan tinggal membalik saja cbojeniskelamin.listIndex=data.field(" JenisKelamin" ) Ok semoga membantu.. ----- Original Message ---- From: hendra <[EMAIL PROTECTED] <mailto:sir_hendra%40softhome.net> > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> Sent: Wednesday, July 4, 2007 1:14:23 PM Subject: Re: [indoprog-vb] cara simpan file Thx kang andi utk infonya dan skr sdh bisa. Tapi saya ada sedikit masalah, bgm kalau codenya byk? kan capek juga kang ngetik if..then.. elseif Kira2 solusi yg enak bgm ya. Thx buat infonya Thanks and best regards, Hendra P Sirait ~~~~~~~~~~~~ ~~~~~~~~~ ~~~ Office Add; PT Sentraco Garmindo Jl. Raya jati Pasar Kemis Jl. Putera Utama No.39 Tangerang Banten ----- Original Message ----- From: Kang Andi To: indoprog-vb@ yahoogroups. com Sent: Friday, June 29, 2007 6:24 PM Subject: Re: [indoprog-vb] cara simpan file Gunakan fungsi Left(string, Length) untuk mengambil string atau karakter sejumlah tertentu dari suatu string. misalnya data.field(" JenisKelamin" )= _ left(cbojeniskelami n.text,1) maka nanti akan terseimpan satu huruf dari combo yang terpilih untuk menampilkan kembali kedalam combo gunakan pencabangan If .. else... Jangan lupa validasinya. .. --- hendra <[EMAIL PROTECTED] .net> wrote: > > Teman2 saya mau tanyak dekit. > Saya punya database mis: karyawan dan field-nya > jenis kelamin (Perempuan dan laki2, di databse-nya > hanya codenya aja P dan L). > Di Aplikasi saya dgn menggunakan vb6, combobox yg > text-nya adalah perempuan dan laki2. Waktu saya save > di database-nya kesimpan perempuan atau laki2, bgm > cara-nya waktu saya nyimpan yg kesimpan di database > adalah code jenis kelamin aja. > Terimakasih utk masukkanya dan saya minta maaf bila > penjelasannya kurang di mengerti dan harap maklum > krn saya org baru di VB. > > NB: Database-nya menggunakan access > > Thanks and best regards, > Hendra P Sirait > ~~~~~~~~~~~~ ~~~~~~~~~ ~~~ > Office Add; > PT Sentraco Garmindo > Jl. Raya jati Pasar Kemis > Jl. Putera Utama No.39 > Tangerang Banten > > > > > > [Non-text portions of this message have been > removed] > > ____________ _________ _________ _________ _________ _________ _ Sick sense of humor? Visit Yahoo! TV's Comedy with an Edge to see what's on, when. http://tv.yahoo. com/collections/ 222 [Non-text portions of this message have been removed] <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-trans form:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;pa dding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-hei ght:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> __________________________________________________________ Building a website is a piece of cake. Yahoo! Small Business gives you all the tools to get online. http://smallbusiness.yahoo.com/webhosting <http://smallbusiness.yahoo.com/webhosting> [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] NOTICE - This message and any attached files may contain information that is confidential and intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error and that any dissemination, copying or use of this message or attachment is strictly forbidden, as is the disclosure of the information therein. If you have received this message in error please notify the sender immediately and delete the message. [Non-text portions of this message have been removed]
