Code:
On Error GoTo Err_Enter_Request_Click
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tblMain")
rs.AddNew
rs!Prosecutor = IIf(Me.Prosecutor.Value = "", Null, Me.Prosecutor.Value)
rs!dateIn = IIf(Me.dateIn.Value = "", Null, Me.dateIn.Value)
rs!dateout = IIf(Me.dateout.Value = "", Null, Me.dateout.Value)
rs!CTN = IIf(Me.CTN.Value = "", Null, Me.CTN.Value)
rs!ICNIC = IIf(Me.ICNIC.Value = "", Null, Me.ICNIC.Value)
rs!DFirst = IIf(Me.DFirst.Value = "", Null, Me.DFirst.Value)
rs!DLast = IIf(Me.DLast.Value = "", Null, Me.DLast.Value)
rs!PoliceAgency = IIf(Me.PoliceAgency.Value = "", Null, Me.PoliceAgency.Value)
rs!Status = IIf(Me.Status.Value = "", Null, Me.Status.Value)
'rs!ChargeType = IIf(Me.ChargeType.Value = "", Null, Me.ChargeType.Value)
rs!FramePrincipalCharge = IIf(Me.FramePrincipalCharge.Value = "", Null, Me.FramePrincipalCharge.Value)
rs!PrincipalCharge = IIf(Me.PrincipalCharge.Value = "", Null, Me.PrincipalCharge.Value)
rs!FrameCharge2 = IIf(Me.FrameCharge2.Value = "", Null, Me.FrameCharge2.Value)
rs!Charge2 = IIf(Me.Charge2.Value = "", Null, Me.Charge2.Value)
rs!FrameCharge3 = IIf(Me.FrameCharge3.Value = "", Null, Me.FrameCharge3.Value)
rs!Charge3 = IIf(Me.Charge3.Value = "", Null, Me.Charge3.Value)
rs!InPersonInterviews = IIf(Me.InPersonInterviews.Value = "", Null, Me.InPersonInterviews.Value)
rs!PhoneInterviews = IIf(Me.PhoneInterviews.Value = "", Null, Me.PhoneInterviews.Value)
rs!SearchWarrants = IIf(Me.SearchWarrants.Value = "", Null, Me.SearchWarrants.Value)
rs!VideosReviewed = IIf(Me.VideosReviewed.Value = "", Null, Me.VideosReviewed.Value)
rs!TimeSpent = IIf(Me.TimeSpent.Value = "", Null, Me.TimeSpent.Value)
rs!Notes = IIf(Me.Notes.Value = "", Null, Me.Notes.Value)
If Me.Dirty Then
Me.Undo
End If
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing
Prosecutor.Value = ""
dateIn.Value = Date
dateout.Value = ""
CTN.Value = ""
ICNIC.Value = ""
DFirst.Value = ""
DLast.Value = ""
PoliceAgency.Value = ""
Status.Value = Null
'ChargeType.Value = Null
PrincipalCharge.Value = ""
InPersonInterviews.Value = ""
PhoneInterviews.Value = ""
SearchWarrants.Value = ""
VideosReviewed.Value = ""
TimeSpent.Value = ""
Notes.Value = ""
Me.Notes.BackColor = 16777215
'ChargeType.Enabled = False
Me.PrincipalCharge.Enabled = False
Me.Charge2.Enabled = False
Me.Charge3.Enabled = False
Me.Charge1Felony.Enabled = False
Me.Charge1Misd.Enabled = False
Me.Charge2Felony.Enabled = False
Me.Charge2Misd.Enabled = False
Me.Charge3Felony.Enabled = False
Me.Charge3Misd.Enabled = False
Me.FramePrincipalCharge.Value = Null
Me.FrameCharge2.Value = Null
Me.FrameCharge3.Value = Null
Me.PrincipalCharge = ""
Me.Charge2 = ""
Me.Charge3 = ""
ClearStatusBarMsg
MsgBox "Your Record was Saved"
Prosecutor = ""
dateIn = Date
dateout = ""
CTN = ""
ICNIC = ""
DFirst = ""
DLast = ""
PoliceAgency = ""
Status = Null
'ChargeType = Null
PrincipalCharge = ""
InPersonInterviews = ""
PhoneInterviews = ""
SearchWarrants = ""
VideosReviewed = ""
TimeSpent = ""
Notes = ""
Me.Notes.BackColor = 16777215
ClearStatusBarMsg
Prosecutor.SetFocus
'ChargeType.Enabled = False
Me.PrincipalCharge.Enabled = False
Me.Charge2.Enabled = False
Me.Charge3.Enabled = False
Me.Charge1Felony.Enabled = False
Me.Charge1Misd.Enabled = False
Me.Charge2Felony.Enabled = False
Me.Charge2Misd.Enabled = False
Me.Charge3Felony.Enabled = False
Me.Charge3Misd.Enabled = False
Me.FramePrincipalCharge.Value = Null
Me.FrameCharge2.Value = Null
Me.FrameCharge3.Value = Null
Me.PrincipalCharge = ""
Me.Charge2 = ""
Me.Charge3 = ""
Exit_Enter_Request_Click:
Exit Sub
Err_Enter_Request_Click:
MsgBox "Record NOT ENTERED. Make sure all fields in red have been entered and try again."
Resume Exit_Enter_Request_Click
End Sub