Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub Delete_Click() On Error GoTo Err_Delete_Click Dim db As Database Dim dbqt As String Dim yesh As Boolean Dim button As Boolean Dim buttonclicked As Integer yesh = True button = True dbqt = (Chr$(34)) Set db = CurrentDb buttonclicked = MsgBox("To Delete Purchased (Purchasing) Items Click YES" & (Chr$(13)) & (Chr$(13)) & " To Delete Manufactured (Production) Items Click NO", 291, "Delete Manufactured Parts or Purchased Parts") If buttonclicked = 6 Then button = True ElseIf buttonclicked = 7 Then button = False End If db.Execute "Delete * FROM [Requisition Pur] WHERE ((([Requisition Pur].Ordered)= " & yesh & ") AND (([Requisition Pur].Purch)= " & button & "));" 'Dim MyQuery As String 'DoCmd.SetWarnings False 'MyQuery = "Requisition Ordered-Delete" 'DoCmd.OpenQuery MyQuery 'DoCmd.SetWarnings True Me.Requery Exit_Delete_Click: Exit Sub Err_Delete_Click: MsgBox Err.Description Resume Exit_Delete_Click End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!