Hvordan tilføje linje til listefelt?

Det er ikke et særlig elegant svar, men det virker:

Private Sub Kommandoknap4_Click()
DoCmd.OpenTable \"Tabel1\", acNormal, acAdd
End Sub


Private Sub Kommandoknap5_Click()
Me.Refresh
End Sub

Det må være muligt at sætte de 2 kodelinier sammen i een, men jeg har ikke ret meget tid lige nu.

Hvis vi forudsætter, at den nye værdi stammer fra indtastning i selve listefeltet:
Private Sub Liste1_NotInList(NewData As String, Response As Integer)
  If MsgBox(\"Teksten findes ikke på listen. Opret?\", vbQuestion + vbYesNo + vbDefaultButton2, \"Ukendt tekst\") = vbYes Then
    CurrentDb.Execute \"INSERT INTO [EnTabel](EtFelt) SELECT \'\" & NewData & \"\';\"
    Response = acDataErrAdded
  Else
    Response = acDataErrContinue
  End If
End Sub

fdata > jeg har kun svaret fordi ingen andre havde!
Men: er en liste ikke låst, forstå på den måde, at man ikke kan indtaste i selve listen som du forudsætter?
Jeg har ikke arbejdet med lister før, så jeg ved dårligt nok hvad jeg har med at gøre! 

 

mugs>>> Det jeg mener er, at brugeren indtaster i feltet i forventning om at værdien findes. Hvis ikke det er tilfældet, udløses ovennævnte rutine.
Og jo, den korrekte betegnelse er en Kombinationsboks (ComboBox); men jeg fulgte bare texas2\'s sprog. Jeg gættede på, at han/hun mente en Kombinationsboks.

fdata > Hvis jeg havde tænkt så langt som til en combo - så havde jeg svaret anderledes :o)

Indtil videre er det jo gætteværk. Det kan være, vi tager fejl begge to!  ;o)