добавьте имена к 2-ой комбинированной рамке на форме - Проблемы и решения вопросов, связанных с Software

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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

Приватное Sub cbo________NotInList (strNewData как шнур, intResponse как интежер)
'Установите предел для того чтобы перечислить к да
'Создано Хелен Feddema 7-Apr-2010
'Последнее доработанное 7-Apr-2010
'См. Добавлять-к комбинированным рамкам (AA 161) .mdb

На ошибке переход ErrorHandler
   
    Тусклое cbo как Access.ComboBox
    Тусклые dbs как DAO.Database
    Тусклое intMsgDialog как интежер
    Тусклое intResult как интежер
    Тусклое rst как DAO.Recordset
    Тусклое strEntry как шнур
    Тусклое strFieldName как шнур
    Тусклое strMsg как шнур
    Тусклое strMsg1 как шнур
    Тусклое strMsg2 как шнур
    Тусклое strTable как шнур
    Тусклое strTitle как шнур
  
    'Имя таблицы будет источником рядка комбинированной рамки
    strTable = «______________»
  
    'Тип деталя, котор нужно добавить к таблице
    strEntry = «___________»
  
    'Поле в таблице взгляда вверх в новый вход хранится
    strFieldName = «_____________»
  
    'Добавлять-к комбинированной рамке
    Установите cbo = Me.ActiveControl

    'Покажите блок сообщения спрашивая хочет ли потребитель добавить
    'новый вход.
    strTitle = strEntry & «не в списке»
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = «вы хотите добавить»
    strMsg2 = «как новая» & strEntry & «вход?»
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Если intResult = vbNo после этого
        'Отмените добавлять новый вход к таблице взгляда вверх.
        intResponse = acDataErrContinue
        cbo. Расстегните
        Переход ErrorHandlerExit
    intResult = vbYes ElseIf после этого
        'Добавьте новый рекорд к таблице взгляда вверх.
        Установите dbs = CurrentDb
        Установите rst = dbs.OpenRecordset (strTable)
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Уточнение
        rst. Конец
   
        'Продолжайтесь без показа сообщения ошибки невыполнения обязательства.
        intResponse = acDataErrAdded
     Закончитесь если
   
ErrorHandlerExit:
   Выходите подводная лодка

ErrorHandler:
   Нет ошибки MsgBox «: » & _ Err.Number
      & «в» & Me.ActiveControl.Name & «процедура; » _
      & «описание: » & Err.Description
   Резюме ErrorHandlerExit

Подводная лодка конца

Вопрос : добавьте имена к 2-ой комбинированной рамке на форме

Ответ : добавьте имена к 2-ой комбинированной рамке на форме