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 <[email protected]>
>
>
> 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.com)
Program Kasir/POS lengkap dengan inventory control.
Khusus untuk toko pribadi, outlet, butik, rumah busana, dsb.
