sub or function not defined

[Bob]

I tried to use this the following in the same fashion as
I used the kill command but error out at "rstRecords!
txtStockGraph".

Private Sub Command20_Click()
Dim rstRecords As dao.Recordset
Dim strSql As String
Dim strPath As String

strSql = "select txtStockGraph from tblPictures where
Keywords like '*gym*'"
strPath = "C:\PicLibrary\"

Set rstRecords = CurrentDb.OpenRecordset(strSql)


Do While rstRecords.EOF = False

CopyFile strPath & rstRecords!
txtStockGraph, "C:\PicTransfer\"
rstRecords.MoveNext
Loop
rstRecords.Close
Set rstRecords = Nothing

 

[Van T. Dinh]

Try:

CopyFile strPath & rstRecords.Fields("txtStockGraph").Value,
"C:\PicTransfer\"

 

[Van T. Dinh]

Sorry, just remembered: since CopyFile is not inbuilt in VBA (VBA is
FileCopy), you need to add the Microsoft Scripting Run-time Library into the
References of your database.