========= QUESTION ---------Using VBA, how do I export a report to PDF in Microsoft Access? ========= ANSWER ---------Access 2010 option of opening report and outputting to PDF using the Access engine, not Adobe Acrobat Printer: see EXAMPLES --------- Other options: http://www.granite.ab.ca/access/pdffiles.htm ========= EXAMPLES ---------Private Sub SendReports_Click() Me.CurrentStatus = "Sending Reports..." & vbCrLf & [...]
========= QUESTION ---------How do I copy, move, rename files from within the VBA code of my Access project? --------- How do I write a file backup routine into my Microsoft Access project/form? ========= ANSWER ---------See EXAMPLES ========= EXAMPLES --------- DoCmd.Hourglass True DoCmd.SetWarnings False 'store a serial number in the parms table 'then read [...]
========= QUESTION ---------How do I delete all records in a table using VBA? ========= ANSWER ---------Simply execute a SQL statement as follows: DELETE * FROM NameOfTable; ========= EXAMPLES ---------Docmd.RunSQL "DELETE * FROM NameOfTable;" ========= APPLIES TO / KEY WORDS ---------Microsoft Access VBA SQL Clear ========= REF ---------http://www.access-programmers.co.uk/forums/archive/index.php/t-81194.html ---http://www.anysitesupport.com/access-vba-how-do-i-delete-all-records-in-a-table/ http://anySiteHosting.com
========= QUESTION ---------Microsoft Access doesn't handle null values very well when doing calculations, etc... Is there a way to check for a null value, and simply flip it to zero, or another entry? ========= ANSWER ---------Use the NZ() function Nz ( variant, [ value_if_null ] ) ========= EXAMPLES ---------Nz(Data,0) Was: StudentApprovals: IIf([StudentApproves] Is [...]
========= QUESTION --------- How do I round a number in the Query output in Microsoft Access ========= ANSWER --------- Round(Expression,[Decimal_Places])Expression is the number you wish to roundDecimal_Places is the number of decimals you wish to round to ========= EXAMPLES --------- Round(Goals) Round(Goal,2) Round(153.38,1) = 153.4 ========= APPLIES TO / KEY WORDS --------- Microsoft Access Functions [...]
=========EXAMPLES---------Set rst = CurrentDb.OpenRecordset("Parms")EOW = rst.EOWDateMe.CurrentStatus = "EOW Date set to " & EOW & vbcrlf rst is simply a name to hold your recordset where you are opening the table ParmsEOW is simply a name to hold the field you are querying ---http://www.anysitesupport.com/access-vba-how-do-i-display-a-field-value/
=========ERROR / MESSAGE---------The database has been placed in a state by <user> on <machine> that prevents it from being opened or locked. =========SCENARIO---------You are pasting a table, query, form, etc from Access Database file to another, and this error pops up stopping you from pasting. =========NOTES---------Standard answer:This error occurs when the new passive shutdown/connection control [...]
=========EXAMPLES---------Phone Number:If numbers stored as text:Format([field],"@-@@@-@@@-@@@@") If numbers stored as numbers:Format(2127851212,"(000)000-0000") ---------Format([Store],"0000") Input Mask for Table Field:!(999)000-0000 --------- ZIP: IIf(Len([ZipCode])<6, Format([ZipCode],"@@@@@"),Format([ZipCode],"@@@@@-@@@@")) ---http://www.anysitesupport.com/access-format-fields/
=========QUESTION---------I have TABLE-A with 19000 records in it.Each record contains REGION, DISTRICT, STORE, NAME, and that person’s SALESHow do I find the top sales per Region, or per District, or per Store, etc... =========ANSWER---------OPTION 1 All it takes is three simple MAKE TABLE* queries: In this example, we will find the top SALES per [...]
=========QUESTION---------In Microsoft Access 2007, using VBA, how can you check to see if a table exists? =========EXAMPLES---------On Error Resume Next --------- Public Function dbsTableDelete(DBName) Count = 0 tblNotFound = False Do Until tblNotFound If DBName = dbs2020.TableDefs(Count).Name Then dbs2020.TableDefs.Delete (DBName) Exit function End If Count = Count + 1 'Determine if we are at the [...]