daily pastebin goal
36%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DoCmd.RunSQL "UPDATE InspEvent " & _
  2.                  "SET InspEvent.SpecsLoaded = lngRecordsAdded " & _
  3.                  "WHERE InspEvent.EventId = [Forms]![frmInspEvent]![txtEventId];"
  4.    
  5. DoCmd.RunSQL "UPDATE InspEvent " & _
  6.              "SET InspEvent.SpecsLoaded = " & lngRecordsAdded & _
  7.              " WHERE InspEvent.EventId = " & [Forms]![frmInspEvent]![txtEventId]
  8.    
  9. Dim qdf As DAO.QueryDef
  10. Set qdf = CurrentDb.QueryDefs("", "PARAMETERS RecordsAdded LONG, Event_Identifier LONG; " & _
  11.     "UPDATE InspEvent SET SpecsLoaded=RecordsAdded " & _
  12.     "WHERE EventID = Event_Identifier")
  13. With qdf
  14.     .Parameters("RecordsAdded") = lngRecordsAdded
  15.     .Parameters("Event_Identifier") = [Forms]![frmInspEvent]![txtEventId]
  16.     .Execute
  17. End With
  18.    
  19. If IsNull(DLookup("Vendor", "PurchaseOrder", strFilter)) Then
  20.     strVendor = "None"
  21. Else
  22.     strVendor = DLookup("Vendor", "PurchaseOrder", strFilter)
  23. End If
  24.    
  25. strVendor = Nz(DLookup("Vendor", "PurchaseOrder", strFilter), "None")
RAW Paste Data
Top