Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim db As Database
Dim tdf As Tabledef
Dim fld As Field
Set db = CurrentDb
For Each tdf In db.TableDefs
Debug.Print tdf.Name & " " & tdf.Properties("Description")
Debug.Print "---"
For Each fld In tdf.Fields
Debug.Print "-->" & tdf.Name & " " & tdf.Properties("Description")
Next fld
debug.Print "-- End of table " & tdf.Name & "--"
Next tdf
Set db = Nothing
Public Function GetDescription(obj As Object) As String
' Parameters: obj - any object
' Return Value: String - the value of the description property.
' Author: John Barnett
' Date: 10 July 2001.
' Description: Returns the description property of the object passed as a parameter.
Dim prp As Property
GetDescription = ""
For Each prp In obj.Properties
If prp.Name = "Description" Then
GetDescription = prp.Value
Exit For
End If
Next
End Function
Function GetDescription(Obj As Object) As String
On Error Resume Next
GetDescription = Obj.Properties!Description
End Function