VBA Editor: Data fra tabel kolonne til array

Du laver bare et recordset baseret på din tabel, som du så looper igennem mens du skriver til array'et

dette kan evt. gøres ved <tryk> på en knap

ok, men jeg er ikke så stærk i kode, så hvordan gør man?

Er ikke helt sikker på syntax'en men du kan gøre noget i retning af:

Dim Array(antal felter) As Variant
strSQL = "Select [KolonneNavn] From [TabelNavn]"
Set rsTable = CurrentDb.OpenRecordset(strSQL)

If rsTable.EOF And rsTable.BOF Then GoTo Exit
rsTable.MoveLast
rsTable.MoveFirst
x = 1
While Not rsTable.EOF
Array(x) = rsTable.Fields(x)
x = x + 1
rsTable.MoveNext
Wend

try looking at the getstring method of the recordset, this will save you having to loop through the recordset as it inserts the recordset directly into an array!

eller getrows i dao

http://www.devguru.com/Technologies/ado/quickref/recordset_getrows.html

Jeg kan stadig ikke finde ud af det :-/
hjælp...

if you can send your dB to me then I can see what the problem is.
NOSPAMeksperten@santhell.dkNOSPAM

remove NOSPAM

Jeg har desværre ikke mulighed for at sende databasen

Jeg har prøvet med:

    Dim rRS As Recordset, sSQL$, lX&, sData$, iMin&, iMax&, iCount%
    sSQL = "SELECT * FROM " & "Observations" ' & ";"
    Set rRS = CurrentDb.OpenRecordset(sSQL)
    lX = 1  ' initialize x
    With rRS
        If Not .BOF Then .MoveFirst
        While Not .EOF
            .MoveNext
            lX = lX + 1
        Wend
    End With

Men får fejlen:
"Type Mismatch" i linien    Set rRS = CurrentDb.OpenRecordset(sSQL)

Hvad er der galt?

lukket

tak!

Halløj ked af jeg ikke har svaret men er lige kommet tilbage fra skiferie.

Der er i hvert fald noget galt med din sSQL-sætning, så den skal du lige kigge på

Jeg har ikke mulighed for at sende databasen.

dc>Although we would like to help, it isnt easy if you cant make use of the answers given.

dc>> Hvor langt er du noget i processen, har du forsøgt dig med noget af det Terry, Nih eller jeg foreslog?

Som Terry siger vil vi naturligvis gerne hjælpe dig men du give os lidt feedback, evt. vise noget af din kode, så er det nemmere for os at guide dig :c)

Er det mig eller er der ikke 2 spørgsmålstråde der er "sammensmeltet" her?