Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Еще раз о...

Тема: Еще раз об обновлении поля в таблице

15.06.2007 21:09:12

All

4316 сообщения

Тема: Еще раз об обновлении поля в таблице

i = 0
КолЗаписей = Nz(DCount("ключ", "Спр_Операторов"), 0)
Do
i = i + 1
ЛогинБазы = Nz(DLookup("[Фамилия Имя Отчество]", "Спр_Операторов", _
"ключ =" & i), "Нет фамилии")
ПарольБазы = Nz(DLookup("[Пароль]", "СпрПаролей", _
"КодОператора =" & i), "Нет пароля")
Loop Until ((Логин = ЛогинБазы) And (i < КолЗаписей)) Or (i >= КолЗаписей)
Пароль1 = Поле27
Set БазаДанных = CurrentDb
Set ТблПароли = БазаДанных.OpenRecordset("СпрПаролей")

!
! Подскажите, что сюда написать, чтобы обновилось
!поле Пароль в записи под номером i таблицы "СпрПаролей" ?
!

With ТблПароли
.Edit
!Пароль = Пароль1
.Update
End With

Благодарю за ответ.

P.S. Раздел для новичков
Автор: Чайник от 0:00:00 Источник ...

15.06.2007 21:09:12

All

4316 сообщения

RE: Еще раз об обновлении поля в таблице

Надо добавить условие поиска. Как найти запись в таблице смотрите примеры в файле la_find.mdb

P.S. Раздел для новичков
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:09:12

All

4316 сообщения

RE: Еще раз об обновлении поля в таблице

Уважаемый Admin!
В написанном коде я уже нашел номер записи где храниться необходимый логин и пароль. Теперь мне как-то нужно встать на запись с номером, который хранится в переменной i.
А затем наверное должен сработать код:

With ТблПароли
.Edit
!Пароль = Пароль1
.Update
End With

Это и сейчас срабатывает, но меняется пароль только в первой записи таблицы.
А как встать на запись с номером i, увы не знаю.

P.S. Раздел для новичков
Автор: Anonymous от 0:00:00 Источник ...

15.06.2007 21:09:12

All

4316 сообщения

RE: Еще раз об обновлении поля в таблице

Вот как можно найти запись

ТблПароли.FindFirst "([i]=" & i & ")"
If ТблПароли.NoMatch = False Then
MsgBox "Данные найдены!"
Else
MsgBox "Нет данных!"
End If

P.S. Раздел для новичков
Автор: admin от 0:00:00 Источник ...

15.06.2007 21:09:12

All

4316 сообщения

RE: Еще раз об обновлении поля в таблице

Добрый день,Admin!
Ругается на строку

ТблПароли.FindFirst "([i]=" & i & ")"

Дает ошибку выполнения 3251
"операция не поддерживается для объектов этого типа"

P.S. Раздел для новичков
Автор: Чайник от 0:00:00 Источник ...

Страница 1 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Еще раз о...

Поиск

Список форумов

Начало | Forums