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.
