The first thing I would do is find the person who originally designed the
database and beat him to a bloody pulp.

Then, what you are wanting to do can be done in VBA without having to repeat
a query 136 times.  The code could be similar to something like this example.
Now, when you see the statement .Fields(intFldNdx) below, I am assuming (and
hoping) all 136 fields are contiguous, that is, there are no fields between
them.  For example purposes, I will assume the first category field is field
number 40.  Since field indexing is 0 based, I will be starting the loop at
39.

Dim dbf As Database
Dim rstMembers as Recordset
Dim rstCats as Recordset
Dim intFldNdx as Integer

   Set dbf = Currentdb
   Set rstMembers = dbf.OpenRecordset("MemberTableName")
   Set rstCats = dbf.OpenRecordset("CategoryTable")

   rstMembers.MoveLast
   rstMembers.MoveFirst

   Do While Not rstMembers.EOF
       For intFldNdx = 39 To 135
           If rstMembers.Fields(intFldNdx) = True Then
               With rstCats
                   .AddNew
'Here you will have to get the field names and values to work for how you
have them set up
                   !CatName = rstMembers.Fields(intFldNdx).Name
                   !MemberID= rstMembers.MemberID
                   .Update
                End With
           End If
           rstMembers.MoveNext
       Loop
       rstMembers.Close
       Set rstMembers  = Nothing
       Set rstCats = Noting
       Set dbf = Nothing
     
Hope this will be helpful