حذف آدرس عکس از جدول در صورتی که عکس مربوطه در مسیر درج شده وجود نداشته باشد

[abas1388]

با سلام
در یک جدول (اکسس )فیلدی وجوددارد که آدرس تعدادی عکس در آن درج میشود . با توجه به اینکه ممکن است مکان بعضی از عکس ها تغییر کند ، می خواهم آدرس عکس هایی که در مسیر درج شده در جدول وجود ندارند پاک شود .
با تشکر

[mohammadriano]

سلام حتماً باید از حلقه استفاده کنید(همچین کوئری وجود ندارد)

Private Sub Command1_Click()
Dim fs As Variant
Set fs = CreateObject("scripting.filesystemobject")
Dataname.Refresh
Dataname.Recordset.Edit
While (Dataname.Recordset.EOF <> True)
If fs.fileexists(Dataname.Recordset.Fields("adress").Value) = False Then Dataname.Recordset.Fields("adress").Value = "" ' or = "no pic"
Dataname.Recordset.MoveNext
Wend
Dataname.Recordset.Update
End Sub

[abas1388]

سلام حتماً باید از حلقه استفاده کنید(همچین کوئری وجود ندارد)

Private Sub Command1_Click()
Dim fs As Variant
Set fs = CreateObject("scripting.filesystemobject")
Dataname.Refresh
Dataname.Recordset.Edit
While (Dataname.Recordset.EOF <> True)
If fs.fileexists(Dataname.Recordset.Fields("adress").Value) = False Then Dataname.Recordset.Fields("adress").Value = "" ' or = "no pic"
Dataname.Recordset.MoveNext
Wend
Dataname.Recordset.Update
End Sub

سلام
بااستفاده از تابع زیر موفق به انجام موفق شدم


Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Function FileExist(FPath As String) As Boolean
FileExist = CBool(PathFileExists(FPath))
End Function

[arenaw]

اگه فقط شما فقط میخوای بررسی کنی یک فایل موجود هست یا نه از Dir هم میتونی استفاده کنی

If Dir(FilePath) = Empty Then
MsgBox "File not exist!"
Else
MsgBox "File exist!"
End If