ok makasih....aku coba dulu..tapi kok attachment-nya ga bisa dibua ...???sory ngrepotin....
----- Original Message ----- From: Keep spirit Belajar access To: [email protected] Sent: Friday, June 04, 2010 1:54 PM Subject: Bls: [belajar-access] Cara Buat Automatic No Invoice [1 Attachment] [Attachment(s) from Keep spirit Belajar access included below] 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 = 18 dimana 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
