bila yg dimaksud adalah table-table di backend (ms sql server), bisa dg view sbb :
SELECT name FROM sysobjects WHERE (xtype = 'U') ORDER BY name cmiiw sinung ref : http://msdn.microsoft.com/en-us/library/ms177596.aspx sys.sysobjects (Transact-SQL) On 10 Jun 2010 at 18:37, hari yanto wrote: > Mungkin bisa menggunakan prosedur seperti ini: > > Private Sub Command0_Click() > Dim rbs As Recordset > Dim x_m, s_j As Variant > x_m = "" > s_j = 0 > Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _ > & " FROM MSysObjects WHERE MSysObjects.Type=1 And MSysObjects.Flags=0" _ > & " ORDER BY MSysObjects.Name") > If Not rbs.EOF Then > Do While Not rbs.EOF > s_j = s_j + 1 > x_m = x_m & vbCrLf & s_j & ". " & rbs.Fields(0) > rbs.MoveNext > Loop > End If > rbs.Close > Set rbs = Nothing > > MsgBox "Jumlah tabel " & s_j & ". Terdiri dari: " & x_m > End Sub > > Semoga bisa membantu.. > > Hariyanto (Surabaya) > > > --- On Thu, 10/6/10, GALIH PERSADHA <[email protected]> wrote: > > > From: GALIH PERSADHA <[email protected]> > Subject: [belajar-access] menampilkan nama tabel - tabel yang ada di database > To: [email protected] > Date: Thursday, 10 June, 2010, 3:12 PM > > > bagaimana cara menampilkan nama - nama tabel yang > ada dalam seuah database yang kita pakai di ms > access project > > mohon solusinya /*-sig- Argumen yang aneh, karena video itu jelas-jelas menunjukkan pasukan Israel menyerbu kapal. Mana ada pasukan menyerbu lalu tiba-tiba mengaku membela diri. http://idiotnesia.com/2010/06/03/kisah-keoknya-pasukan-komando-israel/ -sig-*/
