|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.01.2013, 16:19 | #1 |
Пользователь
Регистрация: 27.11.2012
Сообщений: 84
|
Не работает метод Find в Recordset'е
Еще раз здравствуйте, уважаемые форумчане!
Опять прошу совета! Дали установку реализовать удаление записей из базы данных, открыл свой старый проект и взял оттуда код,предварительно его проверив,что он там работает, вот он: PHP код:
Private Sub Удалить_Click() On Error GoTo Err_Удалить_Click Dim MyE As ADODB.Recordset Set MyE = New ADODB.Recordset Dim Msg As Integer MyE.Open "Select * From Table2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic With MyE .Find ("[OPERATIONDATE]='" & Me.[Table1 subform].[OPERATIONDATE] & "'") If .EOF = True Then MsgBox "Не существует записей в таблице", vbOKOnly + vbCritical, "Удаление записи" Else Msg = MsgBox("Вы действительно хотите удалить текущую запись?", vbYesNo + vbCritical, "Удаление записи") If Msg = vbYes Then .Delete End If End If End With MyE.Close Set MyE = Nothing Exit_Удалить_Click: Exit Sub Err_Удалить_Click: MsgBox Err.Description Resume Exit_Удалить_Click End Sub Вот и все изменения! Прога вылетает в том месте, которое я выделил жирным шрифтом, проверял по breakpoint' у. Вылетает ошибка такая - object doesn't support this property or method В чем может быть причина?В старом проекте все работает... Заранее спасибо! |
23.01.2013, 16:46 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
нет ли здесь кавычек
Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание Последний раз редактировалось shanemac51; 23.01.2013 в 16:53. |
23.01.2013, 16:54 | #3 |
Пользователь
Регистрация: 27.11.2012
Сообщений: 84
|
В данном столбце хранится дата, но в формате числа - 20121201 типа вот этого
|
23.01.2013, 21:02 | #4 |
Форумчанин
Регистрация: 20.05.2012
Сообщений: 311
|
А так:
Код:
|
24.01.2013, 02:38 | #5 |
Форумчанин
Регистрация: 19.07.2012
Сообщений: 520
|
& [Table1 subform].Form.[OPERATIONDATE] &
Окупант, руки прочь от Украины!!! Слава Героям!
|
24.01.2013, 07:19 | #6 |
Форумчанин
Регистрация: 22.05.2012
Сообщений: 136
|
правильно вот так:
Код:
Последний раз редактировалось alvk; 24.01.2013 в 07:22. |
24.01.2013, 09:19 | #7 |
Пользователь
Регистрация: 27.11.2012
Сообщений: 84
|
дааа!!!Спасибо огромное,выручили! Просто добавил .form. между и все заработало! Блин..тока странно,что код работает в старой проге,хотя...наверно это из-за форм,там нет подчиненной
|
24.01.2013, 09:52 | #8 |
Форумчанин
Регистрация: 22.05.2012
Сообщений: 136
|
На будущее хочется вам посоветовать:
Подходите строже к именам форм и таблиц, пробелы не нужны, названия должны нести смысловую нагрузку. |
24.01.2013, 10:04 | #9 |
Пользователь
Регистрация: 27.11.2012
Сообщений: 84
|
Это точно,спасибо! Сейчас посмотрю, переименую, аккуратненько,чтобы ошибок не было.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод Find | Trimbl | Microsoft Office Excel | 4 | 10.01.2023 17:40 |
НЕ РАБОТАЕТ Find | Eshil | C++ Builder | 4 | 20.11.2012 20:57 |
Find next & Find previous | NeedLess | Общие вопросы C/C++ | 0 | 08.07.2012 13:42 |
Сравнение 2 столбцов (метод find) | Костян Пират | Microsoft Office Excel | 7 | 17.11.2011 20:46 |
метод find | kate158 | Общие вопросы Delphi | 4 | 15.12.2009 16:09 |