Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim db As Database Dim rstDelete As Recordset Dim DeleteString As String Set db = CurrentDb Set rstDelete = Forms!frmSetsDetail!frmSetsDetailSub.Form.RecordsetClone DeleteString = "[SetsRepID] = " & Me!StrengthID If IsNull(Me.frmSetsDetailSub.Form!SetsRepID) Then DisplayMessage ("There are no Sets to delete!") Exit Sub Else Do While Not rstDelete.EOF With rstDelete .FindFirst DeleteString .Edit .Delete End With rstDelete.MoveNext Loop End If Forms!frmSetsDetail!frmSetsDetailSub.Form.Requery
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.