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

Wednesday, January 2, 2013

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

ikutan nimbrung....

asumsi bentuk input : 00.00.00

Private Sub Command4_Click()

Text2 = NextNRM(Text0) ====> nilai terakhir NomorMedicalRecord (NRM) bisa diambil dari tabel

End Sub

Function NextNRM(ByVal LastNRM)

NRM1 = Val(Left(LastNRM, 2))

NRM3 = Val(Right(LastNRM, 2))

NRM2 = Val(Mid(LastNRM, 4, 2))

If NRM1 = 99 Then

NRM1 = 0

NRM2 = NRM2 + 1

If NRM2 > 99 Then

NRM2 = 0

NRM3 = NRM3 + 1

If NRM3 > 99 Then

MsgBox "Full"

End If

Else

NRM1 = NRM1 + 1

End If

NextNRM = Format(NRM1, "00") & "." & Format(NRM2, "00") & "." & Format(NRM3, "00")

End Function

Salam,

Edi Rosadi

Application Developer & Consultant

Website/Blog :
Algoritma dan Pemrograman

Peta Industri dan Wisata Cilegon
Blog Bahasa Cilegon

Facebook-Perancangan Sistem

komersilkan blog atau website anda dengan bergabung di sini atau di sini

--- On Fri, 21/12/12, Haer Talib <haertalib@gmail.com> wrote:

From: Haer Talib <haertalib@gmail.com>
Subject: Re: [belajar-access] mohon bantuan cara membuat nomer otomatis
To: belajar-access@yahoogroups.com
Date: Friday, 21 December, 2012, 3:06 PM

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