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 Command98_Click() Dim dbs As DAO.Database Dim qdfTemp As DAO.QueryDef Dim strSQL As String, strQDF As String Set dbs = CurrentDb strSQL = "SELECT [DMR Tracking].[DMR#], [DMR Tracking].[DATE ISSUED], [DMR Tracking].[HOLD/SORT], [DMR Tracking].SCRAP," _ & "[DMR Tracking].RTV, [DMR Tracking].[RMA FROM SUPPLIER], [DMR Tracking].[COMMENT 1], [DMR Tracking].[COMMENT 2]," _ & "[DMR Tracking].[DMR DATE CLOSED], [DMR Tracking].VOID, [DMR Tracking].ShipperId FROM [DMR Tracking];" strQDF = "_TempQuery_" Set qdfTemp = dbs.CreateQueryDef(strQDF, strSQL) qdfTemp.Close Set qdfTemp = Nothing DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ strQDF, "C:\MyFileName.xls" dbs.QueryDefs.Delete strQDF dbs.Close Set dbs = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access What is the best way to update your database app when using ACCDE files?||7||26|
|Turning off query prompts on runtime version of Access 2016||5||18|
|MS Access My Loop Code Returns Record 1 Several Times Instead Of 4 Individual Records Why?||10||25|
|Access Runtime Error '3070'||5||8|