We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Command2_Click() Dim strSQL As String DoCmd.SetWarnings False DoCmd.Rename "Data_complete_OLD", acTable, "Data_complete" strSQL = "SELECT DISTINCT * INTO Data_complete FROM Data_complete_OLD" & vbCrLf CurrentDb.Execute strSQL, dbFailOnError DoCmd.DeleteObject acTable, "Data_complete_OLD" Dim tdf As DAO.TableDef For Each tdf In CurrentDb.TableDefs If InStr(tdf.Name, "error") > 0 Then DoCmd.DeleteObject acTable, tdf.Name End If Next tdf DoCmd.SetWarnings True MsgBox "done" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|linked sql server tables - should I or shouldn't I and why||4||63|
|Reports issues going from Access 2003 to Access 2013||14||71|
|Fields don't match on a query||9||47|
|Access VBA Expected end of statement||5||54|
Join the community of 500,000 technology professionals and ask your questions.