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

siap bang,
udah coba di excel:

Function NomorRekamMedis(ByVal pNom)
    If IsNumeric(pNom) Then
        If (pNom < 1) Or (pNom > 1000000) Then
            t = "N/A"
        Else
            t = Format(pNom - 1, "000000")
            t = Right(t, 2) & "." & Mid(t, 3, 2) & "." & Left(t, 2)
        End If
    Else
        t = "N/A"
    End If
    NomorRekamMedis = t
End Function

hasilnya:



aksan kurdin


On 12/21/2012 3:06 PM, Haer Talib wrote:

 

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