you could also whack something like this in there to make it only search for PDFs if need be:
if UCASE(right(thefile.path,3)) = "PDF" then
'blah blah blah
end if
I also want to throw out there that the obesity problem is due to the mental condition of people who comfort eat. I tell you, if people feel miserable and depressed then getting out and doing something (EXERCISE MAYBE?) makes you feel great. Going home and sulking and eating to comfort yourself...
So the answer to the problem is don't eat fast food. Eat as much as you like (within reason) of meat and veg and cereals etc.. Don't drink softdrinks (pop). Don't eat junk food. Pretty simple stuff really. AND GET OFF THE COUCH!!!!!!!!!!!!!!!!
ALSO - INSTALL THE PPP (PEDAL POWERED PC) IN ALL...
My patented peddle powered PC (nice illiteration there...) will solve all obesity problems. Over an eight hour day the user has to peddle for at least 1 hr to maintain power for the computer. This can be adjusted to 2 hrs for the more obese. Warnings popup on the monitor when more peddling is...
Having recently visited the US, I can safely say that the biggest issue is serving size. Holy s*** you have have massive soft drinks and massive meals. IF you made everything normal size (about a quarter of the size) then this would help!
The main reason for obesity though is lack of exercise...
I ended up putting it in an MDE and creating a seperate form where the user could select the columns and other attributes for the pivot. Then used VBA to alter the Pivot. This was a lot of work, but does the job.
Presuming the hyperlink is the filepath:
dim rst
dim FSO
dim theFilePath
dim theFolder
the Folder = "YourFOlderLOcation" 'e.g "C:\tempfolder\"
set FSO = createobject("Scripting.FilesystemObject")
set rst = currentdb.openrecordset("YourTableName")
rst.movefirst
do until rst.EOF
thefilepath =...
Can't you just use the current record ID in the form to filter the report? Use the report's On Open event to change the filter to something like:
me.filter = "recordID = " & theIDFromtheFormVariable
me.filteron = true
Set up the form with the checkboxes. Then have a completed button. This button needs code that will check each checkbox and if checked created a new record in the table for that competitor.
So best practice for indivisible process is something like:
dim a
a = msgbox "This process takes up 2 hours and uses a lot of PC resources. Press Yes to continue or no to cancel", vbyesno, "Maybe you should run this overnight...."
if a = ........etc