Question

Currently I have a textbox that will display some text based on the search criteria. The text that is displayed will be the name of a table. Is it possible for me to make it so that if I click on the name of the table in the textbox, it will open the table for me?

Answer 1

In the click event of the textbox:

DoCmd.OpenTable Me.MyTextbox

Edit re comment, this is a sketch and will not work if the table name has spaces.

Private Sub Text0_Click()
    i = Me.Text0.SelStart
    j = InStr(i, Me.Text0, " ")
    k = InStrRev(Me.Text0, " ", i)
    tbl = Mid(Me.Text0, k, j - k)
    DoCmd.OpenTable tbl
End Sub

Or better, capture the construction in a listbox by row, rather than in a textbox.

Based on you code sample, you can say:

Public Sub SearchTables(SearchString As String)
Dim tdf As DAO.TableDef
Dim sTable As String
Dim sField As String
Dim sMsg As String
sMsg = ""
For Each tdf In CurrentDb.TableDefs

    sTable = tdf.Name
    sField = SearchTable(sTable, SearchString)
    If sField <> vbNullString Then
        sMsg = sMsg & ";" & sTable & ";" & sField
    End If
Next
'listbox0
'Row source type: Value List
'Column count: 2
'You will get a two column listbox with table in one column
'and field in another
Forms!Search!listbox0.RowSource = Mid(sMsg, 2)
End Sub

Then in the click event for listbox0:

Private Sub listbox0_Click()
    DoCmd.OpenTable Me.listbox0
End Sub