Re: [belajar-access] mohon bantuan cara membuat nomer otomatis

 

Iseng2 saya bikin function begini:

Function NomorRekamMedis(ByVal pNom)
    t = Format(pNom - 1, "000000")
    t = Right(t, 2) & "." & Mid(t, 3, 2) & "." & Left(t, 2)
    NomorRekamMedis = t
End Function

?NomorRekamMedis(100)
99.00.00

Tapi belum test macam2 ya... tolong dilanjutkan testnya

Lagipula belum ada trap untuk error dll.

HAER

2012/12/19 Afrizal <aflazio7@yahoo.com>

. 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 to mas bram untuk aturan penomoran rekam medis sama seperti no urut biasa di mulai dari 00 00 00 00 00 01 00 00 02 00 00 03 dst sepertinya yg mas bram simulasikan itu kayaknya cara baca no rekam medis untuk penyimpanan dalam rak penyimpanan (serial numbering system = membaca no rekam medis dari depan ke belakang) thank Afrizal

--

Haer Talib

RumahAccess Indonesia

Tempatnya Belajar Microsoft Access

Artikel | Forum | Milis | Download | Training | Links | Blog | Event

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (16)

Recent Activity:

• New Members 9

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___