Do you work with and analyze data? Enroll in October's Course of the Month for 7+ hours of SQL training, allowing you to quickly and efficiently store or retrieve data. It's free for Premium Members, Team Accounts, and Qualified Experts!
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.