Hermed svar på de indlæg der har været:
1) Jeg er i gang med at lave en database i Access og programerer derfor VBA. Objektet der anvendes hedder i Access "List Box".
2) Når jeg indsætter objektet "List Box" i VBA er jeg klar over at der kommer en propdown tekst frem, hvor man kan se alle egenskaberne. Der er bare ikke nogen der hedder "AddItems"
3)Forslaget listbox1.additem("text") virker heller ikke. Fejlmeddelelsen en: Object required. Objektet hedder jo "List0". se evt. indlæg 19/11 kl. 14:53.
Håber stadigvæk på en løsning.
JP
I det følgende forestiller jeg mig, at du har en Access formular med en listeboks, der hedder
Liste3 og en knap, der hedder
Kommandoknap2. Idéen er, at når man trykker på knappen, så skal der komme en boks frem, der be'r om data, der skal tilføjes til listen.
<pre>Private Sub Kommandoknap2_Click()
'
' Bed om de data, der skal tilføjes.
'
Dim strTilføj As String
Let strTilføj = InputBox("Hvad skal der tilføjes?", "Tilføj Data")
With Me
'
' Få lige fat på det, der findes i listen i forvejen.
'
Dim strElements As String
Let strElements = .Liste3.RowSource
'
' Da semikolon separerer de individuelle elementer i listen, skal der
' ikke begyndes med dette tegn, så HVIS der allerede er noget i
' listen, skal semikolon tilføjes; ellers skal det udelades.
'
If Trim$(strElements) <> "" Then Let strElements = strElements & ";"
'
' Byg nu en streng med de nye data og sæt listen's elementer til denne
' streng i stedet for den forhenværende.
'
Let strElements = strElements & strTilføj
Let .Liste3.RowSource = strElements
End With
End Sub</pre>
Det sku' vist være det.
Software is here and now but rock and roll is forever.