Как взять имя файла в Application.FileSearch

k-ss
Дата: 11.11.2009 20:50:05
Вопрос такой:

 CurrentDb.Execute "UPDATE Goods SET Goods.Print = True WHERE (((Goods.Good_ID)=КАК СЮДА ВСТАВИТЬ ИМЯ Ф-ЛА БЕЗ РАСШИРЕНИЯ))"

в цикле:

Dim FN As String
Set FS = Application.FileSearch
With FS
    .LookIn = "C:\db\Photo"
    .FileName = "*.jpg"
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            FN = .FoundFiles(i)
            
            CurrentDb.Execute "UPDATE Goods SET Goods.Print = True WHERE (((Goods.Good_ID)=КАК СЮДА ВСТАВИТЬ ИМЯ Ф-ЛА БЕЗ РАСШИРЕНИЯ))"
            'MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "Íóæíî ðàçìåñòèòü ôîòîãðàôèè â ïàïêå Photo"
    End If
End With


FN = .FoundFiles(i) = C:\db\Photo\3643.jpg 
, а нужно только
 3643
П-Л
Дата: 11.11.2009 20:51:52
InStr Mid Ф1
вадя
Дата: 11.11.2009 21:30:44
в 2007 аксе не работает!!!!
ILL HEAD
Дата: 11.11.2009 21:44:04
вадя
в 2007 аксе не работает!!!!
ужас!
может SplitPath визхука попробовать ?
k-ss
Дата: 11.11.2009 21:51:34
П-Л
InStr Mid Ф1


Спасибо,
это "3643" из "C:\db\Photo\3643.jpg":
FNS = Mid(FN, InStrRev(FN, "\") + 1, 4)

покажите, плз, как переменную (FNS) вписать в запрос (пунктуация):
            CurrentDb.Execute "UPDATE Goods SET Goods.Print = True WHERE (((Goods.Good_ID)=FNS))"
вадя
Дата: 11.11.2009 23:16:21
ILL HEAD
ужас!
может SplitPath визхука попробовать ?


???
П-Л
Дата: 11.11.2009 23:33:09
CurrentDb.Execute "UPDATE Goods SET Print = True WHERE Good_ID='" & FNS & "'"
ILL HEAD
Дата: 12.11.2009 03:56:23
вадя
ILL HEAD
ужас!
может SplitPath визхука попробовать ?


???
в асс2007 нет wizhook-a ? еще один ужас
вадя
Дата: 12.11.2009 08:00:04
автор
в асс2007 нет wizhook-a ? еще один ужас


этого я не говорил.


я о Application.FileSearch

т.к. у k-ss на этом всё основано
k-ss
Дата: 12.11.2009 12:11:10
П-Л
CurrentDb.Execute "UPDATE Goods SET Print = True WHERE Good_ID='" & FNS & "'"


сделал так, работает:
CurrentDb.Execute "UPDATE Goods SET Goods.Print = True WHERE (((Goods.Good_ID)=" & FNS & "))"

всем спасибо за ответы...