Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|vba for Saving access tables to excel with password||4||26|
|Sum in Split Form||17||28|
|ERROR 3113 MODULEID NOT UPDATABLE||8||19|
|Need to prompt to save file from VBA if file exists||6||29|