Sub text() DoCmd.TransferText acExportFixed, "CompanyFixed", "tblCompany", _ "C:\Fixed.txt", True MsgBox "Company details exported" End Sub