Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Dim frm As Form Dim ctl As Control Dim db As DAO.Database Dim strsql As String Dim i As Variant Set frm = Forms("f_SubTaskAssignments") Set ctl = frm![lstExistingAssignments] Set db = CurrentDb For Each i In ctl.ItemsSelected strsql = "DELETE FROM SubTaskAssignment WHERE " & _ "[TaskOrderID] = " & ctl.Column(0, i) & " AND [SubTaskID] = " & ctl.Column(5, i) & " And [CompanyID] = " & ctl.Column(6, i) & " And [PersonID] = " & ctl.Column(7, i) & " And [ReportAs] = " & ctl.Column(4, i) db.Execute strsql, dbFailOnError ctl.Requery Next i CurrentDb.Execute strsql, dbFailOnError End Sub
|Access Text File Export Results in Very Large File size||11||28|
|unable to execute Update query in Access 2016 on a table linked to SQL.||5||32|
|Access Date Query||28||27|
|MS Access Query Combining Unsure If to Use a Union Query or Not||3||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!