dropdown problem

[Datacruz via AccessMonster.com]

I have a form that uses two codes one to date stamp a change Private Sub
Form_BeforeUpdate(Cancel As Integer)

If Me.Dirty = True Then
If MsgBox("Do you wish to save the changes?", vbQuestion + vbYesNo, "Save
Record?") = vbNo Then
Cancel = True
Me.Undo
Else
LastModified = date
End If
End If
and when i use the drop down list i get the Last modified=date is highlighted
in yellow when i try go go to another record. the drop down list uses the
following code. How can keep what I have and be able to go to another record?
Private Sub Form_Current()
Combo155 = SSI
Combo194 = SSI
Me!Combo155.Requery
Me!Combo194.Requery.
All code is in one form. Please assist as I have no clue why it does this the
error code 3020

 

[Daryl S]

If LastModified is a field on your form, then change your code to
Me.LastModified.

 

[Datacruz via AccessMonster.com]

I did change code as it was suggested however VBA opens up with the Me!
combo184.Requery higliged and I am unable to continue to save the record.
Again thanks in advance for any and all help
Private Sub Form_Current()
Combo155 = SSI
Combo194 = SSI
Me!Combo155.Requery
Me!Combo194.Requery

If LastModified is a field on your form, then change your code to
Me.LastModified.

I have a form that uses two codes one to date stamp a change Private Sub
Form_BeforeUpdate(Cancel As Integer)

[quoted text clipped - 18 lines]

All code is in one form. Please assist as I have no clue why it does this the
error code 3020