2017-12-18 16 views
0

「From」と「To」の2つのフィールドを含むクエリがあります。 fromとtoは、名前を変更したいファイルの完全なファイルパスを持つデータを保持します。クエリをループして実際にファイルの名前を変更するにはどうすればよいですか?これは私のコードですが、動作しません。MS Access VBAがクエリとファイルの名前を変更してループする

Dim rs As DAO.Recordset 
Dim db As Database 
Dim strSQL As String 

Set db = CurrentDb 

strSQL = "select * from qryImagesToRename" 

Set rs = db.OpenRecordset(strSQL) 

Do While Not rs.EOF 

    Name .Fields("From") as .Fields("To") 

    rs.MoveNext 
Loop 

どこが間違っていますか? - 私はコンパイルエラー「期待ユーザー定義型、いないプロジェクト」を受信し、それが行を強調:

Dim db As Database 
+0

することは私には正常に見えます。 *「それは機能していません」*とはどういう意味ですか?間違いはありますか? (ああ、おそらく '.Fields'の代わりに' rs.Fields'を書いたかったのです)。 – Heinzi

答えて

0

あなたはレコードセットオブジェクト欠場:

Name rs.Fields("From").Value As rs.Fields("To").Value 
関連する問題