Determining whether an object is a member of a collection in VBA

by

Isn’t it good enough?

Public Function Contains(col As Collection, key As Variant) As Boolean
Dim obj As Variant
On Error GoTo err
    Contains = True
    obj = col(key)
    Exit Function
err:

    Contains = False
End Function

More Related Contents:

  1. ms access vba code for update records through form
  2. How to add default signature in Outlook
  3. Combine rows / concatenate rows
  4. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  5. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  6. Too few parameters Expected 1, recordset issue
  7. Show “Open File” Dialog
  8. VBA collection: list of keys
  9. How do I display a messagebox with unicode characters in VBA?
  10. VBA Adding a class to a collection [duplicate]
  11. Distinction between using .text and .value in VBA Access
  12. MS Access VBA Error: Run time error ’70’ Permission Denied
  13. Automatically generating handling of issues
  14. Is it better to use ADO or DAO in Access 2007?
  15. VBA – Folder Picker – set where to start [duplicate]
  16. MS Access: how to compact current database in VBA
  17. How to loop through all controls in a form, including controls in a subform – Access 2007
  18. How do I sort a collection?
  19. FileDialog doesn’t work
  20. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  21. Determine real cause of ODBC failure (error 3146) with ms-access?
  22. Is there an equivalent to Thread.Sleep() in VBA
  23. Exporting MS Access Forms and Class / Modules Recursively to text files?
  24. How to get logged-in user’s name in Access vba? [duplicate]
  25. Pass a parameter into an access report programmatically
  26. finding latest file in a folder and opening it (vba access)
  27. Insert multiple records with a date range in MS Access
  28. MS Access VBA: Sending an email through Outlook [closed]
  29. SendKeys is messing with my NumLock key via VBA code in Access form
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment