Вопрос : добавлять детали к комбинированным рамкам на форме

Здравствулте!, Кодий
i и Кодий примера-
the базы данных я использую для того чтобы добавить детали к комбинированным рамкам на базе данных form.
this - потому что я верю могу построить неточно не препятствую мне добавить детали во-вторых 2, котор комбинированной рамки там дорога я могу изменить Кодего для того чтобы препятствовать мне добавить детали как первая комбинированная коробка-
if вы вписываете новое имя в первую комбинированную рамку - вы увидит как работает-
the во-вторых 2 дайте мне ошибки-
i am надеясь в виду того что реальная база данных большая я может сделать вторые 2 комбинированной рамки работать без переделать таблицы и form
thank you class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

class= cboXCompany_NotInList " id= " codeSnippet965588

Private Sub (NewData как шнур, реакция как интежер)
'Подавите сообщение ошибки невыполнения обязательства.

Реакция = acDataErrContinue

'Проворный потребитель для проверки если они желают добавить новое значение.

Если MsgBox, то («компания» & NewData & «не находятся в списке. Добавьте его? », vbYesNo) = vbYes после этого

'Установите аргумент реакции для того чтобы показать что данные добавляются.

'Раскройте recordset tblCompany таблицы.

Затемните db как база данных

Затемните rstcboCompany как Recordset

Затемните sqltblCompany как шнур

Установите db = CurrentDb ()

sqltblCompany = «выберите * от tblCompany»

Установите rstcboCompany = db.OpenRecordset (sqltblCompany, dbOpenDynaset)

'Добавьте новую компанию с значением хранится в переменном NewData.

rstcboCompany.AddNew

rstcboCompany! [CompanyName] = NewData

rstcboCompany.Update

'Сообщите комбинированная рамка что пожеланный деталь был добавлен к списку.

Реакция = acDataErrAdded

rstcboCompany.Close 'близкое recordset

Закончитесь если

Закончите подводную лодку

class= " lastRow

>Attachments " имени " class= class= " значение "

Вопрос : добавлять детали к комбинированным рамкам на форме

Ответ : добавлять детали к комбинированным рамкам на форме