

#MICROSOFT ACCESS DEFINITIONS FREE#
This is a work in progress, so sometimes we might define the word incorrectly, so feel free to skip this section!

ORDER BY Switch(MsysObjects.Type=1,"Local Table",MsysObjects.Type=4,"Linked ODBC Table",MsysObjects.Type=5,"Query",MsysObjects.Type=6,"Linked Table",MsysObjects.Type=-32768,"Form",MsysObjects.Type=-32764,"Report",MsysObjects.Type=-32766,"Macro",MsysObjects.Type=-32761,"VBA Module"), MsysObjects.Type, MsysObjects.Name SELECT MsysObjects.Name AS, MsysObjects.Type, Switch(MsysObjects.Type=1,"Local Table",MsysObjects.Type=4,"Linked ODBC Table",MsysObjects.Type=5,"Query",MsysObjects.Type=6,"Linked Table",MsysObjects.Type=-32768,"Form",MsysObjects.Type=-32764,"Report",MsysObjects.Type=-32766,"Macro",MsysObjects.Type=-32761,"VBA Module") AS WHERE (((MsysObjects.Name) Not Like "~*" And (MsysObjects.Name) Not Like "MSys*")) SELECT MsysObjects.Name AS, MsysObjects. Super post – and great domain by the way:-) MS Access Forms MS Access Queries MS Access Report MS Access Tables 16 responses on “ MS Access – Listing of Database Objects (Tables, Queries, Forms, Reports, …)” Below is what I could find from various sources or identify myself as what these values meant. This field provides an Attribute value which represents extra information about the object itself.

You may also notice that in the MsysObjects table there is a Flags field. List of Database Queries More Object Types You SayĪbove I gave the listing of the common object type, those that 99% of people might be interested in, that said, for those of you trying to understand it all, below is a more complete listing Object Type You may also be interested in the following VBA approaches: , vbOKOnly + vbCritical, "An Error has Occurred!" If Not db Is Nothing Then Set db = Nothing , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exitĭim sSQL As String sSQL = "SELECT MsysObjects.Name AS " & vbCrLf & _ Switch(Erl = 0, "", Erl 0, vbCrLf & "Line No: " & Erl) _ "Error Description: " & Err.Description & _ "Error Number: " & Err.Number & vbCrLf & _ MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ Close Set rs = Nothing End If If Not db Is Nothing Then Set db = Nothing Exit Function

On Error Resume Next If Not rs Is Nothing Then Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot) " ORDER BY MsysObjects.Name " Set db = CurrentDb " AND (MsysObjects.Type=" & lObjectType & "))" & vbCrLf & _ " WHERE (((MsysObjects.Name Not Like '~*') And (MsysObjects.Name Not Like 'MSys*'))" & vbCrLf & _ SSQL = "SELECT MsysObjects.Name AS " & vbCrLf & _ End Enum Function ListObjects(lObjectType As ObjectType)
