Saturday, 5 January 2013

Penomeran Otomatis Di vb6

Penomeran Otomatis Di vb6 - Biasa nya kalo membuat Program ketika memasukan kode barang atau no daftar yang nomor nya selalu berurutan,setiap menambah data,nah kalo di lakukan secara manual itu akan kelamaan mendingan menggunakan penomeran otomatis .

cara penomoran otomatis pada vb6


Private Sub cmdadd_Click()
txtkdbuku = Getno
txtjdlbuku.SetFocus

End Sub


Function Getno() As String
Dim rsNo As New Recordset
Dim sSQL As String
Dim MNo As Long
Dim tNol As String

sSQL = "Select max(kodebuku) from buku"
  Set rsNo = conndb.Execute(sSQL)

If Not rsNo.EOF Then
  MNo = Val(IIf(IsNull(rsNo(0)), 0, rsNo(0))) + 1
Else
  MNo = 1
End If

Select Case MNo
    Case 1 To 9
        tNol = "00"
    Case 10 To 99
        tNol = "0"
    Case 100 To 999
        tNol = ""
     

End Select
rsNo.Close
Getno = tNol & MNo
End Function

sekian tutorial sederhana cara penomoran otomatis di vb6

Tags:
Cara membuat autonumber di vb6

Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat