smide null i array

Kan du ikke bruge

Dim arrMyarray(50) variant

skal prøve det.
men kan ikke smide det her in i array, forkert syntaks
  arr(j, j) = rec.Fields!x "," rec.Fields("G" & I)

Skal det ikke være:

arr(j, j) = rec.Fields!x & "," & rec.Fields("G" & I)

jeg vil bare gerne skrive ind i et array

ok lige et par fundamentale spørgesmål.
hvordan kan jeg ærklre en array hvor jeg skal smide 2 tal i og længden skal være 500.

jeg skal så smide 2 recordset ind i dem !

og skal man indexere dem hvordan ?
hvis man skal søge på de forskellige værdier dvs. loop i array !

arr(j, j) = rec.Fields!x "," rec.Fields("G" & I)
kan ikke kende  rec.Fields("G" & I) spørger efter procedure ?

Jeg tror ikke man kan indeksere et array.

Du kan sende et recordset direkte i et 2-dimensionelt array med
rec.GetRows   
Se hjælpefilen for dette. Det er en meget hurtigt metode.

Hvis du ved arrayet skal være på 500 elementer er det jo
Dim MyArray(499) as variant

eller hvis du først senere finder ud af hvor mange elementer du skal bruge:

Dim MyArray() as variant
.. find ud af elementantal..
Redim MyArray(499)

Dim vararray as double
Set varArray = rec.GetRows(" & antal & ")
så melder den object requerd !

og hvis du skal have to dimensioner er det jo enten

Dim MyArray(1,499)
eller
Dim MyArray(499,1)

afhængig af hvad du foretrækker.

Jeg mener kun GetRows virker med variant type

Kan ikke smide 2 koloner fra rec til , array med getrows.
har du en example

Jeg bliver desværre nødt til at løbe et ærinde. Hvis ikke du har løst det sender jeg noget senere i dag.

ok

Den her virker vist. Jeg kunne umiddelbart ikke få den til at sende data over i arrayet uden af lave en .movelast > .movefirst først. Ellers tror jeg ikke den "ved" hvor mange elementer arrayet skal laves af.

Function test()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim a() As Variant

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM tabel1")

rs.MoveLast
rs.MoveFirst

ReDim a(rs.RecordCount - 1, 0)
a = rs.GetRows(rs.RecordCount)
Stop
rs.Close
Set rs = Nothing

'mere kode hvor du benytter arrayet...

End Function