Jag har i Access en rullgardinmeny (ComoBox). Hur gör jag så att man kan skriva in nya värden i boxen så de sparas till nästa gång formuläret öppnas

Beror på om toolbaren är bunden till formuläret eller inte. <BR>
<BR>
Jag skulle nog göra så här(Kannske bara funkar i 2000 eller senare):<BR>
<BR>
Börja med att öpna VBA editorn([Alt]+[F11]). <BR>
Öppna referens dilagoen under menyn Verktyg/Referenser(Tools/References)<BR>
<BR>
Sök i listan efter. "Microsoft Office 9.0 Object Libary" om du har Access 2000. Version 8 om du har Access 97. Version 10 om du har Access XP.<BR>
<BR>
Finns den inte med i listan. Välj sök(brows) ange sökväg och filnamn för MSO9.DLL. Ligger normalt G:\Program\Microsoft Office\Office(G:\Program Files\Microsoft Office\Office).<BR>
<BR>
Okej. Nu kan vi börja skriva kod.<BR>
<BR>
<code>
Option Compare Database
Option Explicit

Private WithEvents mToolbarCombo As Office.CommandBarComboBox

Private Sub Form_Load()
Set mToolbarCombo = CommandBars("tlbForm1").Controls("My Combo")

'Ladda Combo
mToolbarCombo.Clear
mToolbarCombo.AddItem "Item 1"
mToolbarCombo.AddItem "Item 2"
mToolbarCombo.AddItem "Item 3"

mToolbarCombo.Enabled = True

'Ladda combo med senast valda värde från tabell eller i registret
' ...
End Sub

Private Sub Form_Unload(Cancel As Integer)
mToolbarCombo.Enabled = False
Set mToolbarCombo = Nothing
End Sub

Private Sub mToolbarCombo_Change(ByVal Ctrl As Office.CommandBarComboBox)
Text0.Value = mToolbarCombo.Text

'Spara i tabell eller i registret
' ...
End Sub
</code>

Jag får felmeddelande för första raden

Private WithEvents mToolbarCombo As Office.CommandBarComboBox



"Endats giltig i objektmodul"

Ligger koden i formuläret? Den skall ligga i formulärets modul eller i en klass modul.

Om du vill ha en funktion. KAn du istället handera den med ett funktionsanrop som du lägger in i ComboBoxens egenskap On Action.

Har engelsk Access. Bäst om man ska utveckla internationella applikationer. Eftersom det har döpt om lite för mycket i den svenska. Inte lika hemsk som Office 4.3. Ush... I den hade de faktist övrsatt hela VB språket. Nästan omöjligt att använda. ;O)