Thread: paper: New Scouting Database from Team 2834
View Single Post
  #13   Spotlight this post!  
Unread 10-12-2008, 08:35
Clinton Bolinger's Avatar
Clinton Bolinger Clinton Bolinger is offline
FF - PureMichigan
FRC #2337 (EngiNERDs)
Team Role: Coach
  
Join Date: Dec 2006
Rookie Year: 2001
Location: Grand Blanc, MI
Posts: 475
Clinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834
I got another one for you Ed to fix your opening issues.

Replace:

Code:
filen = CurDir + "\" + Format(teamnum) + ".jpg"
With:

Code:
Dim sCurDir As String
sCurDir = Mid(ThisWorkbook.FullName, 1, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name))
filen = sCurDir + "\" + Format(teamnum) + ".jpg"
That way the team pictures will load if you open the file by double clicking, open recent, or file open.

Hope this helps,
-Oris-
__________________
Reply With Quote