Lebih praktis dengan set property combo box bernama limited to list = yes / true
Salam hangat dan jabat erat, MBA _____ From: [email protected] [mailto:[email protected]] On Behalf Of yokananwahyono Sent: Saturday, March 06, 2010 11:45 To: [email protected] Subject: [belajar-access] mencegah user mengupdate data di luar list combo Dear Teman - teman Saya coba membuat parameter di "PO_Line" Di combo "Item_Name" "Lihat" akan dlookup data di masing2 combo jika lihat = kosong maka akan keluar pesan "kode tidak ada" itu untuk mencegah user mengupdate "Item_code" di luar daffar di combo berikut kodenya Item_Code = Trim(Item_Code) Item_Code.Requery If [item/gl].Value = "GL" Then lihat = DLookup("[acount_code]", "[t_account]", "[acount_code]='" & [Item_Code] & "'") Else lihat = DLookup("[item_kode]", "[t_item_master]", "[item_kode]='" & [Item_Code] & "'") End If If lihat = "" Then MsgBox " Item / GL " & UCase(Item_Code) & " Tidak Ada ", vbOKOnly [item/gl].SetFocus Item_Code.SetFocus Item_Code = "" Else End If apanya yang salah y? Thanks Yokanan wahyono No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2725 - Release Date: 03/06/10 02:34:00
