/* */

Friday, January 4, 2013

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

 

Wah.. terima kasih banyak mas aksan atas bntuannya.. Segera sy implementasaikan pada modul saya.. :)
-----Original Message-----
From: aksan kurdin aksan.kurdin@gmail.com>
Sender: belajar-access@yahoogroups.com
Date: Thu, 03 Jan 2013 10:42:48
To: belajar-access@yahoogroups.com>
Reply-To: belajar-access@yahoogroups.com
Subject: 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 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* http://www.rumahaccess.com>
> /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 (38)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

No comments:

Post a Comment