Re: [indoprog-vb] Nomor Otomatis

[Arief Wijana]

Coba edit code  berikut
N = AdoNoUrut.Fields("N")

menjadi
N =iif(isnull(AdoNoUrut.Fields("N")),0,AdoNoUrut.Fields("N"))

Semoga Membantu

Arief




  ----- Original Message ----- 
  From: mukromin 
  To: indoprog-vb@yahoogroups.com ; [EMAIL PROTECTED] 
  Sent: Monday, April 30, 2007 10:23 AM
  Subject: [indoprog-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.RecordCount = 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

  [Non-text portions of this message have been removed]



   

[Non-text portions of this message have been removed]