Нужно добавить программно содержимое контрола типа Attachment в соотв. поле записи

spLineFX
Дата: 19.01.2012 12:23:40
Всем доброго времени суток, уважаемые форумчане.

Есть форма, на которой располагаются разные контролы (в основном, текстбоксы). Есть кнопка, по нажатию на которую происходит проверка введённых в контролы значений и (в случае удачи) открытие соединения через ADO с нужной таблицей, добавление новой записи в таблицу и копирование в её поля значений из контролов. В том числе нужно присвоить полю типа "Вложение" изображение, которое было добавлено в соответствующий контрол типа Attachment на форме. Вопрос: как это сделать в коде. Пытался сделать что-то вроде

.Fields("Фотография") = inc_Фотография ', где inc_Фотография - название контрола для хранения вложений.

Но сами понимаете, что ничего не вышло, не всё так просто. В рунете внятного ничего не нашёл. С английским дружу плохо.
Прошу помощи, курсач сдавать в эту субботу.
alvk
Дата: 19.01.2012 13:00:34
spLineFX,

с новыми типами и с 2010-м в частности не дружу совсем.
Guest33
Дата: 19.01.2012 13:07:03
Попробуйте через рекордсет формы. Если форма не основана на таблице - заведите вспомогательную о сделайте ее источником формы.
Private Sub Кнопка8_Click()
    Dim r As DAO.Recordset
    Dim f As DAO.Field
    Set r = CurrentDb.OpenRecordset("select * from t_copy where 1=0")
    r.AddNew
    For Each f In Me.Form.Recordset.Fields
        If f.Name <> "id" Then 'Если не счетчик
            r.Fields(f.Name) = f
        End If
    Next f
    r.Update
    r.Close: Set r = Nothing
End Sub
spLineFX
Дата: 19.01.2012 14:25:35
alvk
spLineFX,

с новыми типами и с 2010-м в частности не дружу совсем.


Вообще-то, 2007, но ход мыслей ясен.