Re: [belajar-access] tabel otomatis

Suwon mas aksan atas petunjuknya, tak pelajari dulu codingnya.

salam,

---

From: Aksan Kurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Wed, April 27, 2011 6:50:00 PM
Subject: Re: [belajar-access] tabel otomatis

 

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

__,_._,___