Membuat Nomor Automatis

Biasanya dalam sebuah program berbasis aplikasi bisnis yang memerlukan pemrogram untuk membuat penomoran otomatis, hal ini didukung karena jumlah otomatis entri data staf tidak perlu lagi sejenis, dan alhasil layanan akan singkat, efisien, dan cermat. penomoran otomatis juga ditujukan ke lapangan sebuah unix atau berbeda dengan lainnya, maka diperlukan berbeda atau penomoran otomatis pada dasarnya tidak akan sama seperti yang pernah dibuat.

Buat form baru dengan nama = no_otomatis, keterangan = penomoran otomatis

Buat data yang terdapat pada toolbox general, sementara propertise diganti adaalah:

Databasename = (cari lokasi / path ke database yang telah dibuat)

Pilih Recordsetype = 0 - tabel
*
Recordsource = pilih nama tabel


Buat textbox dengan nama dan txtnomor = = dihapus teks
Commandbutton membuat satu dengan nama dan keterangan cmdtambah = Baru

Buat Procedur menambahkan atau methode sebagai berikut:
Sub add ()
Dim order As String * 3
As Byte Dim countdown
With Me.data1.Recordset
If. RecordCount = 0 Then
sequence = "101"
Else
. MoveLast
countdown = Val (! nokamar) + 1
order = "1" & Right ( "00" & countdown, 2)
End If
txtnomor.text = sequence
End With
End Sub

Private Sub_cmdtambah_click ()
me.tambah
endsub

catatan: penomoran otomatis akan berubah jika kita sudah menyimpan data, dan
ulangi menekan tombol atau cmdtambah baru.

This entry was posted in by Olvandra. Bookmark the permalink.

Leave a Reply

Silahkan Tulis Komentar Anda, Sopan dan Berwibawa