9 Tanggapan untuk "Membuat Nomor Otomatis Dengan Format Tanggal"

  1. permisi mau tanya, itukan setiap hari pasti ulang lagi dari awal ya ? kalo saya mau bikin tapi mulai lagi dari 1 nya itu tiap tahun bukan tiap hari gimana ya ? mohon penjelasannya, terimakasih

    ReplyDelete
    Replies
    1. kurang lebih koding seperti berikut ini mas:

      Private Sub AutoNumber()
      Dim RsAuto As New ADODB.Recordset

      Set RsMhs = New ADODB.Recordset
      RsMhs.Open "SELECT nim FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
      RsMhs.Requery
      Dim Urut As String * 11
      Dim Hitung As Long
      With RsMhs
      If .EOF Then
      Urut = Format(Date, "yyyymmdd") + "001"
      Else
      Set RsAuto = New ADODB.Recordset
      RsAuto.Open "SELECT nim FROM Tbl_mhs WHERE left(nim,4)=year(now())", Conn, adOpenDynamic, adLockOptimistic
      If RsAuto.EOF Then
      Urut = Format(Date, "yyyymmdd") + "001"
      Else
      Hitung = (!nim) + 1
      Urut = Format(Date, "yyyymmdd") + Right("000" & Hitung, 3)
      End If
      End If
      TxtNim.Text = Urut
      End With
      End Sub

      silahkan di coba koding di atas

      Delete
  2. klo pingin nambahi huruf didepannya gmn mas ? misalnya jadi Sp1611280001

    ReplyDelete
    Replies
    1. Private Sub AutoNumber()
      Call Buka
      Set RsMhs = New ADODB.Recordset
      RsMhs.Open "SELECT * FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
      RsMhs.Requery
      Dim Urut As String
      Dim Hitung As Long
      With RsMhs
      If .EOF Then
      Urut = "SP" + Format(Date, "yymmdd") + "0001"
      Else
      If Left(!nim, 6) <> Format(Date, "yymmdd") Then
      Urut = "SP" + Format(Date, "yymmdd") + "0001"
      Else
      Hitung = (!nim) + 1
      Urut = "SP" + Format(Date, "yymmdd") + Right("0000" & Hitung, 4)
      End If
      End If
      TxtNim.Text = Urut
      End With
      End Sub


      Silahkan coba kode diatas, semoga berhasil

      Delete
    2. klo cuma ditambahi " SP "+ ,0001 tidak berubah jadi 0002

      Delete
    3. Maksudnya gimana y? saya kurang jelas dengan pertanyaannya, mohon diperjelas pertanyaannya.

      Delete
    4. klo cuma Urut = "SP" + Format(Date, "yymmdd") + "0001" ( hasilnya SP1611300001) setelah di save harusnya kan menjadi SP1611300002, coding itu saya coba tidak berubah ( tetep muncul SP1611300001, smoga jelas pak pertanyaan saya, trims

      Delete
    5. Private Sub AutoNumber()
      Call Buka
      Set RsMhs = New ADODB.Recordset
      RsMhs.Open "SELECT * FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
      RsMhs.Requery
      Dim Urut As String
      Dim Hitung As Long
      With RsMhs
      If .EOF Then
      Urut = "SP" + Format(Date, "yymmdd") + "0001"
      Else
      If Mid(!nim, 3, 6) <> Format(Date, "yymmdd") Then
      Urut = "SP" + Format(Date, "yymmdd") + "0001"
      Else
      Hitung = Right$(!nim, 4) + 1
      Urut = "SP" + Format(Date, "yymmdd") + Right("0000" & Hitung, 4)
      End If
      End If
      TxtNim.Text = Urut
      End With
      End Sub

      Coba koding ini, ternyata setelah saya teliti ada yang kurang dalam penulisan kodingnya. Jangan lupa panjang fieldnya di tambah. semoga berhasil

      Delete

Jasa Programer

Anda butuh konsultasi atau ingin dibuatkan program? jika saya mampu, kami siap membantu

Perkembangan teknologi komputer merambah ke berbagai platform teknologi baik Desktop Base, Web Base dan Mobile Base. Bahkan perlu suatu integrasi sistem dari platform-platform tersebut.

saya menawarkan jasa pembuatan program dengan spesifikasi yang sesuai kebutuhan anda. Jika ada pertanyaan silahkan kontak via email: birawa_84@yahoo.co.id

TAGS

Active Report Add In Android Antivirus Aplikasi Bar dan Restoran Aplikasi Koperasi Aplikasi Penggajian Aplikasi Perpustakaan Aplikasi Sistem Informasi Siswa Audio Auto Number Backup Restore Database Bahasa Pemograman BBM Blog Blogspot Browser Cara Download Di Blog Ini Cara Koneksi VB.NET Dengan Database MySQL Server Cara Membuka File ISO Cara Mengabungkan File CD DVD Combobox Command Button Context Menu Contoh Aplikasi Converter Crystal Report Custom Domain Daemon Tools Pro Advanced Pro Full Database Delphi 7 Enterprise Desain Desktop Download Manager Driver DSN Editor Eksport Database Eksport Import Database Enkripsi Excel File APK Form Form Login Grafik Grid Hak Akses Hanya Bisa Input Angka Dan Huruf Hardisk Icon Import Eksport Database INI File (.ini) Internet Jam Digital Kompres File Exe Label List View Master Program Memasukan Data Ke Dalam Database Membuat Grup Pada Active Report Membuat Menu Klik Kanan Mempercepat Query SQL Menampilkan Data Menampilkan Data Ke Combobox Menampilkan Gambar atau Foto Mencegah Run 2x Mengatasi Error Karena Tanda Petik Mengetahui Windows 32 Bit atau 64 Bit Degan VB6 Menghilangkan Menu Klik Kanan Pada TextBox Menu Menu Pop Up Ms Office MsFlexGrid Multimedia MySQL Navicat Network OCX Office Option Explicit OS Paging PDF Pemograman Penanganan Error Pencarian Data Perintah MySQL Printer Progress Bar Recovery Report ReportCrystal Report Security Software Source Code Source Code Aplikasi Restoran Splash Screen SQL Server Status Bar Stored Procedure Tabel Terbilang TextBox Tombol Donasi Paypal Tool Tips Toolbar Tools Trik MySQL Trik VB 6 Tutorial Tutorial Membuat Laporan Active Report Update VB 6 SP 6 Utility VB.NET VB.NET 2010 Ultimate Video View VIsual Basic 6 Visual Foxpro 9 Web Windows