Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2009, 12:25   #1
DEZuv
 
Регистрация: 31.03.2009
Сообщений: 9
По умолчанию Ошибка Run-Time error 13

в форме при выборе из списка выдает такую ошибку и ссылается на ету строчку(rs.FindFirst "[Num] = " & Str(Me![ПолеСоСписком48])). Помогите кто знает в чем м.б дело:

Private Sub ПолеСоСпмском48_AfterUpdate()
' Поиск записи соответствующий этому элементу управления.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Num] = " & Str(Me![ПолеСоСписком48])
Me.Bookmark = rs.Bookmark
End Sub
DEZuv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
При создание edit, в режиме run-time, нет стандартного контекстного меню slips Общие вопросы Delphi 6 08.11.2008 17:05
Подскажите! Run-time error '7' Out of memory evgenjp Свободное общение 3 01.10.2008 09:16
ошибка I/O error 32 kolduev Помощь студентам 7 29.02.2008 20:22
bass.dll - ошибка - Use the step or run to continue. vitalik007 Общие вопросы Delphi 1 20.08.2007 19:59