When clicking on text will link me to table - ms-access

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

Answer 2

Do you mean specifically clicking on the text that is the name...
so if the text were "John 12345 THE TABLE" you want just THE TABLE to open?
Not enough information to give a solid answer, but if you wanted to just get THE TABLE from the above text then you could use screen coordinates based on where you click in relation to the position of text. It would be far easier to do it another way...

Answer 3

If the format of your text is like this:
Table = NAMEOFTABLE Field = NAMEOFSEARCH Table = NAMEOFTABLE2 Field = NAMEOFSEARCH2
You could use this code:
Private Sub Text0_Click()
i = Me.Text0.SelStart
If i > 0 Then
startTable = InStrRev(Me.Text0, "Table = ", i)
startField = InStr(startTable + 8, Me.Text0, "Field = ")
If startTable > 0 And i < InStr(startTable + 8, Me.Text0, "Field = ") Then
DoCmd.OpenTable Mid(Me.Text0, startTable + 8, startField - startTable - 9)
End If
End If
End Sub
If you click on the name of any table, it will open that table.
Here a little explanation: using current position of the cursor, I'm searching backwards for the "Table = " string, and from there I'm searching for the next string "Field = ". All we have to do is to check if the cursor is before next field.