Office中国论坛/Access中国论坛

标题: 标准表达式数据类型不匹配？ [打印本页]

---

作者: ylj26518    时间: 2014-12-16 08:51
标题: 标准表达式数据类型不匹配？


根据表1的原号，将jpg图片改为表1中的新号，用了Name As 语句，但提示标准表达式数据类型不匹配！不知道语句错在哪里？请大家指点！

---

作者: todaynew    时间: 2014-12-16 11:44
id为数字型，不能加单引号。

---

作者: ylj26518    时间: 2014-12-16 12:25
Private Sub 查找相片_Click()
     Dim j As Integer
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim fileName
    rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockPessimistic
    js = rs.RecordCount
    rs.MoveFirst
    For j = 1 To rs.RecordCount
        
        fileName = (rs.Fields(1).Value)
        Name CurrentProject.Path & "\" & fileName & ".jpg" As CurrentProject.Path & "\" & DLookup("现号", "表1", "原号='" & fileName & "'") & ".jpg"
        rs.MoveNext
    Next j
   
rs.Close
Set rs = Nothing

MsgBox "done"
End Sub


应是DLookup("现号", "表1", "原号='" & fileName & "'") & ".jpg"
我写错了,现在又提示文件找不到?

---

作者: roych    时间: 2014-12-16 13:10
只能重命名1次。

1. Private Sub 查找相片_Click()
   
2.      Dim j As Integer
   
3.     Dim rs As ADODB.Recordset
   
4.     Set rs = New ADODB.Recordset
   
5.    
   
6.     rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockPessimistic
   
7.     js = rs.RecordCount
   
8.     'rs.MoveFirst
   
9.     On Error Resume Next'只重命名1次。重命名后，源文件已经不存在，会出现错误。这里忽略掉
   
10.     For j = 1 To rs.RecordCount
    
11.         
    
12.         Name CurrentProject.Path & "" & rs(1) & ".jpg" As CurrentProject.Path & "" & rs(2) & ".jpg"
    
13.         rs.MoveNext
    
14.     Next j
    
15.    
    
16. rs.Close
    
17. Set rs = Nothing
    
18. 
    
19. MsgBox "done"
    
20. End Sub
    
21. 
    

复制代码

---

作者: ylj26518    时间: 2014-12-16 15:11
感谢roych！ 多天的问题解决了，真是高手，向你学习！

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3