значение поля со списком не установлено

Question

У меня есть выпадающий список cboDept, который при нажатии устанавливает его значение «dept» (которое является глобальным).Затем он делает видимым еще один комбинированный список cboBldAddress и устанавливает для него фокус.При выполнении комбо cboBldAddress никогда не загружается.Где там ошибка пилота?Для краткости я сократил другие утверждения Case.

Private Sub cboDept_Click()  
    dept = cboDept.Value
    Me.cboBldAddress.Visible = True
    Me.cboBldAddress.SetFocus
End Sub


Private Sub cboBldAddress_GotFocus()  
    Dim sql As String
    Select Case dept
      Case "Administrative"
           ssql = "select address from building where department = 'Administration'"
           cboBldAddress.RowSourceType = "Table/Query"
           cboBldAddress.RowSource = ssql
           Me.cboBldAddress.Requery       
    End Select
End Sub

Answer 1

Декларация неверна.Объявите

Dim ssql As String

И это должно работать.Включите

Option Explicit 

в каждом модуле, и вы избежите таких труднодоступных проблем