[belajar-access] Re: No Urut Berseri

 

Saya asumsikan nama tabelnya "transaksi"Masukkan kode berikut di event klik di comboxnya

Dim Angka As Integer
Angka = Val(Nz(DMax("mid(no_transaksi,5)", "transaksi"), 0)) + 1
no_transaksi.Value = jenis_transaksi.value & "-" & Format(Angka, "0000")

__._,_.___

---

Posted by: handokoteguhsantoso@yahoo.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

SPAM IS PROHIBITED

Visit Your Group

• New Members 2

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___