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).
