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
