I have a form which allows users to select or input characteristics that then are entered into a table, and then click to move on to the next entry. I can't seem to get it to work right. When I try to run it, I get an error that says "Invalid or Unqualified Reference."
It focuses on the section that says ![Specimen Type]
Code:
Private Sub NewBall_Click()
DoCmd.GoToRecord , , acNewRec
If SpecimenTypeCheck = True Then
Me.SpecimenType = ![Specimen Type]
Else
Me.SpecimenType = ""
End If
If InputByCheck = True Then
Me.InputBy = ![Input by]
Else
Me.InputBy = ""
End If
If MaterialCheck = True Then
Me.Material = ![Material]
Else
Me.Material = ""
End If
If RecordingDateCheck = True Then
Me.RecordingDate = ![Recording Date]
Else
Me.RecordingDate = ""
End If
If ProjectCheck = True Then
Me.Project = ![Project Number]
Else
Me.Project = ""
End If
If MaterialCertCheck = True Then
Me.MaterialCert = ![Material Cert]
Else
Me.MaterialCert = " "
End If
If VendorCheck = True Then
Me.Vendor = ![Vendor]
Else
Me.Vendor = ""
End If
If BallDiaCheck = True Then
Me.BallDia = ![Ball Diameter]
Else
Me.BallDia = ""
End If
If AvgHardHRCCheck = True Then
Me.AvgHardHRC = ![Average Hardness HRC]
Else
Me.AvgHardHRC = ""
End If
If AvgRoughACheck = True Then
Me.AvgRoughA = ![Average Roughness Side A (uin)]
Else
Me.[Average Roughness Side A (uin)] = ""
End If
If CaseDepthCheck = True Then
Me.CaseDepth = ![Initial Case Depth (in)]
Else
Me.CaseDepth = ""
End If
If CoatThickCheck = True Then
Me.CoatThick = ![Coating Thickness]
Else
Me.CoatThick = ""
End If
If CommentsCheck = True Then
Me.Comments = ![Comments]
Else
Me.Comments = ""
End If
If Incriment_SN = True Then
End Sub
Any ideas?