ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка: Invalid procedure call or argument
13 сообщений из 13, страница 1 из 1
Ошибка: Invalid procedure call or argument
    #39480145
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Всем доброе утро!
Я сделал меню на конкретное поле (Название поле - Номер_заказа):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Compare Database
Option Explicit
Private cb As Office.CommandBar
Private WithEvents cbb0 As Office.CommandBarButton

Private Sub Номер_заказа_GotFocus()
Set cb = Application.CommandBars.Add("CONTEXTMENU", msoBarPopup, False, True)
With cb
Set cbb0 = .Controls.Add(1, , , , True)
cbb0.Caption = Me.Номер_заказа
Me.Номер_заказа.ShortcutMenuBar = "CONTEXTMENU"
End Sub

Private Sub Номер_заказа_LostFocus()
cb.Delete
End Sub


Но при получение фокуса выдаёт ошибку:
Microsoft Visual BasicRun-time error '5':
Invalid procedure call or argument
Подскажите пожалуйста в чем ошибка?
Спасибо!
...
Рейтинг: 0 / 0
30.06.2017, 09:29
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480170
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Брейк в начале процедуры и пошаговая отладка. Смотреть, какой оператор вызывает ошибку.
А дальше смотреть на подсказки intellisence насчёт аргументов, и что по этому поводу думает object explorer.
...
Рейтинг: 0 / 0
30.06.2017, 09:51
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480172
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
Abisma2008, на какой строке вылазит ошибка нужно догадаться?

With закрой... Да и зачем он непонятно.
...
Рейтинг: 0 / 0
30.06.2017, 09:52
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480195
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Abisma2008,
А какая необходимость в создании меню при получении фокуса и его удаление при потере фокуса полем?
гляньте зто
...
Рейтинг: 0 / 0
30.06.2017, 10:25
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480208
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
\\\\на какой строке вылазит ошибка нужно догадаться?
Код: vbnet
1.
Set cb = Application.CommandBars.Add("CONTEXTMENU", msoBarPopup, False, True)


\\\\А какая необходимость в создании меню при получении фокуса и его удаление при потере фокуса полем?
гляньте это
У меня табличная форма. (То есть на каждую строку мне нужно разное меню...)
...
Рейтинг: 0 / 0
30.06.2017, 10:37
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480226
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Abisma2008 , обычно эта ошибка означает, что элемент уже присутствует в коллекции.

Вероятно, GotFocus происходит раньше... так что в нём проверяйте наличие Application.CommandBars("CONTEXTMENU"), и если он там есть - удаляйте. А LostFocus вообще не нужен.
...
Рейтинг: 0 / 0
30.06.2017, 10:56
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480248
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Akina,

Странно. Я копировал формы и таблицу в другую базу всё работает)
Дальше буду копать...
Базу выложу, кому интересно.
...
Рейтинг: 0 / 0
30.06.2017, 11:16
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480257
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Static counter As Integer

Private Sub Номер_заказа_GotFocus()
counter = counter + 1
Debug.Print counter; " GotFocus"
End Sub

Private Sub Номер_заказа_LostFocus()
counter = counter + 1
Debug.Print counter; " LostFocus"
End Sub
...
Рейтинг: 0 / 0
30.06.2017, 11:22
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480258
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Последовательность событий вообще штука такая... не очень-то надёжная.
...
Рейтинг: 0 / 0
30.06.2017, 11:23
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480287
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Abisma2008...То есть на каждую строку мне нужно разное меню...Об этом поподробнее
посмотрите это (при создании формы мастером-не работает; при создании формы в конструкторе-работает)
...
Рейтинг: 0 / 0
30.06.2017, 12:03
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480311
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
...
Рейтинг: 0 / 0
30.06.2017, 12:46
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480520
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
или так:
...
Рейтинг: 0 / 0
30.06.2017, 16:14
| Ответить | Цитировать | Написать  
Ошибка: Invalid procedure call or argument
    #39480763
Nebo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nebo
Участник
Abisma2008,

Такое сообщение бывает редко возникает на ровном месте.
И может исчезать сама собой. Выйти из Аксесса, снова запустить.
...
Рейтинг: 0 / 0
01.07.2017, 00:29
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка: Invalid procedure call or argument
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=45&tid=1612298]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 27ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 290ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]