SubForm - Current Record

[cratediggah]

I am writing an auditing trail for my database. I have a form, within this form is a SubForm that is modified by the user. The audit works great, using the code below - however, I need to record the ID (autonumber) for each change, as you can see I've tried several ways, however it always gives me "1" as the record number when using CurrentRecord. Any ideas?

...
If rs.RecordCount > 0 Then rs.MoveLast
With rs
.AddNew
rs!FormName = Screen.ActiveForm.Name
rs!ControlName = strCtl
rs!RecordID = Screen.ActiveForm.CurrentRecord
rs!DateChanged = Date
rs!TimeChanged = Time()
rs!PriorInfo = Screen.ActiveControl.OldValue
rs!NewInfo = Screen.ActiveControl.Value
rs!CurrentUser = fOSUserName
.Update
End With

 

[SydneyGeek]

If you are running the audit code from the subform, try

rs!RecordID = Me.TheIDFieldForTheSubform 'change to suit

If you are running it from the main form, you need to reference the subform first:

rs!RecordID = MySubform.Form!TheIDFieldForTheSubform 'change to suit

Denis