My code is adding a blank record before it writes the record with the data to my Problem_Record tbl.
What am I doing wrong?
Code:
Private Sub cmdAddRecord_Click()
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("SELECT * FROM [Problem_Record]")
R.AddNew
R![TeamID] = Me.cboManager.Column(0)
R![Manager] = Me.cboManager.Column(1)
R![COD] = Me.cboCOD.Value
R![Fiscal_Year] = Me.cboFiscal_Year.Value
R![Quarter] = Me.cboQuarter.Value
R![Date_Opened] = Me.txtDateOpened.Value
R![Contract_Number] = Me.txtContractNumber.Value
R![CategoryID] = Me.cboCategory.Column(0)
R![Category] = Me.cboCategory.Column(1)
R![ProblemID] = Me.cboProblem.Column(0)
R![Problem] = Me.cboProblem.Column(1)
R![StaffID] = Me.cboStaff.Column(0)
R![Staff] = Me.cboStaff.Column(1)
R![Description] = Me.txtDescription.Value
R.Update
R.Close
Set R = Nothing
'Clear fields
Me.Manager = ""
Me.COD = ""
Me.Fiscal_Year = ""
Me.Quarter = ""
Me.Date_Opened = ""
Me.Contract_Number = ""
Me.Category = ""
Me.Problem = ""
Me.Staff = ""
Me.Description = ""
If Me.Dirty = True Then Me.Dirty = False
End Sub