Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.
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.
Join the community of 500,000 technology professionals and ask your questions.