SHARE
TWEET

Untitled

a guest Jan 22nd, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub delpath()
  2.  
  3. Dim dbinputC As String
  4.  
  5. dbinputC = "[" & Application.CurrentProject.Path & "CUSTOMER.accdb" & "]"
  6.  
  7. DoCmd.RunSQL "DELETE pathway FROM " & dbinputC & ".SPECPATH (WHERE pathway <> Null);"
  8.  
  9. End Sub
  10.    
  11. Dim dbinputC As String
  12.  
  13. dbinputC = "'" & Application.CurrentProject.Path & "CUSTOMER.accdb" & "'"
  14. DoCmd.RunSQL "DELETE pathway FROM SPECPATH (WHERE pathway <> Null) IN " & dbinputC & ";"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top