Re: [Programmer-VB] Auto Number

[thoyib]

Dear All,   Program Auto Number yg saya tanyakan... Saya sudah bisa menggunakannya..   Thanx banged buat: Poetry, Mas Padu, Oskar Kwik, Limagus, juga r3dc377 atas masukannya.. Akhirnya saya menggunakan coding seperti brkt:   Public Sub AutoNum() Dim C As Integer Dim RDRNo As String dim newRDR as String Dim thoy As String newRDR = "" C = 0 Set rsRDR178 = New ADODB.Recordset thoy = "Select * from RDR178" rsRDR178.Open thoy, cnCheck, adOpenDynamic, adLockOptimistic Do While Not rsRDR178.EOF C = C + 1 rsRDR178.MoveNext Loop rsRDR178.Close   If C = 0 Then newRDR = "R001" Exit Sub End If rsRDR178.Open "Select * from RDR178", cnCheck, adOpenDynamic, adLockOptimistic rsRDR178.MoveLast RDRNo = rsRDR178("RDR_No") RDRNo = Mid(RDRNo, 2, 4) newRDR = RDRNo + 1 If newRDR >= 1 And newRDR <= 9 Then newRDR = "R00" + newRDR ElseIf newRDR >= 10 And newRDR <= 99 Then newRDR = "R0" + newRDR ElseIf newRDR >= 100 And newEmp <= 999 Then newRDR = "R" + newRDR End If rsRDR178.Close txtRDR = newRDR End Sub    Thanx juga buat prog. List View yg saya tanyakan....     Salam,   Thoy ----- Original Message ----- From: r3dc377 - To: Programmer-VB@yahoogroups.com Sent: Saturday, January 28, 2006 8:23 AM Subject: Re: [Programmer-VB] Auto Number Dear Toyib lagi,   Sorry yach Man, Tapi percobaan kutak katik anda udah sampai mana??? boleh tahu ?   Regards     ----------#------------------------------------------------------   @-->>==<((c0d1n6f0rhum4n1ty))>==<<--@   ------------------------------------------------------#---------- ----- Original Message ----- From: thoyib To: Programmer-VB@yahoogroups.com Sent: Friday, January 27, 2006 2:34 PM Subject: [Programmer-VB] Auto Number 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 Do you Yahoo!? With a free 1 GB, there's more in store with Yahoo! Mail. 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.