Скажите пожалуйста, как сделать надпись в ComboBox (аналог надписи в главном меню "Введите вопрос") пользовательского меню в такой трактовке?
Private Function AddControl(capt As String, t As Integer) As Integer
Dim newit As CommandBarControl
AddControl = 0
On Error GoTo wrong
Select Case t
Case msoControlButton '???
Set newit = m_menu.Controls.Add(t)
Case msoControlEdit 'Textbox
Set newit = m_menu.Controls.Add(t)
Case msoControlDropdown 'Listbox
Set newit = m_menu.Controls.Add(t)
Case msoControlComboBox 'ComboBox
Set newit = m_menu.Controls.Add(t)
If capt = "Дата" Then
Set rstEmployees = CurrentProject.Connection.Execute("SELECT TOP 6 Дата FROM Месяц ORDER BY Дата DESC")
Do Until rstEmployees.EOF
newit.AddItem rstEmployees!Дата
rstEmployees.MoveNext
Loop
newit.OnAction = "=MyActionDat()"
End If
Case msoControlPopup 'Item
Set newit = m_menu.Controls.Add(t)
Case Else
MsgBox "Wrong type of control"
End Select
newit.tag = "menu"
newit.Caption = capt
newit.Visible = True
newit.BeginGroup = True
AddControl = newit.Index
Exit Function
wrong:
Select Case Err.Number
Case 91
Exit Function
Case Else
MsgBox Err.Description, , "AddControl " & Err.Number
End Select
End Function Заранее благодарен.