[belajar-access] Re: Menampilkan nama file back end yang sedang aktif

saya tambahkan keterangan master Aksan , ya :

Sub cek()
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("mSysObjects")
    'Set rst.Filter = "database <> ' " & "'"
    If rst.EOF Then GoTo labelexit
    rst.MoveFirst
    Do While Not rst.EOF
        If IsNull(rst.Fields("database")) Then
            rst.MoveNext
        Else
            fld_database = rst.Fields("database")
            MsgBox fld_database
            Exit Do
        End If
    Loop
labelexit:
    Set rst = Nothing
    Set dbs = Nothing
End Sub

maka akan muncul nama nya , misal :

E:\grp\belajar access-yahoo\message\Cek duplikasi data lebih dari 1 field  2011Juni\split_be.mdb

'==========

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> dim db as dao.database
> set db = currentdb
>
> dim td as dao.tabledef
> for each td in db.tabledefs
> debug.print td.name, td.connect
> next td
>
>
> ingat, link table yang ada di front end bisa bersumber dari berbagai
> macam source, bisa dari access, excel, dbf, txt, xml, odbc (sql server,
> oracle, mysql, postgresql, dkk).
>
> jadi sebaiknya yang anda maintenance adalah form link table2 tersebut,
> dan tidak perlu di display di form untuk end user.
>
>
> aksan kurdin
>
>
>
> On 6/8/2011 1:25 PM, imam safari wrote:
> > gimana caranya menampilkan nama file back end di form yang sedang tampil
> >
> > kalau nama file acces yang sedang di buka di front end kalau ngak salah
> >
> > me.namafile = currentdb.name
> >
> > maka nama filenya muncul kalau nama file backend supaya muncul gimana
> > yah para suhu tuloong dibantu
> >
> > terima kasih atas jawabannya
> >
>

__._,_.___

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

__,_._,___