Kalau menurut saya begini. Tidak harus semua data yang kita inginkan, di catat pada database. Record-record yang merupakan kesimpulan dari field-field lain, akan lebih baik ditampilkan kalau dibutuhkan. Saya berpendapat, No_Transaksi tabel tbl_Order akan lebih baik kalau diberi type number. Juga, ditambah field Tgl (kalau belum ada). 1. Pada saat menambah data proses yang dilakukan adalah mencari nomor akhir dari tabel tbl_order. dim i as integer i = Nz(DMax("[No_Transaksi]", "tbl_Order", "") + 1 'untuk mendptkan no terakhir + 1 tanpa filter apapun 2. Pada saat kita membutuhkan data menampilkan, baik pada form maupun pada report, yang kita lakukan adalah menggabungkan dengan field-field lain. dim no_tampilan as variant no_tampilan = "BKS/" & Format(Tgl, "mm") & "/" & Format(Tgl, "yyyy") & "/" _ & format(No_Transaksi, "00000") 'misalnya nilai No_transaksi = 10 dan tgl (yang bertype date/time) = 17/04/2011 'di tabel tbl_order, maka: 'no_tampilan = BKS/04/2011/00010 Semoga bisa membantu dan memberi semangat... Hariyanto (Surabaya)
--- On Wed, 27/4/11, Aksan Kurdin <aksan.kurdin@gmail.com> wrote:
From: Aksan Kurdin <aksan.kurdin@gmail.com>
Subject: Re: [belajar-access] tabel otomatis
To: belajar-access@yahoogroups.com
Date: Wednesday, 27 April, 2011, 6:50 PM
Dear rekan2, ayo ada yang mau berlatih membentuk penomoran dokumen ? ini ada kasus menarik. contoh fungsi penomoran yang sudah pernah saya berikan sebagai berikut: Public Function GetNo(Tgl As Date) As String Dim strDummy As String strDummy = Nz(DMax("RIGHT(No_Transaksi,5)", "tbl_Order", "No_Transaksi LIKE 'BKS/" & Format(Tgl, "mm") & "/" & Format(Tgl, "yyyy") & "/*'"), "") If strDummy = "" Then 'GetNo2 = "BKS/" & Format(Tgl, "mm") & "/" & Format(Tgl, "yyyy") & "/00001" GetNo = "BKS/" & Format(Tgl, "mm") & "/" & Format(Tgl, "yyyy") & "/00001" Else If Left(strDummy, 1) = "/" Then strDummy = Right(strDummy, 4) End If 'GetNo2 = "BKS/" & Format(Tgl, "mm") & "/" & Format(Tgl, "yyyy") & "/" & Format(Val(strDummy) + 1, "00000") GetNo = "BKS/" & Format(Tgl, "mm") & "/" & Format(Tgl, "yyyy") & "/" & Format(Val(strDummy) + 1, "00000") End If End Function kali ini, mudah2an ada yang bisa memakai kail, daripada memberi ikan ..... :) aksan kurdin On 4/25/2011 2:01 PM, Sutrisno Ae wrote: mas Aksan
maaf mau tanya lagi nich mas, bagaimana membuat fungsi Getno untuk faktur pajak, jadi yang selalu berubah otomatis no urut paling akhir,
formatnya seperti berikut. 010.000-11.00000001, mohon pencerahannya
salam
|
No comments:
Post a Comment