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

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