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
