Fw: [belajar-access] Re: Cek Objek

cara yg saya dapatkan begini mas,

Public Function f_CekTable(strNamaTable As String) As Integer

    Dim tdf As TableDef

    Dim intResponse As Integer

    Dim blnTableExists As Boolean

    

    blnTableExists = False      

    For Each tdf In CurrentDb.TableDefs

      If tdf.Name = strNamaTable Then

        blnTableExists = True

          Exit For

      End If

    Next

     

    If blnTableExists Then

      MsgBox "Table [" & strNamaTable & "] hasbeen exist!", vbOKOnly + vbExclamation, "NTR"

      f_CekTable = 1

    Else

      f_CekTable = 0

    End If

End Function

**tap

Powered by Lenovo^L

----- Forwarded Message ----
From: N17R4 H4F45 <nitra_hafas@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Thursday, November 18, 2010 12:39:52
Subject: Re: [belajar-access] Re: Cek Objek

terima kasih mas aksan,  

maksud saya sih pengen tau sebuah table udah ada apa blm.

cari2 caranya Alhamdulillah udah bisa.

matur suwun sakdurunge....

Powered by Lenovo^L

---

From: aksankurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Wednesday, November 17, 2010 9:51:49
Subject: [belajar-access] Re: Cek Objek

 

obyek apa ?
semisal form, coba aja pancing dengan error handling:

on error resume nexter
dim dummy as text
dummy = forms("nama form").caption
if err.number <> 0 then
msgbox "obyek form tidak ada"
endif

aksan kurdin

--- In belajar-access@yahoogroups.com, N17R4 H4F45 <nitra_hafas@...> wrote:
>
> Para master....
> Bagaimana ya code VBA untuk ngecek objek ada /enggak di access?
>
> thx
>

__._,_.___

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

__,_._,___