Bls: [belajar-access] syntax apakah ada tabel

Option Compare Database Option Explicit Private Sub cmdCariTable_Click() Dim Cari$, x% Cari = InputBox("Cari nama tabel")      If CariTabel("Table", Cari) Then         x = MsgBox("Mas chairun , table nya udah ada", 64, "Message")         Else         x = MsgBox("Mas chairun , table nya gak ada", 64, " Message")      End If End Sub Function CariTabel(strType$, strNama$) As Boolean      'Dibutuhkan References : Microsoft DAO 3.6 Object Library untuk ini      Dim db As Database      Dim tbl As TableDef           Set db = CurrentDb()      CariTabel = False           If strType = "Table" Then           For Each tbl In db.TableDefs                If tbl.Name = strNama Then                     CariTabel = True                     Exit Function                End If           Next tbl      End If End Function   Salam, ~ Sioon ~ --- Pada Jum, 7/1/11, chairun chaidirsyah <chairun_ch@yahoo.com> menulis: Dari: chairun chaidirsyah <chairun_ch@yahoo.com> Judul: [belajar-access] syntax apakah ada tabel Kepada: belajar-access@yahoogroups.com Tanggal: Jumat, 7 Januari, 2011, 4:18 AM   salam, untuk pakar access disini, saya mau tanya syntax access untuk menanyakan apakah ada nama tabel x di dalam database ini . terima kasih atas pencerahannya chairun

__._,_.___

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

__,_._,___