Работа с объектом "Вложение"

@kukana · Регистрация: 23.10.2015

Author24 — интернет-сервис помощи студентам

День добрый.

Прошу помощи в следующем.
Надо, чтобы было так:
--на форме (приложена) имеется список документов, по которому конечно же можно перемещаться. --При перемещении в соответствии со строками списка меняются значения контролов рядом со списком.
--Значения контролов можно менять вручную.
--Если нажать кнопку "Записать", то значения контролов должны записаться в таблицу и отобразиться в списке.
------И т.д.

Проблема с объектом "Вложение" (DocScan).
Он желает работать так как мне надо, только если жёстко привязан к полю "Скан" таблицы "Документ" и я перемещаюсь непосредственно по её полям. Но тогда запись его значения в таблицу происходит сразу при его изменении, без всяких кнопок.

Не могу разобраться в работе с этим объектом.

Для меня идеальный вариант - это снять комментарии в коде обработки нажатия кнопки на списке

. Но это не работает, а ДАО я ещё не постиг в достаточной степени совершенства.

Помогите настроить отображение как написано, а с записью я после этого попробую разобраться.

@kukana · 21.02.2017, 15:55 **[ТС]**

Виноват, оговорился. Перемещаюсь не по полям, а по записям.

shanemac51 · 21.02.2017, 16:55

база не делает, что обязана
на кнопки ЗАПИСЬ нет кода

@kukana · 22.02.2017, 06:56 **[ТС]**

С перемещением, отображением и записью проблем нет. Со всеми контролами, кроме "Вложения". На первый взгляд - штука архиудобная (мне по крайней мере), несмотря на то, что она ломает классические схемы построения. С другой - чёт споткнулся я об неё. Сможете помочь?

@alvk · 22.02.2017, 06:58

Сообщение от kukana

штука архиудобная

Сообщение от kukana

чёт споткнулся я об неё.

удобная как булыжник на тропинке.

@kukana · 22.02.2017, 07:04 **[ТС]**

Сообщение от alvk

удобная как булыжник на тропинке.

однако подметил.

Удобная, когда используешь "в лоб" - не требует лишних телодвижений, раз - и готово. А как захотел прикрутить к минимальному сервису в конкретном приложении, так споткнулся.

shanemac51 · 22.02.2017, 08:02

Сообщение от kukana

Он желает работать так как мне надо, только если жёстко привязан к полю "Скан" таблицы "Документ" и я перемещаюсь непосредственно по её полям.

Но тогда запись его значения в таблицу происходит сразу при его изменении, без всяких кнопок.
Не могу разобраться в работе с этим объектом.

Для меня идеальный вариант - это снять комментарии в коде обработки нажатия кнопки на списке .

Но это не работает, а ДАО я ещё не постиг в достаточной степени совершенства.
Помогите настроить отображение как написано

не могу понять ваши хотелки
в коде никаких комментариев нет

предполагаю
--сейчас вы добавляете вложение по клику на поле скан
--а видимо хотите программно , после обновления пути к файлу и имени файла

других фантазий нет

Добавлено через 6 минут
совсем ослепла --комментариев не увидела

Visual Basic

Private Sub DocsList_Click()
        
    Dim Н_Документ As DAO.Recordset
    
    Set Н_Документ = CurrentDb.OpenRecordset("Документ", dbOpenTable)
         
    Me.DocType.Value = Me.DocsList.Column(2)
    Me.DocNum.Value = Me.DocsList.Column(3)
    Me.DocDate.Value = Me.DocsList.Column(4)
    
    ''''Me.RecordSource = Н_Документ
    ''''Me.DocScan.ControlSource = Н_Документ("Скан")
    
    Н_Документ.Index = "PrimaryKey"
    Н_Документ.Seek "=", Me.DocsList.Column(0)
        
    Н_Документ.Close
    Set Н_Документ = Nothing
    
End Sub

@kukana · 22.02.2017, 08:21 **[ТС]**

Сообщение от shanemac51

не могу понять ваши хотелки

Хотелки такие:
1. Перемещаюсь по списку документов. При этом значения контролов справа (тип документа, номер, дата, скан) меняются в соответствии с элементом, выделенным в списке. Это работает, ктроме скана.
2. Меняю значения контролов. При этом данные в списке и в базе меняться не должны! Это тоже работает

. И тоже кроме скана.
3. По кнопке "Записать" данные контролов должны записаться в список и в базу. С реализацией этого проблем нет. Кроме скана.

@alvk · 22.02.2017, 08:42

Сообщение от kukana

Это работает, ктроме скана.

что за поле такое "скан"? у вас там должно быть вложение и содержимое его должно меняться.

@kukana · 22.02.2017, 08:47 **[ТС]**

"DocScan" - это поле типа "Вложение".
Значение его меняется только если иточник данных - таблица и контрол привязан к полю таблицы типа "Вложение", и я перемещаюсь по записям этой таблицы. Причём: меняем значение DocScan - сразу меняется значение в таблице. А мне надо так, как описано в "хотелках" выше

.

@alvk · 22.02.2017, 09:22

Сообщение от kukana

Значение его меняется только если иточник данных - таблица и контрол привязан к полю таблицы типа "Вложение", и я перемещаюсь по записям этой таблицы.

Сообщение от kukana

Хотелки такие:
1. Перемещаюсь по списку документов. При этом значения контролов справа (тип документа, номер, дата, скан) меняются в соответствии с элементом, выделенным в списке. Это работает, ктроме скана.

Я не понимаю, сначала пишете, что надо, чтобы менялось как тип документа, а оно не меняется, теперь пишете, что меняется, но не надо.

@kukana · 22.02.2017, 10:02 **[ТС]**

Здесь Работа с объектом "Вложение"
я описал хотелки.
А здесь Работа с объектом "Вложение"
выложил то, что сделал и дал вводную. Думаю, что задача описана однозначно.
Пытаюсь. Пока не получилось.

@alvk · 22.02.2017, 11:45

1.Хотелки я ваши не понял, одну процитировал выше.
2.ваш формат файла мне не подходит, только mdb, либо не Акцесс.

@kukana · 22.02.2017, 12:02 **[ТС]**

Хотелки вы действительно не поняли, а как ещё объяснить я пока не придумал.
Вложение бывает только в accdb.

@alvk · 22.02.2017, 12:04

поскипано

@kukana · 22.02.2017, 12:11 **[ТС]**

Может сформулировать подзадачу так:
как в Аксесс ВБА программно задать источник данных объекту типа "Вложение"?

@kukana · 22.02.2017, 12:58 **[ТС]**

Чуть изменил ради эксперимента обработчик перемещения по списку. Теперь в поле DocNum отображается имя файла-вложения. Т.е. в общем-то работает переход на нужную запись.
А вот, например DocScan.ControlSource = Scan - не работает. Тайп мисмач.

mobile · 22.02.2017, 13:37

Сообщение от kukana

А вот, например DocScan.ControlSource = Scan - не работает. Тайп мисмач.

ControlSource это строка. И задавать надо строку

Visual Basic

1	DocScan.ControlSource = "Scan"

Вложение не смотрел

@kukana · 22.02.2017, 13:49 **[ТС]**

Сообщение от mobile

ControlSource это строка. И задавать надо строку

Пробовал.
Ошибку не выдаёт, но и как надо вложение не работает.

mobile · 22.02.2017, 13:50

Если же Scan это строка с путем и именем документа, то так

Visual Basic

Dim rst, rstdoc
set rst=currentdb.openrecordset("select [полевложения] from Таблица where [уникальноеполе]=" & Me.[уникальноеполе])
set rstdoc=rst.fields(0).Value
rstdoc.addnew
rstdoc("FileData").loadfromfile=scan
rstdoc.update
rst.update

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 12:02 [ТС]	14
	Хотелки вы действительно не поняли, а как ещё объяснить я пока не придумал. Вложение бывает только в accdb. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 13:49 [ТС]	19
	Сообщение от mobile ControlSource это строка. И задавать надо строку Пробовал. Ошибку не выдаёт, но и как надо вложение не работает. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	21.02.2017, 15:55 [ТС]	2
	Виноват, оговорился. Перемещаюсь не по полям, а по записям. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 06:56 [ТС]	4
	С перемещением, отображением и записью проблем нет. Со всеми контролами, кроме "Вложения". На первый взгляд - штука архиудобная (мне по крайней мере), несмотря на то, что она ломает классические схемы построения. С другой - чёт споткнулся я об неё. Сможете помочь? 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	22.02.2017, 06:58	5
	Сообщение от kukana штука архиудобная Сообщение от kukana чёт споткнулся я об неё. удобная как булыжник на тропинке. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 07:04 [ТС]	6
	Сообщение от alvk удобная как булыжник на тропинке. однако подметил. Удобная, когда используешь "в лоб" - не требует лишних телодвижений, раз - и готово. А как захотел прикрутить к минимальному сервису в конкретном приложении, так споткнулся. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 08:21 [ТС]	8
	Сообщение от shanemac51 не могу понять ваши хотелки Хотелки такие: 1. Перемещаюсь по списку документов. При этом значения контролов справа (тип документа, номер, дата, скан) меняются в соответствии с элементом, выделенным в списке. Это работает, ктроме скана. 2. Меняю значения контролов. При этом данные в списке и в базе меняться не должны! Это тоже работает . И тоже кроме скана. 3. По кнопке "Записать" данные контролов должны записаться в список и в базу. С реализацией этого проблем нет. Кроме скана. 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	22.02.2017, 08:42	9
	Сообщение от kukana Это работает, ктроме скана. что за поле такое "скан"? у вас там должно быть вложение и содержимое его должно меняться. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 08:47 [ТС]	10
	"DocScan" - это поле типа "Вложение". Значение его меняется только если иточник данных - таблица и контрол привязан к полю таблицы типа "Вложение", и я перемещаюсь по записям этой таблицы. Причём: меняем значение DocScan - сразу меняется значение в таблице. А мне надо так, как описано в "хотелках" выше . 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	22.02.2017, 09:22	11
	Сообщение от kukana Значение его меняется только если иточник данных - таблица и контрол привязан к полю таблицы типа "Вложение", и я перемещаюсь по записям этой таблицы. Сообщение от kukana Хотелки такие: 1. Перемещаюсь по списку документов. При этом значения контролов справа (тип документа, номер, дата, скан) меняются в соответствии с элементом, выделенным в списке. Это работает, ктроме скана. Я не понимаю, сначала пишете, что надо, чтобы менялось как тип документа, а оно не меняется, теперь пишете, что меняется, но не надо. 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 10:02 [ТС]	12
	Здесь Работа с объектом "Вложение" я описал хотелки. А здесь Работа с объектом "Вложение" выложил то, что сделал и дал вводную. Думаю, что задача описана однозначно. Пытаюсь. Пока не получилось. 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	22.02.2017, 11:45	13
	1.Хотелки я ваши не понял, одну процитировал выше. 2.ваш формат файла мне не подходит, только mdb, либо не Акцесс. 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	22.02.2017, 12:04	15
	поскипано 0

@kukana 2 / 2 / 0 Регистрация: 23.10.2015 Сообщений: 65
	22.02.2017, 12:11 [ТС]	16
	Может сформулировать подзадачу так: как в Аксесс ВБА программно задать источник данных объекту типа "Вложение"? 0