AddItem problem

Når det fungerer på den ene maskine burde det jo også på den anden. Derfor må du prøve at lede efter forskelle på maskinerne.

- Er det samme version af programmer?
- I givet fald, er kollegaens maskine fuldt opdateret?

AddItem er så vidt jeg ved en Access 2002/XP specifik funktion.
Kører du f.eks. XP og andre med 2000?

http://exp.dk/spm/634970

Jeg bruger XP og Access 2000 filformat uden problemer med AddItem

Ja, det er ikke filformatet, der er problemet.
Men jeg tror ikke databasen virker, hvis du kører den i Access 2000.

Af samme årsag kan man ikke lave en MDE i A2000 format, hvis filformatet er A2000-format og databasen f.eks. er lavet med Access XP (men filen altså i A2000-format).
Det bøvlede jeg en del med før jeg fandt fejlen.

Hvis AddItem er en Access 2002 specifik funktion, hvordan gør man så i tidligere / andre versioner af Access?

mugs. Du henviser til et spørgsmål jeg selv har stillet, og som er hele problemet nu. :-)

Jeg har ingen erfaring med det i tidligere versioner. Jeg linkede blot til spørgsmålet for at illustrere koden. Jeg ved godt, at du selv stillede spørgsmålet.

Al pacone >
De databaser jeg laver skal kunne køre både på Access XP og 2000, så jeg undgår at bruge AddItem.
I stedet koder jeg mig ud af det. Hvis listboxen er baseret på en tilfældig liste kan man holde dem i et array, tilføje den nye værdi og genfylde listboxen.
Hvis listboxen er baseret på en tabel kan man tilføje til tabellen og requery'e listboxen.

jesperfjoelner. Mine data ligger i et array, hvor jeg bruger AddItem til at fylde listboxen med data fra arrayét. Hvordan kan jeg ellers gøre det?

Hvordan ser dit array ud?
Hvis det er et almindelig 1-dimensionelt kan du opbygge en streng og sætte den som rowsource.
F.eks.

Dim arr() as string
Dim sSource as string
Dim i as integer
arr(0)="nummer1"
arr(1)="nummer2"
arr(2)="nummer3"
For i=lbound(arr) to ubound(arr)
  sSource = sSource & arr(i) & ";"
Next
sSource=left(sSource,len(sSource)-1)

Me!mylistbox.rowsource = sSource

Det skal modificeres en smule, hvis du har flere kolonner.

Mit array er i to dimensioner.

Ok, jeg regner med at din rowsource er sat til "værdiliste" eller "value list" og har 2 kolonner og "arr" er et 2-dimensionelt array.

Dim sSource As String
Dim i As Integer
Dim x As Integer

For i = LBound(arr, 1) To UBound(arr, 1)
  For x = LBound(arr, 2) To UBound(arr, 2)
    sSource = sSource & arr(i, x) & ";"
  Next
Next
sSource = Left(sSource, Len(sSource) - 1)
Forms!form4!List14.RowSource = sSource

Det var lige den løsning jeg manglede.

Tak for hjælpen.

Selv tak :-)