AS far as I have been able to figure out replacing the Bookmarks.B_topicID with Bookmarks.B_planID thats in red below get the 2nd bookmark screen to show up with bookmarks in that field. But I have tried replacing the other parts of the select statements and it quits worken every time.
I am trying to add the table Plan_details and the fields plan_id, plan_no, and plan_sf
strSql = "SELECT "& strTablePrefix & "Bookmarks.Bookmark_ID, "& strTablePrefix & "Category.Cat_Name, "& strTablePrefix & "Forum.F_SUBJECT, "& strTablePrefix & "Topics.Topic_ID, "& strTablePrefix & "Topics.T_subject, "& strTablePrefix & "Topics.T_Replies, "& strTablePrefix & "Topics.T_date, "& strTablePrefix & "Topics.T_Last_Post,"& strMemberTablePrefix & "MEMBERS.M_NAME "
strSQL = strSQL & "," & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR "
strSql = strSql & "FROM ("& strTablePrefix & "Category INNER JOIN "& strTablePrefix & "Forum ON "& strTablePrefix & "Category.Cat_ID = "& strTablePrefix & "Forum.CAT_ID) INNER JOIN ("& strMemberTablePrefix & "Members INNER JOIN ("& strTablePrefix & "Bookmarks INNER JOIN "& strTablePrefix & "Topics ON "& strTablePrefix & "Bookmarks.B_planID = "& strTablePrefix & "Topics.Topic_ID) ON "
strSql = strSql & strMemberTablePrefix & "Members.Member_id = "& strTablePrefix & "Topics.T_AUTHOR) ON "& strTablePrefix & "Forum.Forum_ID = "& strTablePrefix & "Topics.Forum_id "
strSql = strSql & "WHERE ("& strTablePrefix & "Bookmarks.B_MemberID=" & getmemberID(strDBNTUserName) & ")"
if lastDate <> "All" then strsql = strsql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'"
rs.Open strSQL, my_Conn, 3