hi...hi...yg detail juga tanya nya ......maklum lagi belajar jawab
nih........ Asumsi saya masnya pasti punya tektbox sbb:
textbox : mis : NoInv , field text 18 ( karena romawi terbesar VIII ) -->
INV/0098/VIII/2010 = 18dimana pd textbox ini , saat after update isi berubah
menjadi format yg di harapkan.kemudian ada textbox : Tgl Bila demikian buat
satu modules (spy bisa dipanggil di Form manapun) ketik code spt dibawah :(
modul ini dari milis , jadi saya copy spt apa adanya , untuk kasus mas bisa
disederhanakan ... kan cuma butuh sampai angka 12 )Function LatRom(number As
Long) As String
Dim n As Long
Dim j, i As Integer
Dim Rom, Lat
Dim Rmw As String
Rom = Array("I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM",
"M") 'mis: Roman = iv , tinggal ganti huruf kecil
Lat = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000)
Rmw = ""
For j = 12 To 0 Step -1
n = Int(number / Lat(j))
If n <> 0 Then
For i = 1 To n
Rmw = Rmw & Rom(j)
Next i
End If
number = number Mod Lat(j)
Next
LatRom = Rmw
End Function
Lalu panggil pd event After Update pd textbox NoInv tsb :Private Sub
NoInv_AfterUpdate()
Dim A As Long, B
A = Month(Tgl)
B = LatRom(A)
NoInv.Value = "INV/" & Format([NoInv], "0000") & "/" & B & "/" & Format(Tgl,
"yyyy")
End Sub
Kalau masih gak jelas bisa lihat lampiran nya
Salam,~ KSBA | Keep the Spirit of Belajar Access ~
--- Pada Jum, 4/6/10, Syaiful Arif <[email protected]> menulis:
Dari: Syaiful Arif <[email protected]>
Judul: [belajar-access] Cara Buat Automatic No Invoice
Kepada: [email protected]
Tanggal: Jumat, 4 Juni, 2010, 3:05 AM
To : Para Master Access
Alloo...saya masih awam dalam hal database
access..,saya lagi ada project pembuatan program invoice...
masalah yang saya hadapi dalam hal pembuatan No
Invoice yang bisa keluar secara otomatis.
Misal. INV/NO INVOICE/BULAN DALAM
ROMAWI/TAHUN ==> INV/0098/V/2010
Mohon pencerahannya. .( mohon maaf temen2 yang
detail ya...penjelasannya maklum lagi belajar )
Salam..
Arif
