Hi All,
I have a problem with implementing my filter that is pieced together in my VBA code when the filter gets too long. Everything works fine for everyone in my database (1000's of people) except for 4 people. The problem happens in a search for all documents associated with a person when the person has ALOT of documents. What the VBA code does is query a huge table for the person's name and keeps the column that identifies the document. Then the code loops through and builds a filter like below for each of the document IDs in the query. When finished, the code sets the filter property in the form that will dispay all the document names to a string similar below. This string then filters the table that the form is based on and pulls in all the document names identified by the document IDs in the filter.
So it work great until the filter string gets too big then conks out. How can I get around this?? Like I said, it works for 99% of the people but for those with a HUGE number of docs it wont.
Help! Help!
I have a problem with implementing my filter that is pieced together in my VBA code when the filter gets too long. Everything works fine for everyone in my database (1000's of people) except for 4 people. The problem happens in a search for all documents associated with a person when the person has ALOT of documents. What the VBA code does is query a huge table for the person's name and keeps the column that identifies the document. Then the code loops through and builds a filter like below for each of the document IDs in the query. When finished, the code sets the filter property in the form that will dispay all the document names to a string similar below. This string then filters the table that the form is based on and pulls in all the document names identified by the document IDs in the filter.
So it work great until the filter string gets too big then conks out. How can I get around this?? Like I said, it works for 99% of the people but for those with a HUGE number of docs it wont.
Help! Help!
Code:
shortlink in ("B2D1","B1D6","B2D3","B2D6","B2D9","B2D10","B2D11","B1D55","B1D60","B2D28","B2D37","B2D40","B2D43","B2D44","B2D48","B2D49","B2D55","B2D58","B2D61","B2D62","B2D68","B2D72","B2D76","B2D79","B2D82","B2D84","B2D89","B2D93","B2D95","B2D96","B2D99","B1D103","B2D109","B2D117","B2D131","B2D144","B2D145","B2D148","B2D156","B2D157","B1D117","B2D165","B2D177","B2D178","B1D132","B1D138","B1D141","B1D155","B1D167","B1D173","B1D183","B1D185","B2D195","B1D209","B2D198","B1D210","B1D211","B2D201","B1D250","B1D253","B1D256","B1D263","B1D272","B1D275","B1D277","B1D283","B1D300","B1D301","B1D304","B1D305","B1D309","B1D310","B1D311","B1D328","B1D337","B1D341","B1D349","B1D353","B1D356","B1D365","B1D366","B1D368","B1D394","B1D397","B2D222","B2D223","B2D224","B2D225","B2D228","B2D229","B2D231","B2D232","B2D237","B2D239","B2D240","B2D242","B2D243","B1D401","B1D402","B1D403","B2D244","B2D246","B2D247","B2D247","B2D248","B2D251","B2D257","B1D411","B1D419","B1D431","B2D286","B1D445","B2D304","B1D451","B1D452","B1D453","
B1D455","B1D466","B1D468","B1D469","B2D337","B2D340","B1D481","B2D347","B2D356","B2D359","B2D360","B2D362"
