Guys!
Basically i have a table
ID
ObjectType
ObjectName
HasAccess
I want to get the names of all Forms and Reports in this table instead typing one by one.
Anyone who can help me to get ride on it.
Public Sub SaveObjectNames()
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim obj As AccessObject
Dim strSQL As String
Dim rs As DAO.Recordset
Dim objectName As String
' Open the current database
Set db = CurrentDb
' Loop through each...
Public Sub SaveObjectNames()
On Error GoTo ErrorHandler
Dim db As DAO.Database
Dim obj As AccessObject
Dim strSQL As String
Dim rs As DAO.Recordset
Dim objectName As String
' Open the current database
Set db = CurrentDb
' Loop through each...