LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 07 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Нет сорти...
 Тема: Нет сортировки в Execute
 
 15.06.2007 21:03:23
All
4316 сообщения
1-ый


Тема: Нет сортировки в Execute
Когда запускаю программу и в строке Execute параметров нет, то все работает, а когда использую сортировку (мне надо чтобы года, входящие в имя базы, вводились в список от большего к меньшему) по маске файла - получаю ошибку о неправильном использовании аргументов.

Что делаю не так?

Private Sub Кнопка1_Click()

Dim MaskFile As String, i As Long, StringForList As String
MaskFile = "Bas_????.mdb"
On Error GoTo 999
With Application.FileSearch
.NewSearch
.LookIn = CurrentProject.Path
.fileName = MaskFile
.SearchSubFolders = True

If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderDescending) > 0 Then
For i = 1 To .FoundFiles.Count
StringForList = StringForList & Left(Right(.FoundFiles(i), 8), 4) & ";"
Next i
End If
End With
ListBases.RowSource = StringForList
Exit Sub
999:

MsgBox Err.Description
Err.Clear
End Sub



P.S. Проблемы с базой данных
Автор: Евгений от 0:00:00 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Нет сорти...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke