With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!