@sova1303

Столкнулся тут с очень простой (по чутью) и в то же время с нерешаемой уже неделю проблемой:
Нужно присвоить переменной (пусть она зовется xFile) строковое значение, соответствующее ПЕРВОМУ найденному файлу с известным началом (собрал его по именам полей в строковую переменную namepart_file):

namepart_file = ""
namepart_file = CStr(Me![Oboz].Value & "_" & Me![Naim].Value & "_" & Me![Format].Value)

Хочу написать определение файла по уникальной части имени просто, без большого кода и именно с помощью DIR(). Не хочу связываться ни с какими диалогами открытия такого файла или с хранением папки, части имени файла, расширением и т.п. в таблице - просто, чтобы в форме в поле типа PIcture (или OLE???) при переходе от записи к записи ПОЯВЛЯЛОСЬ изображение, считываемое из папки с заранее приготовленными файлами типа thumbnail.

Дело же в том, что конец имени файла не известен ТОЧНО, но, насколько я понимаю, для этого существуют МАСКИ (типа: "?????" или "*"), а чертов Dir() просит ПОЛНОСТЬЮ ОПРЕДЕЛЕННОЕ имя файла (хотя в хелпе access'а черным по белому написано: Dir(тра-ля-ля) _возвращает_ ПЕРВЫЙ файл, соответствующий критерию "тра-ля-ля" - а мне именно это и нужно, ибо я-то знаю, что первая, ИЗВЕСТНАЯ часть файла УНИКАЛЬНА и другого такого файла просто нет)... Уф!..

У меня функция Dir() выглядит так:
xFile = Dir(Application.CurrentProject.Path & "\BMP" & Left(namepart_file, Len(namepart_file)) & "*.bmp")
image_thumb.Picture = xFile 'Вот цель для поля Picture в форме

НО! Access говорит, что не может _открыть_ файл (кто бы его просил ОТКРЫВАТЬ его?):
x:\папка проекта\BMP\ПравильнаяЧастьИмени*.bmp
т.е. в сообщении access'а четко написана *

Подскажите, пожалуйста, как сделать эту * не звездочкой, а маской ОСТАТКА имени файла?..
А то сдохну скоро.

И не судите строго - все могут устать от N бессонных ночей...

0

@Апострофф

М.б. так получится?Добавлено через 3 минуты
Обратный слэш после \BMP\ движок съел.

1

@sova1303

Апострофф, Вы - ГЕНИЙ!
Респект неимоверный!

Но... Опять не сработало. Цикл сообщения "отсутствует"...
Не знаю, что и думать...

И... вообще-то переменная xFile УЖЕ СОДЕРЖИТ полное имя файла вместе с PATH.

0

@Апострофф

sova1303, попробуйте не DIR, а VBA.DIR (м.б. стандартный DIR у вас переопределен?)

0