Con el siguiente código se crea en la base de datos una nueva barra de menú, llamada thisbar, a la que se le añade como elemento un cuadro de texto.
'Crea la barra de menú
Function CreateBar()
On Error Resume Next
Dim CB As Object
Dim Cbc As Object
Application.CommandBars("thisBar").delete
Set CB = CommandBars.Add(NAME:="thisBar")
Set Cbc = CB.Controls.Add(Type:=2)
With Cbc
'Tras entrar el texto en el msoControlEdit y presionar Enter la función getTextse ejecutará.
.OnAction = "getText"
'Establece el ancho del cuadro de texto
.Width = 100
.Caption = "TextonBar"
'Se usa el nombre de la etiqueta para hacer referencia al control msoControlEdit
.Enabled = True
End With
CB.Visible = True
End Function
La siguiente función devuleve el valor del cuadro de texto de la barra de menú, cuando se hace Intro desde dicho cuadro de texto.
'Devuelve el valor del cuadro de texto
Function getText()
Dim str1 As String
str1 = CommandBars("thisBar").Controls("TextonBar").Text
msgbox(str1)
End Function
Fuente: Utter Access
