|
|
|
новичок
участник
Last Login: 26.05.2007 14:02
Сообщ.: 6,
Visits: 36
|
|
| Please, кто-нибудь помогите. Значит так, у мя есть таблица "Список клиентов". И создана форма в которой есть 2 кнопки, которые нужно запрограммировать. Первая кнопка "Поиск": в поле "Введите номер клиента" вводится номер из таблицы. При нажатии кнопки, из таблицы должны выводиться в поля "Фамилия", "Имя", "Отчество" соответствующие данные. Эти данные могут быть изменены и, при нажатии кнопки "Изменить" новые данные должны вноситься в таблицу на место предыдущих. Если кто сможет, помогите. Очень нужно. Заранее спасибо.
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
Поиск и вывод в поля формы
Dim MDB As Database, RST As Recordset
Set MDB = CurrentDb
Set RST = MDB.OpenRecordset("Клиенты", dbOpenSnapshot)
RST.FindFirst "Номер=" & Nz(Me![Поле2], 0)
If RST.NoMatch Then
MsgBox "Клиент с указанным номером отсутствует"
Else
Me![Поле11] = RST![Фамилия]
Me![Поле15] = RST![Имя]
Me![Поле17] = RST![Отчество]
End If
RST.Close: Set RST = Nothing: Set MDB = Nothing
Занесение новых данных в таблицу
CurrentDb.Execute "UPDATE [Клиенты] SET [Фамилия]='" & Nz(Me![Поле11], "") & _
"', [Имя]='" & Nz(Me![Поле15], "") & "', [Отчество]='" & Nz(Me![Поле17], "") & _
"' WHERE [Номер]=" & Nz(Me![Поле2], 0)
|
|
|
|
|
новичок
участник
Last Login: 26.05.2007 14:02
Сообщ.: 6,
Visits: 36
|
|
| Спасибо, BoNiM. Извини, если оторвала от важных дел
|
|
|
|