не могу создать поле с названием файла - Microsoft Office Access

Tapochek1975 · 19.06.2013, 14:45

Здрасььте.
Мне нужно в форме, что бы рядом с вложением (фото) высвечивалось поле с названием файла фотографии.
Т.е. в таблице запись с полем вложение, а в форме этой записи прикрепляются несколько фотографий. Нужен комментарий в одно два слова к ней.
Я решил, что удобнее будет файл назвать как мне необходимо. а в форме просто выводить название файла в отдельное поле.
Есть способы решения? если можно не одним словом а хотя бы двумя. Спасибо

Tapochek1975 · 20.06.2013, 09:39

Все задача решена вот так
'Private Sub Form_Current()
Dim s, rs As DAO.Recordset2
With CurrentDb.OpenRecordset("Îáîðóäîâàí èå", dbOpenSnapshot)
.FindFirst "Êîä=" & Me.Êîä
If .NoMatch Then Exit Sub
Set rs = .Fields("Ôîòî").Value
If rs.EOF Then Exit Sub
Do Until rs.EOF
's = s & rs.Fields("filename") & ", "
s = rs.Fields("filename") & ", "
rs.MoveNext
Loop
End With
Me.Ïîëå61 = Left(s, Len(s) - 2)
'End Sub

19.06.2013, 14:45	#1
Tapochek1975 Регистрация: 29.10.2010 Сообщений: 7	не могу создать поле с названием файла Здрасььте. Мне нужно в форме, что бы рядом с вложением (фото) высвечивалось поле с названием файла фотографии. Т.е. в таблице запись с полем вложение, а в форме этой записи прикрепляются несколько фотографий. Нужен комментарий в одно два слова к ней. Я решил, что удобнее будет файл назвать как мне необходимо. а в форме просто выводить название файла в отдельное поле. Есть способы решения? если можно не одним словом а хотя бы двумя. Спасибо

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программно создать поле в колонтитуле	madster	Microsoft Office Word	11	26.06.2012 16:04
Indy. Залить на файлообменник с названием файла в utf-8	droltromed	Компоненты Delphi	1	22.01.2012 19:42
Проверка на сущестование файла с названием из русских символов	evgenrpo	Win Api	6	10.06.2009 09:34
Не могу записать текст в поле	Serega_1988	БД в Delphi	1	11.06.2008 16:57
Как создать поле Edit	Д'якон	Win Api	1	02.03.2008 01:30

20.06.2013, 09:39	#2
Tapochek1975 Регистрация: 29.10.2010 Сообщений: 7	Все задача решена вот так 'Private Sub Form_Current() Dim s, rs As DAO.Recordset2 With CurrentDb.OpenRecordset("Îáîðóäîâàí èå", dbOpenSnapshot) .FindFirst "Êîä=" & Me.Êîä If .NoMatch Then Exit Sub Set rs = .Fields("Ôîòî").Value If rs.EOF Then Exit Sub Do Until rs.EOF 's = s & rs.Fields("filename") & ", " s = rs.Fields("filename") & ", " rs.MoveNext Loop End With Me.Ïîëå61 = Left(s, Len(s) - 2) 'End Sub