Access

[parsec]

Собственно вот, есть ли специалисты среди уважаемого сообщества?

[Hamster]

Ну ежели только со стороны SQL

[parsec]

Ага, ну тогда такой вопрос.
Есть база сотрудников, лежит на сетевом диске. В той же папке, где база, лежит папка которая называется /JPG/ и в ней лежат фотографии сотрудников. Соответсвенно в базе имеется форма, типа "карточка сотрудника", к форме прикручен control типа image, при просмотре карточки сотрудника туда выводится его фотография. Файлы фото имеют имена 1.jpg, 2.jpg, 3.jpg итд, они совпадают с порядковым номером сотрудника.
Код:

Option Compare Database
Option Explicit

Public Function PathFile(FullFileName As String)
Dim i As Integer
Dim EndS As String
For i = 1 To Len(FullFileName) - 1
If Mid(FullFileName, i, 1) = "\" Then EndS = i
Next
PathFile = Mid(FullFileName, 1, EndS)
End Function


Private Sub Номер_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Form_Current()

Рисунок.Picture = PathFile(CurrentDb.Name) & "\фото\" & Trim(Str(Номер)) & ".jpg"

End Sub

Внимание вопрос, при открытии формы появляется сообщение, что микрософт акцесс не может открыть файл бла/бла/бла/База данных/JPG/0.jpg
Он и не сможет его открыть, так как файла 0.jpg нет. Если нажать "ОК", то открывается карточка сотрудника и все нормально работает. Как убрать появление этого сообщения?

[Hamster]

А вы не пробовали добавлять единицу к значению Номер? Из примера не видно, откуда берется значение номера, но очень похоже, что нумерация начинается с 0.