vbKeySpace и ошибка автоматизации

Question

У меня странная проблема. Ниже мой код.

Вкратце, он проверяет, нажата ли определенная клавиша на клавиатуре. Если да, он запускает 2 подпрограммы и устанавливает фокус на кнопку с именем diesel. Я хотел добавить еще один ключ -> Пробел (vbKeySpace). После добавления я получаю: ошибка времени выполнения -2147417848 (80010108).

Я понятия не имею, как справиться с этим ...

Private Sub Dostawcy_listbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 

Select Case KeyCode 

'Enter = wstaw dane klienta 
Case vbKeyReturn, vbKeySpace 
    dane_dostawcy 
    turn_on 
    diesel.SetFocus 

End Select 

End Sub 

Answer 1

Ваш код кажется правильным. Попробуйте изменить ВЫБРАТЬ заявление случая на Если посмотреть, если это решает проблему:

If (KeyCode = vbKeyReturn) or (KwyCode = vbKeySpace) then 
etc. 

Если это не решает проблему, может быть более сложными вещи происходят. Как и код, который вы используете в событии KeyUp. Или задержка в двух подпрограммах, которые вы вызываете, что-то испортила. Или действия внутри этих подпрограмм. Вы также можете попытаться прокомментировать подпрограммы один за другим, чтобы попытаться изолировать проблему.