Вопрос : Доступ 2003: Он по возможности для того чтобы редактировать и уточнять данные по таблиц using recordset

Мое Кодий в настоящее время нагружает данные по таблицы основанные на выбранном значении комбинированной рамки. Оно показывает свое значение в unbound форме. Я могу изменить данные, тогда щелкаю спасительной кнопкой. После этого раскрывает RecordSet основанное на EmployeeID после этого, котор оно уничтожает существующий работника и после этого сохраняет работника, но конечно таблица думает это будет новый вход поэтому оно дает ему новое EmployeeID. Дорога уточнить существующий работника без уничтожить работника от таблицы и уточнить свои существующий значения к новым одним поставленным на форме? Здесь мое Кодий для

спасительной кнопки… 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:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
class= btnSave_Click " id= " codeSnippet814528
Private Sub ()
На ошибке переход Err_btnSave_Click

    'Создайте функциональные перемеююые
    Затемните strSQL как шнур
    Затемните сообщение как шнур
        
    'Создайте перемеююые для полей входного сигнала.
    Затемните работника как интежер
    Затемните FName как шнур
    Затемните LName как шнур
    Затемните название как шнур
    Затемните адрес как шнур
    Затемните город как шнур
    Затемните Prov как шнур
    Затемните PCode как шнур
    Затемните телефон как шнур
    Затемните WorkEmail как шнур

    Если IsNull (cboEmployee.Value) = ложно после этого
        'Задайте поля к перемеююым
        Работник = cboEmployee.Value
        FName = txtFName.Value
        LName = txtLName.Value
        Название = txtTitle.Value
        Адрес = txtAddress.Value
        Город = txtCity.Value
        Prov = cboProv.Value
        PCode = txtPostalCode.Value
        Телефон = txtPhone.Value
        WorkEmail = txtWorkEmail.Value
          
        'Раскройте базу данных
        Установите db = CurrentDb ()
        
        'Раскройте recordset
        Установите rs = db.OpenRecordset («работник»)
        
        'Заявление SQL для того чтобы уничтожить все записывает имеют сопрягая удостоверение личности работника от управления cboEmployee
        strSQL = «DELETE * ОТ [работник] ГДЕ [EmployeeID] =» & работник
        
        DoCmd.SetWarnings ложное
        strSQL DoCmd.RunSQL
        DoCmd.SetWarnings поистине
        
        'Заполните внутри таблицу работника с значениями от полей формы
        rs.AddNew
        rs. Поля («FName»). Значение = FName
        rs. Поля («LName»). Значение = LName
        rs. Поля («название»). Значение = название
        rs. Поля («адрес»). Значение = адрес
        rs. Поля («город»). Значение = город
        rs. Поля («Prov»). Значение = Prov
        rs. Поля («PostalCode»). Значение = PCode
        rs. Поля («телефон»). Значение = телефон
        rs. Поля («WorkEmail»). Значение = WorkEmail
        rs. Уточнение
        
        'Близкие и переустановленные db и recordset
        rs. Конец
        Установите rs = ничего
        db. Закройте
        Установите db = ничего
        Добавленный работник MsgBox «. », vbInformation + vbOKOnly, «управление работника»
        
        'Освежите работник упадите вниз меню
        Me.cboEmployee.Requery
        
        'Ясные поля
        txtFName.Value = ""
        txtLName.Value = ""
        txtTitle.Value = ""
        txtAddress.Value = ""
        txtPhone.Value = ""
        txtCity.Value = ""
        txtWorkEmail.Value = ""
        txtPostalCode.Value = ""
        cboProv.Value = Null
        
    Еще
        'Задайте поля к перемеююым
        FName = txtFName.Value
        LName = txtLName.Value
        Название = txtTitle.Value
        Адрес = txtAddress.Value
        Город = txtCity.Value
        Prov = cboProv.Value
        PCode = txtPostalCode.Value
        Телефон = txtPhone.Value
        WorkEmail = txtWorkEmail.Value
          
        'Раскройте базу данных
        Установите db = CurrentDb ()
        
        'Раскройте recordset
        Установите rs = db.OpenRecordset («работник»)
        
        'Заявление SQL для того чтобы уничтожить все записывает имеют сопрягая удостоверение личности работника от управления cboEmployee
        strSQL = «DELETE * ОТ [работник] ГДЕ [EmployeeID] =» & работник
        
        DoCmd.SetWarnings ложное
        strSQL DoCmd.RunSQL
        DoCmd.SetWarnings поистине
        
        'Заполните внутри таблицу работника с значениями от полей формы
        rs.AddNew
        rs. Поля («FName»). Значение = FName
        rs. Поля («LName»). Значение = LName
        rs. Поля («название»). Значение = название
        rs. Поля («адрес»). Значение = адрес
        rs. Поля («город»). Значение = город
        rs. Поля («Prov»). Значение = Prov
        rs. Поля («PostalCode»). Значение = PCode
        rs. Поля («телефон»). Значение = телефон
        rs. Поля («WorkEmail»). Значение = WorkEmail
        rs. Уточнение
        
        'Близкие и переустановленные db и recordset
        rs. Конец
        Установите rs = ничего
        db. Закройте
        Установите db = ничего
        Добавленный работник MsgBox «. », vbInformation + vbOKOnly, «управление работника»
        
        'Ясные поля
        txtFName.Value = ""
        txtLName.Value = ""
        txtTitle.Value = ""
        txtAddress.Value = ""
        txtPhone.Value = ""
        txtCity.Value = ""
        txtWorkEmail.Value = ""
        txtPostalCode.Value = ""
        cboProv.Value = Null
        
        'Освежите работник упадите вниз меню
        Me.cboEmployee.Requery
    Закончитесь если
        
Exit_btnSave_Click:
    Выходите подводная лодка
Err_btnSave_Click:
    MsgBox Err.Description
    Резюме Exit_btnSave_Click
Подводная лодка конца
class=

Ответ : Доступ 2003: Он по возможности для того чтобы редактировать и уточнять данные по таблиц using recordset

Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us