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

 

Kirim email ke