MEMBUAT NOMOR URUT OTOMATIS VB 6.0

MEMBUAT NOMOR URUT OTOMATIS

‘Buat deklarasi

Dim Rst As New ADODB.Recordset

Dim N As String

'-------------------------------------------------------------------

'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field NOMOR, kemudian dicari ‘nilai yg paling besar (max)   jika anda membuat nya lebih dari 4 karakter anda bisa ganti sesuai keperluan

‘'kemudian hasilnya d tampung d field buatan dgn nama Nomor

Rst.Open "select max(right(NO,4)) as Nomor from NamaTabel", Conn, adOpenKeyset

    ''jika kosong atau tdk ada data

    If IsNull(Rst!Nomor) Then   

        N = "A0001" 'member nilai awal

    Else  

        N = "A" & Format(Rst!Nomor + 1, "0000")

    End If 

Text1.Text = N 

Conn adalah variable  Conection ke database  contoh:

On Error GoTo Ero Dim Conn As New ADODB.Connection     Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databade.mdb;"

Conn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="localhost ";DATABASE="Database ";UID="root";PWD="password";PORT="3306";OPTION=3"

---

MEMBUAT NONOR URUT OTOMATIS DAN KEMBALI KE 0001 (NO AWAL ) SETIAP TAHUN

Sub AutoNoTahunan()

Dim Rst As New ADODB.Recordset

Dim N As String

Rst.Open "select max(right(NO,6)) as Nomor from NamaTabel where Year(Tanggal) = " & Year(Now), Conn, adOpenKeyset, adLockOptimistic

    'jika berisi null atau tdk ditemukan

    If IsNull(Rst!NOMOR) Then             

        N = "M-000001" 'member nilai awal

    Else

        N = "M-" & Format(Rst!NOMOR + 1, "000000")

    End If

    Text1.Text = N

   Rst.Close

End Sub

‘anda tinggal memanggil procedure di atas pada setiap roses simpan contoh

 AutoNoTahunan

Bisa juga

Call AutoNoTahunan

Format nomor urut yang di hasilakn adalah “M-000001” dst

Jika anda hanya angka saja anda tinggal  rubah

N = Format(Rst!NOMOR + 1, "00000")

---

MEMBUAT NO URUT OTOMATIS KEMBALI KE SATU  0001 SETIAP BULAN

Sub AotuNoBulanan()

Dim Rst As New ADODB.Recordset

Dim N As String

Rst.Open "select max(right(NO,4)) as Nomor from NamaTabel where Year(Tanggal) = " & Year(Now) & " and Month(Tanggal) = " & Month(Now), Conn, adOpenKeyset, adLockOptimistic

    ''jika tidak berisi null atau data kosong

    If IsNull(Rst!NOMOR) Then

        N= "0001" 'member nilai awal

    Else

        N = Format(Rst!NOMOR + 1, "0000")

    End If

    Text1.Text = N

    Rst.Close

End Sub

---

‘anda tinggal memanggil procedure di atas pada setiap roses simpan contoh

 AotuNoBulanan

Bisa juga

Call AotuNoBulanan

---

Download Artikelnya : Perintah SQL yang cocok SQL ODBC Driver.pdf