Bulan tahun bisa pake fungsi month, dan year, coba dilihat di help nya access. Semoga membantu
From: [email protected] [mailto:[email protected]] On Behalf Of Ros Tayubi Sent: Friday, October 02, 2009 2:16 PM To: [email protected] Subject: [belajar-access] Nomor Otomatis dengan Kombinasi Bulan & Tahun Hallo semua, Saya mau minta tolong lagi, saya mau buat Nomor otomatis dengan ditambahin Bulan dan Tahun juga secara otomatis, No yang diinginkan 00001/EK/08/09, 08 menampilkan Bulan transaksi dan 09 menampilkan Tahun transaksi, Bulan dan Tahun berubah sesuai bulan maupun Tahun, sedangkan Nomor depan tetap melanjutkan nomor sebelumnya. Ini yang biasa saya pakai untuk Nomor Otomatis apabila tidak ada kombinasi Bulan & Tahun, Bagaimana caranya bila ada kombinasi Bulan maupun Tahun. Mohon arahan para Suhu......... Private Sub cmdtambah_Click() Dim rs As New ADODB.Recordset On Error GoTo Err_cmdtambah_Click Me.AllowAdditions = True Me.AllowEdits = True DoCmd.GoToRecord , , acNewRec rs.Open "select*from BKP_HEADER", CurrentProject.Connection, adOpenKeyset, adLockOptimistic Me.no_bukti = "NBT" + Right("000" + CStr(rs.RecordCount + 1), 3) Me.Refresh Me.no_bukti.Locked = False Me.no_bukti.SetFocus rs.Close cmdedit_Click Exit_cmdtambah_Click: Exit Sub Err_cmdtambah_Click: MsgBox Err.Description Resume Exit_cmdtambah_Click End Sub Salam Ros Tayubi _____ Buat <http://sg.rd.yahoo.com/id/messenger/pingbox/mailtagline/*http:/id.messenger .yahoo.com/pingbox/> sendiri desain eksklusif Messenger Pingbox Anda sekarang! Membuat tempat chat pribadi di blog Anda sekarang sangatlah mudah
