Deleting text form another tables' field

C

Cyberwolf

I have a table that when I delete a record, I want to delete a certain amount
of text from a field in another table. I have tried several ways
unsuccessfully. Here is my most recent code.

Private Sub Form_AfterDelConfirm(STATUS As Integer)

If STATUS = acDeleteOK Then

Me.[qry:Dillards JE Counts subform].Form.Requery

If Mid(Forms![frm:Dillards Current TB]![STATUS], 2, 1) = "/" And _
Mid(Forms![frm:Dillards Current TB]![STATUS], 4, 1) = "/" Then

Forms![frm:Dillards Current TB]![STATUS] = _
Mid(Forms![frm:Dillards Current TB]![STATUS], 18)

End If

If Mid(Forms![frm:Dillards Current TB]![STATUS], 3, 1) = "/" And _
Mid(Forms![frm:Dillards Current TB]![STATUS], 5, 1) = "/" Then

Forms![frm:Dillards Current TB]!STATUS = _
Mid(Forms![frm:Dillards Current TB]![STATUS], 19)

End If

If Mid(Forms![frm:Dillards Current TB]![STATUS], 3, 1) = "/" And
Mid(Forms![frm:Dillards Current TB]![STATUS], 6, 1) = "/" Then

Forms![frm:Dillards Current TB]!STATUS = Mid(Forms![frm:Dillards
Current TB]![STATUS], 20)

End If

End If

The nested if statements test for the lenght of the date at the beginning of
the text. Any help would be greatly appreciated.
 
Top