Yup,
jangan keliru manggil MBAk lo ya ....
MBAh .... pake "h" ....
:)
aksan kurdin
On 3/8/2010 6:08 PM, yokananwahyono wrote:
Mantap MBA memang "Mbahnya Acces"
Salam Hangat
Yokanan wahyono
------------------------------------------------------------------------
*From:* [email protected]
[mailto:[email protected]] *On Behalf Of *MBA
*Sent:* Saturday, March 06, 2010 6:51 PM
*To:* [email protected]
*Subject:* RE: [belajar-access] mencegah user mengupdate data di luar
list combo
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
