Menu
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)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |