Re: [Programmer-VB] Auto Number

Padu Arsana W Fri, 27 Jan 2006 00:53:30 -0800

Dear Mr. thoyib

kayaknya udah pernah ada yang nanya and jawab ini! but just to help u

buka dulu connectionnya

proc dibawah bisa mr. taruh di modul ato di form ybs, kemudian

untuk mendapatkan nilainya pakai textno.text = xxJRec

noted: textno = nomor urut yang mr maksud

Public Function xxJRec() As Integer
    xxJRec = 0
    Set Rs = New Recordset
        Rs.Open "SELECT Count(PMASUK.No_PM) AS JmREC From MASUK", CN, adOpenDynamic, adLockOptimistic
        If Not Rs.EOF Then
             xxJRec = Rs!JmRec +1
        End If

xxJRec = "P" & format(xxJRec,"000")
Rs.Close
End Function

semoga bermanfaat!

salam,

wayan

thoyib <[EMAIL PROTECTED]> wrote:

Dear All,

Aku lagi buat program ENTRY DATA, oleh karna itu untuk mempermudah user aku mo buat Auto Number

Misal : No_PM (Penerimaan Masuk)

Setiap transaksi pd No_PM di simpan, misal "P001" otomatis pd trnasaksi berikutnya No_PM muncul "P002" begitu seterusnya....

Mohon kasih tahu source code nya...

Salam,

Thoy

YAHOO! GROUPS LINKS

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

Matur suksma,

Padu Arsana W
Penida Island, Klungkung - Bali

What are the most popular cars? Find out at Yahoo! Autos

Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer

YAHOO! GROUPS LINKS

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

Re: [Programmer-VB] Auto Number

Kirim email ke