Поле ввода в Access VBA не отображается

Привет, это было задано раньше, но ответа не было. Я хочу проверить InputBox, однако он не появится, когда я запускаю его через форму.Поле ввода в Access VBA не отображается

Private Sub Command24_Click() 
    Dim MyValue As String 
    MyValue = InputBox("Please enter a #") 
    Debug.Print "Test: "; MyValue 
End Sub

В коде нет ошибок, однако ничего (кроме Debug.print) не отображается.

Это мой код для функции InputBox:

Public Function InputBox(_ 
      ByVal Prompt As String, _ 
      Optional ByVal Title As String = "", _ 
      Optional ByVal DefaultResponse As String = "", _ 
      Optional ByVal Xpos As Integer = -1, _ 
      Optional ByVal YPos As Integer = -1 _ 
     ) As String 
End Function

источник

2015-11-23 Kenny Nguyen

Он должен работать. Попробуйте прокомментировать текущий код и - после строки Debug - _rewrite_ (no copy-n-paste) код. – Gustav

Код (эти 3 строки) работает для меня в командной кнопке на форме. @Keny – Andre

Я пытался переписать свой код (нет copy-n-paste), по-прежнему нет хорошего это моя функция InputBox, если что-то не так там 'Public Function InputBox (_ ByVal Prompt As String, _ Дополнительно Название ByVal As String = "", _ Необязательный ByVal DefaultResponse As String = "", _ факультативных ByVal XPOS As Integer = -1, _ Необязательные ByVal YPos As Integer = -1 _ ) As String End Function' –

InputBox является встроенной функцией VBA. Вам не нужно создавать собственное определение Function InputBox, просто позвоните по встроенной функции напрямую:

Dim MyValue As String 
MyValue = InputBox("Please enter something") 
' no other code required

источник

2015-11-23 17:01:22

Поле ввода в Access VBA не отображается

ответ

Смежные вопросы