Форумы HiProg.com - MS ACCESS, VBA, VB

ник: seluvan
Private Sub Êíîïêà8_Click()
On Error Resume Next
Dim r As DAO.Recordset
Dim st As String
Dim sFileName As String, sNewFileName As String
Dim objFSO As Object, objFile As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

st = "SELECT " & _
"FROM " & _
"WHERE дата >= #" & Format([Forms]![&#207;&#238;&#228;&#227;&#238;&#242;&#238;&#226;&#234;&#224;&#206;&#242;&#247;&#229;&#242;&#224;]![&#207;&#238;&#235;&#229;&#209;&#238;&#209;&#239;&#232;&#241;&#234;&#238;&#236;2], "mm\/dd\/yyyy") & "# And &#208;&#229;&#227;&#232;&#241;&#242;&#240;&#207;&#229;&#240;&#229;&#247;&#237;&#255;&#192;&#206;.&#196;&#224;&#242;&#224;&#196;&#238;&#234;&#243;&#236;&#229;&#237;&#242;&#224; <= #" & Format([Forms]![&#207;&#238;&#228;&#227;&#238;&#242;&#238;&#226;&#234;&#224;&#206;&#242;&#247;&#229;&#242;&#224;]![&#207;&#238;&#235;&#229;&#209;&#238;&#209;&#239;&#232;&#241;&#234;&#238;&#236;4], "mm\/dd\/yyyy") & "#"

Set r = CurrentDb.OpenRecordset(st)
sNewFileName = "c:\" & "Папка c " & [Forms]![&#207;&#238;&#228;&#227;&#238;&#242;&#238;&#226;&#234;&#224;&#206;&#242;&#247;&#229;&#242;&#224;]![&#207;&#238;&#235;&#229;&#209;&#238;&#209;&#239;&#232;&#241;&#234;&#238;&#236;2] & " &#239;&#238; " & [Forms]![&#207;&#238;&#228;&#227;&#238;&#242;&#238;&#226;&#234;&#224;&#206;&#242;&#247;&#229;&#242;&#224;]![&#207;&#238;&#235;&#229;&#209;&#238;&#209;&#239;&#232;&#241;&#234;&#238;&#236;4] & " ( " & Format(Time, "hh.mm.ss")
If r.RecordCount > 0 Then
MkDir (sNewFileName)
Else
End If

With r
If Me.флаг1= -1 Then
Do While Not .EOF
Set objFile = objFSO.GetFile(r!ПутьКОригиналу)
objFile.copy sNewFileName
.MoveNext
Loop

MsgBox "скопировано- " & r.RecordCount & "записей", vbInformation, "удача"

End If
End With
PrintDoc 1

End Sub

вроде как путь на папку правильный, но не копирует