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