ลองดูฟังก์ชันนี้ครับ

Function FindTable(strTable As String) As Boolean
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then
FindTable = True
Exit Function
Else
FindTable = False
End If
Next
End Function

เวลาใช้ก็ใส่ชื่อตารางที่จะค้นหาลงไป ถ้าเจอ จะได้ค่า True ถ้าไม่เจอจะได้ค่า False ครับ

? FindTable("Table1")
True