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: [EMAIL PROTECTED]
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]>
To: [email protected]; [EMAIL PROTECTED]
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.
[Non-text portions of this message have been removed]
