I have a piece of code that stores a selection a user makes in a sub form. Code is below for reference. Whenever a user selects option 9 It throws the error message
"Run-time error '3075':
Syntax error (missing operator) in query expression "data stored in varReason is displayed here".
What am I doing wrong?!?!??! If they select any other reason it works just fine. Thanks for your help in advance.
Code:
Dim varFormReason
Dim varReason As String
Dim varDenSelect
Dim varOfferID
Dim varDocDesc
Dim varDenFrameValue
Dim mySQL
Dim varOfferIDCheck
Dim db As DAO.Database
Dim rst As DAO.Recordset
varDenFrameValue = Abs(Me.frameDenialOptions.Value)
If varDenFrameValue = 0 Then
MsgBox "Must select reason before saving.", vbOKOnly
Exit Sub
End If
If varDenFrameValue = 1 Then
varReason = Form_SfrmDenialReason.lblReason_1.Caption
End If
If varDenFrameValue = 2 Then
varReason = Form_SfrmDenialReason.lblReason_2.Caption
End If
If varDenFrameValue = 3 Then
varReason = Form_SfrmDenialReason.lblReason_3.Caption
End If
If varDenFrameValue = 4 Then
varReason = Form_SfrmDenialReason.lblReason_4.Caption
End If
If varDenFrameValue = 5 Then
varReason = Form_SfrmDenialReason.lblReason_5.Caption
End If
If varDenFrameValue = 6 Then
varReason = Form_SfrmDenialReason.lblReason_6.Caption
End If
If varDenFrameValue = 7 Then
varReason = Form_SfrmDenialReason.lblReason_7.Caption
End If
If varDenFrameValue = 8 Then
varReason = Form_SfrmDenialReason.lblReason_8.Caption
End If
If varDenFrameValue = 9 Then
' Forms![frmNON-CORPOfferInformation].Requery
varReason = Forms![frmNON-CORPOfferInformation].DenReason.Value
RunCommand acCmdSaveRecord
End If
DoCmd.SetWarnings False
Set db = Access.Application.CurrentDb
Set rst = db.OpenRecordset("DenialReason")
varDenSelect = frameDenialOptions.Value
varOfferID = Forms![frmNON-CORPOfferInformation].OfferID.Value
varDocDesc = "QryDelDenialReason"
DoCmd.OpenQuery varDocDesc, acViewNormal
mySQL = "INSERT INTO DenialReason (OfferID, DenialReason, DenSelect) VALUES ('" & varOfferID & "','" & varReason & "', '" & varDenSelect & "')"
CurrentDb.Execute mySQL, dbFailOnError
' MsgBox "Denial Reason Saved.", vbOKOnly
DoCmd.SetWarnings True