Terima kasih, ternyata script yang saya copas tanda petik dua '' berubah ``, jadi rumusnya ga jalan.
On 7/13/10, Haer Talib <[email protected]> wrote: > Scriptnya taruh di modul. > pakainya bisa di text box, query, maupun dari VBA. > > Cara pakai di text box: > taruh di property Control Source: =GetFileName(FilePath) > > Cara pakai di query: > pada salah satu kolom, misalnya path file bernama FilePath. > NamaFile: GetFileName(FilePath) > > Cara pakai di VBA > > vNamaFile = GetFileName(me.FilePath) > > Coba di Immediate Window: > ?GetFileName(CurrentProject.FullName) > > Haer > > > On Mon, Jul 12, 2010 at 8:59 PM, Ahmad Qomaruddin <[email protected]> wrote: > >> Mas MBA, memakai fungsinya gimana, menggunakan command, di textbox >> atau di query? >> script diatas ditaruh di modul atau form? >> >> terima kasih. >> >> On 7/12/10, MBA <[email protected]> wrote: >> > Function GetFileName(byval varFullPath as string) as String >> > >> > On Error Goto Salah >> > >> > >> > >> > X=split(varFullPath,"\") >> > >> > GetFileName=x(Ubound(x)) >> > >> > >> > >> > Keluar: >> > >> > Exit Function >> > >> > >> > >> > Salah: >> > >> > Debug.print err.number & vbcrlf & err.description >> > >> > Resume Keluar >> > >> > >> > >> > End Function >> > >> > >> > >> > >> > >> > Salam Hangat dan Jabat Erat >> > >> > Murid Belajar Access >> > >> > EdyWiyono >> > >> > >> > >> > >> > >> > _____ >> > >> > From: [email protected] [mailto: >> [email protected]] >> > On Behalf Of Ahmad >> > Sent: Monday, July 12, 2010 18:18 >> > To: [email protected] >> > Subject: [belajar-access] Tanya:Rumus menampilkan nama file >> > >> > Buat teman2 mils kalo mau menampilkan nama file saja rumusnya gimana ya? >> > C:\Data\Access\belajar.mdb --> hasilnya : belajar.mdb >> > C:\Data\Tutorial.pdf --> Tutorial.pdf >> > D:\Access\belajar_access\latihan\rumus.mdb ---> rumus.mdb >> > D:\Access\Panduan\buat_rumus.doc ---> buat_rumus.doc >> > (Rumus dijalankan di form maupun query), dulu kayaknya pernah dibahas di >> > milis tapi saya cari arsipnya ga ketemu. >> > Terima kasih sebelumnya. >> > >> > >> >> >> -- >> Ahmad Qomaruddin >> Sulang Rembang >> email : [email protected] >> blog : ud13en.blogspot.com >> >> >> ------------------------------------ >> >> SPAM IS PROHIBITEDYahoo! Groups Links >> >> >> >> > > > -- > > Jadikan www.gapura.web.id sebagai homepage browser anda. > => Akses ke website favorit tinggal klik aja. (Lihat dulu deh). > -- Ahmad Qomaruddin Sulang Rembang email : [email protected] blog : ud13en.blogspot.com
