Help saving record

[aca00js]

I am using the code

Private Sub cmdNew_Click()

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select * from Incident")

rst.AddNew
rst!IncidentID = txtId
rst!IncidentDate = txtDate
rst!ArrestMade = comArrest
rst!CID170FormHandedIn = comCID170
rst!OffenderID = frmOffender.CurrentRecord(OffenderID)
rst!VictimID = frmVictim.CurrentRecord(VictimID)
rst!CollarNum = frmOfficer.txtCollarNumber
rst.Update
rst.Close
MsgBox ("Incident added to system.")
DoCmd.Close

End Sub

to save a record but I keep getting run time error 424 Object need refering to this line

rst!OffenderID = frmOffender.CurrentRecord(OffenderID)

Can anyone help

 

[Rich]

rst!OffenderID = Me.txtOffenderID

 

[aca00js]

I am now getting the run-time error Method or Data Member not found. Relating to Me.OffenderID of the line:

rst!OffenderID = Me.OffenderID

There is no textbox called this on the frmOffender object. The OffenderID is hindden from the user.

 

[Rich]

Then replace Me.OffenderID
with Me.TheNameOfTheControl that contains offenderID