怎么找出没有相片的记录？

iamee

用dir函数写的遍历程序，你参考一下
把路径修改成你的就可以了，我用的是*.*，你也要改成你的图片格式

yanlj518

好像不行啊，能帮我将附件做一下吗？查询出没有相片的三个人，谢谢！

iamee

修改了一下，遍历“C:\Documents and Settings\Administrator\桌面\test\”文件夹下所有*.bmp的图片。
你要修改成对应路径.
当员工照片不在文件夹中是，会把照片修改成“NoImage”，剩下的就看你的了

[ 本帖最后由 iamee 于 2008-2-23 00:04 编辑 ]

liangzhenye

Private Sub Command0_Click()
    Dim photopath As String
    photopath = "D:\Documents and Settings\Administrator\桌面\test\test\"   ' 相关图片的位置
    Dim db As Database
    Dim temp As Recordset
    Set db = CurrentDb
    Set temp = db.OpenRecordset("select * from [雇员]", 2)
    While Not temp.EOF
        If Dir(photopath & temp![照片]) <> "" Then     'dir 是一个函数
            MsgBox "有图片"
        Else
            MsgBox "no photo"
        End If
        temp.MoveNext
    Wend
    temp.Close
End Sub

yanlj518

非常感谢，问题解决了！代码学习中！

小作坊

想学

chaojianan

谢谢14楼分享。