' Logikanya ' Data dari tabel diambil 8 karakter di sisi sebelah kanannya ' 8 karakter string di konvert ke bilangan (dengan fungsi VAL) ' Hasilnya di tambah 1 ' Kemudian pake fungsi format agar tampilan ada angka nolnya didepan ' Jangan lupa di gabung dengan kode depan (Header seri pajaknya)
Dim sNoSeriPajak as String sNoSeriPajak = sHeader & Format((Val(Right(Data.Recordset!NSFP,8))+1),"00000000") ' sHeader berisi "010.000-08" ( string Header ini bisa dibuat secara otomatis dengan kode --- jadi bisa menyesuaikan tahun Fkt Pajaknya) Semoga membantu. Salam, Newbie 2008/4/4 Didi <[EMAIL PROTECTED]>: > Dear rekan-rekan, > > Maaf saya tanya lagi ya. Saya punya Txt_Nomor_Faktur_Pajak yang > defaultnya adalah 010.000-08.00000000 dalam 1 field, dan maunya bila > user menekan tombol ADD DATA maka angka 010.000-08.00000000 ditambahkan > 1 di paling belakang, saya sudah coba dengan command > TXT_Nomor_Faktur_Pajak = Data.Recordset!NSFP +1. Namun yang keluar di > TXT_Nomor_Faktur_Pajak hanya 000 saja. > > Mohon bantuannya dan terima kasih. > > Salam, > > Didi > > [Non-text portions of this message have been removed] > > > [Non-text portions of this message have been removed]
