Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.
Function import(tableName As String) Dim strSQLDelete As String Dim strSQLImport As String Dim directoryName As String directoryName = "S:\ABCentre\ABDataC.mdb" strSQLDelete = "DELETE * FROM [" & tableName & "];" strSQLImport = "INSERT INTO " & tableName & " SELECT * From [" & directoryName & "].[" & tableName & "]" With DoCmd .SetWarnings False .RunSQL strSQLDelete .RunSQL strSQLImport .SetWarnings True End With End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.