Re: [belajar-access] tabel otomatis

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

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___