"The following unexpected error occurred in Sub CopyMySQLbttn_Click,
line #250, CBF on frmVehicleChooserform. 2465: "Can't find the field
'forms' referred to in your expression. You may have misspelled the
field name, or the field may have been renamed or deleted."
The above error is returned when running the following click code.
I don't understand what the error means.
Private Sub CopyMySQLbttn_Click()
On Error GoTo ErrorCopyMySQLbttn_Click
Dim ThisForm As String
ThisForm = Me.Name
100 Dim dtxt As Object
125 Set dtxt = Me!TextHolder
150 Me!TextHolder = MySQL
175 DoCmd.GoToControl "TextHolder"
200 dtxt.SelStart = 0
225 dtxt.SelLength = 13
250 DoCmd.RunCommand acCmdCopy
275 MsgBox "Done"
ExitCopyMySQLbttn_Click:
Exit Sub
ErrorCopyMySQLbttn_Click:
Dim r As String, k As String, Message3 As String
r = "The following unexpected error occurred in Sub
CopyMySQLbttn_Click, line #" & Trim$(CStr(Erl)) & ", CBF on " &
ThisForm & "."
k = CRLF & CRLF & str$(Err) & ": " & Quote & Error$ & Quote
Message3 = r & k
MsgBox Message3, 48, "Unexpected Error - " & MyApp$ & ", rev. " &
MY_VERSION$
Resume ExitCopyMySQLbttn_Click
End Sub