========= QUESTION --------- Can I open Windows Explorer from my VBA code? ========= ANSWER --------- See EXAMPLES ========= EXAMPLES --------- Private Sub WindowsExplorer_Click() Dim rst As RecordsetDim retval As String Set rst = CurrentDb.OpenRecordset("Parms")retval = Shell("explorer.exe " & rst!Path, vbNormalFocus)Set rst = NothingEnd Sub ========= APPLIES TO / KEY WORDS --------- Microsoft [...]
========= QUESTION --------- I need to have double quotes (") in a string in VBA, as I am entering WHERE statements in a SQL statement, but every time I have quotes in a string, it errors out. ========= ANSWER --------- Any time you have double quotes ("), simply double them ("") and you will [...]
========= QUESTION --------- How do I use the value from the field of one table as the criteria in a query against a different table? How do I use the DLookup function? ========= ANSWER --------- See EXAMPLES ========= EXAMPLES --------- Number Fields:DLookup("FieldName" , "TableName" , "Criteria = n") Text Fields: DLookup("FieldName" , "TableName" , "Criteria= 'string'") Date [...]
========= QUESTION --------- I converted a Microsoft Access database from .mdb to .accdb format, and now when I run my usual VBA code to export a report to PDF, it gives me the error: Run-time error ‘13’: Type mismatch ========= ANSWER --------- If you are not using an ADO object library, clear the reference to [...]
========= QUESTION --------- How do I export to a spreadsheet using VBA? ========= ANSWER --------- See EXAMPLES ========= EXAMPLES --------- MyFilePath = "C:Test" Me.Status = "Creating Spreadsheet file" Me.Repaint DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ReportOrQueryName", MyFilePath & "FileName.xls" --------- Me.CurrentStatus = _ "Exporting to Excel for Distribution" & vbCrLf & _ Now() & vbCrLf & _ vbCrLf & _ [...]
========= QUESTION --------- I want to show the date the table was last modified ========= ANSWER --------- See EXAMPLES ========= EXAMPLES --------- Me.Signature2.Value = CurrentDb.TableDefs("ControlPanel").Properties("LastUpdated") ========= APPLIES TO / KEY WORDS --------- Microsoft Access VBA Date Modified ========= REF --------- http://www.accessmonster.com/Uwe/Forum.aspx/access-modulesdaovba/30880/Access-VBA-Date-Modified ---http://www.anysitesupport.com/access-vba-date-modified-of-table/ http://anySiteHosting.com
========= QUESTION --------- How do I view System Tables or objects in Microsoft Access? ========= ANSWER --------- Access 2007 Right-click (Shift + F10) the top of the Navigation Pane on the left side of the screen Select Navigation Options Choose your options in the Display Options in the lower left of the Navigation Options [...]
========= QUESTION --------- How do I copy a table using VBA or SQL in Access? ========= ANSWER --------- See EXAMPLES NOTE: the use of of the square brackets ("[" and "]") will save you a lot of grief! For instance in the example below, the date formatting having hyphens in it screws up the [...]
========= QUESTION ---------How do I open a new email message from VBA? ========= ANSWER ---------See EXAMPLES ========= EXAMPLES ---------Dim olLook As Object 'Start MS OutlookDim olNewEmail As Object 'New email in OutlookDim strContactEmail As String 'Contact email address Set olLook = CreateObject("Outlook.Application")Set olNewEmail = olLook.createitem(0)strEmailSubject = "TopSellers.accdb Application"strEmailText = ""strContactEmail = NAME@DOMAIN With [...]
========= QUESTION ---------How do I open a web site from VBA? How do I open a url from VBA? How do I use VBA to open Internet Explorer? ========= ANSWER ---------See Examples ========= EXAMPLES ---------Private Sub ViewURL_Click() Set browser = CreateObject("InternetExplorer.Application")browser.Navigate ("http://www.Google.com")browser.StatusBar = Falsebrowser.Toolbar = Falsebrowser.Visible = Truebrowser.Resizable = Falsebrowser.AddressBar = True End [...]