Всем доброе утро!
Я сделал меню на конкретное поле (Название поле - Номер_заказа):
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
Подскажите пожалуйста в чем ошибка?
Спасибо!
