ms access gives run time error 2471 during Dlookup - ms-access

Question

I have a form that allows the user to add records to a table. I am trying to add a button that will allow them to copy the currently displayed record to a new record.
My code is:
Private Sub Command1947_Click()
Dim currentID As Long
If IsNull(Panel_ID) Then
MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
Exit Sub
End If
currentID = Panel_ID
DoCmd.GoToRecord record:=acNewRec
MsgBox prompt:=DLookup("Job_Number", "Table1", "Panel_ID=" & currentID), buttons:=vbExclamation
Job_Number = DLookup("Job_Number", "Table1", "Panel_ID=" & currentID)
Date_of_MFG = DLookup("Date_of_MFG", "Table1", "Panel_ID=" & currentID)
'Build_Hours = DLookup("Build_Hours", "Table1", "Panel_ID=" & currentID)
Quality_Initials = DLookup("Quality_Initials", "Table1", "Panel_ID=" & currentID)
Builders = DLookup("Builders", "Table1", "Panel_ID=" & currentID)
'Shop_Location = DLookup("Shop_Location", "Table1", "Panel_ID=" & currentID)
Customer_Name = DLookup("Customer_Name", "Table1", "Panel_ID=" & currentID)
Customer_Part = DLookup("Customer_Part", "Table1", "Panel_ID=" & currentID)
'Ship_First_Pass = DLookup("Ship_First_Pass", "Table1", "Panel_ID=" & currentID)
LOM = DLookup("LOM", "Table1", "Panel_ID=" & currentID)
'Prints_Red_Lined = DLookup("Prints_Red_Lined", "Table1", "Panel_ID=" & currentID)
Quality_Touch_Points = DLookup("Quality_Touch_Points", "Table1", "Panel_ID=" & currentID)
Spot_Checker_Initials = DLookup("Spot_Checker_Initials", "Table1", "Panel_ID=" & currentID)
'Drawings_Highlighted = DLookup("Drawings_Highlighted", "Table1", "Panel_ID=" & currentID)
End Sub
Panel Id is my primary key and is an autogenerated sequential number.
Table1 is the name of the table that contains the data.
When I run the code Build Hours, Shop Location, Ship First Pass, Prints Red Lined, and Drawings Highlighted all give me:
Run-time error '2471': The expression you entered as a query parameter produced this error: 'Build_Hours'
Build Hours is a decimal number and the other 4 that generate the error are all short text. It seems like the code can't find these fields within the table.
In addition, when set the 5 fields that generate the error as notes and run the rest of the code, all of the other fields only seem to return null values to the new record.
Right now it seems like the MsgBox and moving to a new record after getting the Panel ID from the old record are the only parts that are working.
I learned how to use Access a long time ago but it seems to have changed a lot since and I am basically relearning it as I use it and with the help of google searches so please be patient with me.

Answer 1

I Assume Panel_ID is a number type. Also assume controls have same names as fields they are bound to.
If field names have space instead of underscore, enclose in [ ]. Use form prefix to reference form's fields and controls. Me can be used as alias for form name in code behind that form.
With Me
currentID = .[Panel ID]
DoCmd.GoToRecord record:=acNewRec
.[Job Number] = DLookup("[Job Number]", "Table1", "[Panel ID]=" & currentID)
...
End With
Instead of multiple calls with DLookup, do one call to open a recordset object and pull data.
Dim rs As DAO.Recordset
With Me
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1 WHERE [Panel ID] =" & .[Panel ID])
DoCmd.GoToRecord record:=acNewRec
.[Job Number] = rs![Job Number]
...
End With
Alternatively, since data has already been pulled by bound form:
Dim JN, DOM, ...
With Me
JN = .[Job Number]
DOM = .[Date of Mfg]
...
DoCmd.GoToRecord record:=acNewRec
.[Job Number] = JN
.[Date of Mfg] = DOM
...
End With
Strongly advise not to use spaces nor punctuation/special characters in naming convention nor reserved words as names.