[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 230
  • Last Modified:

update routine: 2003 to 2010 vba renaming files

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_21499562.html

reference question: above.

I have the code below working in 2003 vba..

But Office 2010 vba gives me an error on line:

Function CopyFilesJpg2()
Dim rs
Dim pathname, newpathname, itemname, picname As String
pathname = "C:\Images\"
newpathname = "C:\Images\New\"
Me.RecordSource = "SELECT * FROM NoPic_Picture_NotAll" <<<<---error here...invalid use of "me"...
Set rs = Me.Recordset.Clone
rs.MoveFirst
While Not rs.EOF
  itemname = rs!material_no
  picname = rs!primary_image2
  If itemname <> picname Then
    FileCopy pathname & picname, newpathname & itemname & ".JPG"
  End If
  rs.MoveNext
Wend
rs.Close
Set rs = Nothing

End Function


Thanks
fordraiders
0
Fordraiders
Asked:
Fordraiders
1 Solution
 
peter57rCommented:
The code assumes it is located in a form module.

If it is not, it doesn't make much sense as a routine.

But the error suggests you have placed it in a standard module.
0
 
FordraidersAuthor Commented:
ok Thanks...
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now