Kalau mau lagi yang seperti ini :
Private Sub Form_Activate()
Set Rscoba = New ADODB.Recordset
Dim Sql$
Rscoba.CursorLocation = adUseClient
Sql = "select nomor from biodata order by nomor desc"
'MsgBox sql
Rscoba.Open Sql, DbCoba, adOpenStatic, adLockReadOnly
If Not Rscoba.EOF Then
futxtno_06 = Rscoba(0) + 1
'MsgBox futxtno_06
Else
futxtno_06 = 1
End If
Rscoba.Close
End Sub
kalau mau source lengkap, dan contoh programnya silahkan beri komentar lagi
----- Original Message ----
From: mukromin <[EMAIL PROTECTED]>
To: Programmer-VB@yahoogroups.com; [EMAIL PROTECTED]
Sent: Monday, April 30, 2007 5:36:27 PM
Subject: Re: [Programmer-VB] Nomor Otomatis
Terima kasih atas saran dan masukannya, sekarang program sudah bisa menggunakan
koding dari mas Bace-bace. Sekali lagi terima kasih.
Mukromin
----- Original Message -----
From: Bace - Bace
To: Programmer-VB@ yahoogroups. com
Sent: Monday, April 30, 2007 10:42 AM
Subject: Re: [Programmer- VB] Nomor Otomatis
Perintah dalam codingnya yang kurang benar, kalau dalam sql, jika ada perintah
agregate funtion (MAX...), maka hasil dari perintah SQL nya sudah pasti tetap 1
record. Tetapi walaupun 1 recor, nilai record yang dihasilkan null. jadi
didalam code, tambahkan pengecekan null
If AdoNoUrut.RecordCou nt = 0 Then
N = 0 (baris ini tidak akan dilewati oleh program, krn jumlah record data
berjumlah 1)
Else
AdoNoUrut.MoveLast
N = AdoNoUrut.Fields( "N")
End If
N = N + 1
code diatas dirubah menjadi :
If AdoNoUrut.RecordCou nt = 1 Then
if isnull(AdoNoUrut( "N")) = true then ' jika isi N = nulll maka nilai N = 0
N = 0
Else
N = AdoNoUrut.Fields( "N")
End If
End If
N = N + 1
Semoga membantu: =(oVo)=
============ ========
BaceInside Publisher
Copyright @2007
Not for reproduced, republished.
Thank You
============ ========
----- Original Message ----
From: mukromin <[EMAIL PROTECTED] co.id>
To: indoprog-vb@ yahoogroups. com; Programmer-VB@ yahoogroups. com
Sent: Monday, April 30, 2007 10:23:58 AM
Subject: [Programmer- VB] Nomor Otomatis
Selamat pagi rekan-rekan semua, saya punya koding seperti dibawah.
Sub NoUrut()
Set AdoNoUrut = New Recordset
AdoNoUrut.Open "Select Left(Max(tblIn. In_Id),4) As N from tblIn", db,
adOpenStatic, adLockOptimistic
If AdoNoUrut.RecordCou nt = 0 Then
N = 0
Else
AdoNoUrut.MoveLast
N = AdoNoUrut.Fields( "N")
End If
N = N + 1
txtNomor.Text = Format(N, "0000") & "-" & Format(Now, "MMM-yy") & ("-" & "IN" )
End Sub
Private Sub cmdAdd_Click( )
Call NoUrut
End Sub
Pada saat cmdAdd diclick nomor otomatis urut ( N + 1 ). Masalahnya jika tblIn
masih kosong nomor tidak otomatis
menjadi 1. Untuk nomor ke 2 dst tidak masalah. Mohon pencerahannya. Terima Kasih
Salam
Mukromin
Ahhh...imagining that irresistible "new car" smell?
Check out new cars at Yahoo! Autos.
Send instant messages to your online friends http://uk.messenger.yahoo.com
