ขอเก็บไว้ก่อน

ขอบคุณครับ

ขอเพิ่ม (ไม่รู้ว่าถูกต้องหรือไม่แต่เอาไปใช้แล้ว)

Table Name
SELECT MSysObjects.Flags, MSysObjects.Id, MSysObjects.Name, MSysObjects.ParentId, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1) AND (((SELECT MSysObjects.Id
FROM MSysObjects
WHERE MSysObjects.Name = "Tables"))=[MSysObjects].[ParentId]));

Form Name
SELECT MSysObjects.Flags, MSysObjects.Id, MSysObjects.Name, MSysObjects.ParentId, MSysObjects.Type
FROM MSysObjects
WHERE ((((SELECT MSysObjects.Id
FROM MSysObjects
WHERE MSysObjects.Name = "Forms"))=[MSysObjects].[ParentId]));

Query Name
SELECT MSysObjects.Flags, MSysObjects.Id, MSysObjects.Name, MSysObjects.ParentId, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=5));

Report Name
SELECT MSysObjects.Flags, MSysObjects.Id, MSysObjects.Name, MSysObjects.ParentId, MSysObjects.Type
FROM MSysObjects
WHERE ((((SELECT MSysObjects.Id
FROM MSysObjects
WHERE MSysObjects.Name = "Reports"))=[MSysObjects].[ParentId]));

'******************** Code Start ************************
'This code was originally written by Dev Ashish.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            'Table Exists
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function

http://www.mvps.org/access/tables/tbl0001.htm

Function tbExists(ByVal tbN As String) As Integer 'Boolean
tbExists = DCount("*", "MsysObjects", "[Name] = '")
End Function

สั้นพอไหมครับ

Function tbExists(ByVal tbN As String) As Integer 'Boolean
tbExists = DCount("*", "MsysObjects", "[Name] = '" & tbN & "'" )
End Function

อีกที ตกไปหน่อย

ลองใช้แล้ว ใช้ได้ทุกอย่างเลยครับทั้ง ตาราง, คิวรี่, ฟอร์ม, รีพอร์ต, โมดูล
ขอบคุณครับท่าน

รบกวนถามเพิ่มเติมครับ
ถ้าต้องการตรวจสอบว่ามี field ชื่อ price อยู่ในตารางชื่อ tbProduct หรือไม่
มี function ตรวจสอบหรือไม่ครับ

หลายโค้ดหลายฟังก์ชั่น รวบรวมมา, ดัดแปลง, แต่งเติม, หรือเขียนใหม่ ขึ้นมาหลายตัวครับ แวะไปลอกเอาครับ
yeadram.wordpress.com