MS ACCESS MAILING LIST: [belajar-access] Re: mohon bantuan cara membuat nomer otomatis

terima kasih mas kuncara arif atas bantuannya. sebelumnya mohon maaf
baru bisa balas sekarang. scrpt nya sudah saya coba ko timbul error
seperti ini ya?... mohon bantuan solusinya.. maturnuwun...

http://img853.imageshack.us/img853/4642/tesh.png

--- In belajar-access@yahoogroups.com, "KuncaraYahoo" wrote: Private
Sub JENIS_AfterUpdate() Dim rs As New ADODB.Recordset, Lng_NoUrut As
Long, Str_NoUrut As String If Me.JENIS = "JAMPERSAL" Then rs.Open
"Select Max(right(trim(NoJKM),6)) as Nomor From [Data Pasien]",
CurrentProject.Connection, adOpenStatic, adLockPessimistic If
rs.RecordCount 0 Then Lng_NoUrut = CLng(rs!Nomor) + 1
Str_NoUrut = "JP " & Format(Lng_NoUrut, "000000") If Me.nojkm ""
Then If MsgBox("Anda yakin Akan merubah No JKM menjadi " &
Str_NoUrut & " ?", vbInformation + vbYesNo, "Perhatian") = vbYes Then
Me.nojkm = Str_NoUrut End If Else Me.nojkm =
Str_NoUrut End If Else Me.nojkm = "JP 000001" End
If Else Me.nojkm = "" End If End Sub Script diatas mudah-mudah
bisa bantu khusus untuk no urut JAMPERSAL, Letakan script diatas di
eventafterupdate combobox JENIS Untuk pemasalahan No urut Rekam Medis
saya masih belum ngerti yah urutan penomorannya.. Dan untuk No SKP saya
harap Saudara bisa mempelajari nya dari contoj kasus diatas.. Semoga
membantu. From: belajar-access@yahoogroups.com
[mailto:belajar-access@yahoogroups.com] On Behalf Of Mr Bramantya Surya
Pratama Sent: 05 Desember 2012 22:32 To: belajar-access@yahoogroups.com
Subject: [belajar-access] mohon bantuan cara membuat nomer otomatis [1
Attachment] [Attachment(s) from Mr Bramantya Surya Pratama
included below] selamat malam rekan-rekan dan suhu-suhu.. saya ada
masalah dengan program SJP yang saya buat.. saya ingin menanyakan
bagaimana untuk membuat nomer kode secara otamatis.. 1. Nomer rekam
medis otomatis pada rekam medis aturan pemberian nomor adalah: 00.00.00
dimana 2 angka 0 didepan diisi dulu baru yang tengah & yang belakang..
jd seperti ini urutannya 00.00.00 nomer rm ke 1 01.00.00 nomer rm ke 2
02.00.00 nomer rm ke 3 99.00.00 nomer rm ke 100 00.01.00 nomer rm ke 101
00.10.00 nomer rm ke 1001 00.00.01 nomer rm ke 10001 dst 2. Nomer kartu
untuk JAMPERSAL Jika jaminan dipilih JAMKESMAS maka tinggal dimasukkan
nomer jamkesmasnya secara manual, tetapi jika JAMPERSAL yang dipilih
maka akan otomatis membuat nomer kartu dengan aturan JP 000000 dimana
setelah tulisan JP ada spasi dan kemudian 6 digit number yang diisi
urut.. jd seperti ini urutannya JP 000001 JP 000002 JP 000003 dst 3.
Nomer SKP untuk JAMPERSAL Jika jaminan dipilih JAMKESMAS maka tinggal
dimasukkan nomer SKP jamkesmasnya secara manual, tetapi jika JAMPERSAL
yang dipilih maka akan otomatis membuat nomer SKP dengan aturan JP 0000
0000 dimana setelah tulisan JP ada spasi dan kemudian 4 digit number
yang diisi bulan dan tahun.. dan 4 digit akhir yang diurut dari no 1
dan akan reset kembali ke 1 bulan berikutnya. jd seperti ini urutannya
JP 1212 0001 data pertama bulan des taun 2012 JP 1212 0050 data ke-50
bulan des taun 2012 JP 0113 0001 data pertama bulan jan taun 2013 dst
mohon untuk bantuan rekan2 untuk memecahkan masalah ini.. bersama ini
kami sertakan filenya.. terima kasih...
Bram