Oscar Sun

                  Function 資料表物件尋找() '2015/12/15
				Dim strObjectName As String, t
				strObjectName = InputBox("請輸入物件名")
				For Each t In CurrentData.AllTables
				    If InStr(t.Name, strObjectName) Then
				        DoCmd.SelectObject acTable, t.Name, True: Exit Function
				    End If
				Next
				MsgBox "沒找到", vbExclamation
End Function