Hus mantap e bos
Thank you very much _____ From: [email protected] [mailto:[email protected]] On Behalf Of Haer Talib Sent: Tuesday, April 13, 2010 1:44 PM To: [email protected] Subject: Re: [belajar-access] Membuat fungsi Nomor dengan Criteria Mungkin bisa spt ini, tapi saya blm coba: Function NOPDP() As String c = DLast("[transaksion_id]", "[general_ledger]", "Left([transaksion_id], 3) = 'PDP'") d = val(right(c,3)) + 1 NOPDP = "PDP" & Format(d, "000") End Function 2010/4/12 yokananwahyono <yokananwahyono@ <mailto:[email protected]> yahoo.co.id> Saya mencoba membuat fungsi nomor urut namun dengan criteria Jika table "general_ledger" column transaksion_id yang Kiri 3 = PDP kosong maka PDP001, (Fungsi tsb dapat saya buat.) Jika data terakhir dari table "general_ledger" column transaksion_id yang kiri 3 =PDP tidak sama dengan kosong maka NOPDP Logika dari NOPDP adalah data terakhir dari table "General_ledger" column transaksion_id yang kiri 3 =PDP di tambah 1 Logika ini saya dpt dari mas BO Saya buat kode berikut tapi ada error di ( a ) Function NOPDP() As String a = Left([general_ledger]![transaksion_id], 3) c = DLast("[transaksion_id]", "[general_ledger]", " a = 'PDP'") d = c + 1 NOPDP = "PDP" & Format(d, "000") End Function Mohon teman2 koreksi kesalahan d mana Salam Yokanan wahyono -- Anda Punya Toko? Pakai MyStore (www.rumahaccess. <http://www.rumahaccess.com> com) Program Kasir/POS lengkap dengan inventory control. Khusus untuk toko pribadi, outlet, butik, rumah busana, dsb.
