Re: [Programmer-VB] Auto Number

Sun, 29 Jan 2006 16:05:55 -0800

please see insertion

best regards
[wwn]

 
On 1/28/06, thoyib <[EMAIL PROTECTED]> wrote:
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
 
 
bagian yg diatas kerjanya akan sangat lambat, apalagi kalau ada banyak data, sebaiknya diganti dg query langsung menggunakan aggregate function MAX (lihat jawabannya mas limagus for detail)

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

bagian yg diatas tidak perlu lagi, tinggal menambahkan nilai MAX tadi dg 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

 
 
 
 
bagian diatas cukup diganti dg fungsi berikut ini: newRDR = "R" & Format(NewRDR, "000")

Thanx juga buat prog. List View yg saya tanyakan....
 
 
Salam,
 
Thoy
----- Original Message -----
From: r3dc377 -
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
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



Kirim email ke