✔ Zweidim.Array auslesen, wie?

[Alfred_]

Hi,
mit folgendem Code lese ich ein eindim. Array ein und fülle damit eine 2. Tabelle.

Set tiRs = godb.OpenRecordset("SELECT * FROM [TempIdent]" & _
"ORDER BY [ID] ASC", dbOpenDynaset)
With tiRs
  If .RecordCount > 0 Then .MoveFirst
    lMax = .RecordCount
    ReDim k(lMax)
    For x = 1 To lMax
      k(x) = tiRs!ID
      .MoveNext
    Next x
End With

Set bgRs = godb.OpenRecordset("SELECT * FROM [BingoBongo]" & _
"ORDER BY [bID] ASC", dbOpenDynaset)
min = 0: o = 1
With bgRs
  If .RecordCount > 0 Then .MoveFirst
  For x = 1 To lMax
    .Edit
    .Fields("tID") = k(0 + o)
    .Update
    o = o + 1
     .MoveNext
  Next x
End With

Ein zweidim. Array liest man, wenn ich mich irre so ein:

Set tbRs = godb.OpenRecordset("SELECT * FROM [Tabelle1]" & _
"ORDER BY [ID] ASC", dbOpenDynaset)
With tbRs
  If .RecordCount > 0 Then
    .MoveFirst
    LMax = .RecordCount
    ReDim k(2, LMax)
    For x = 1 To LMax
      k(1, x) = lmRs!A1: k(2, x) = lmRs!A2
      .MoveNext
    Next x
  End If
End With

Aber wie für ich das ein?

  For x = 1 To lMax
    .Edit
    .Fields("tHit") = k(0 + o)
    .Fields("kHit") = '?'
    .Update
    o = o + 1
    .MoveNext
  Next x

Vielen Dank

 

[Alex F.]

ich weiss war nicht was du in deinem letzten Codeschnipsel vorhast aber auslesen kannst du deine Werte so

 tbRs!Thit= k(1,x)

du musst natürlich immer beide Koordinaten bei einem 2 Dimensionalen Array angeben.

Grüsse bb

 

[Alfred_]

Hi, danke für Deinen Lösungsvorschlag.
Irgendwie habe ich die Mail-Benachrichtigung nicht aktiviert weshalb ich Dir erst heute anworten kann.Ich gehe davon aus, dass der nachfolgende Code zum Einlesen eines 2dim. Array's richtig ist.

Set tbRs = godb.OpenRecordset("SELECT * FROM [Tabelle1]" & _
"ORDER BY [ID] ASC", dbOpenDynaset)
With tbRs
  If .RecordCount > 0 Then
    .MoveFirst
    LMax = .RecordCount
    ReDim k(2, LMax)
    For x = 1 To LMax
      k(1, x) = lmRs!A1: k(2, x) = lmRs!A2
      .MoveNext
    Next x
  End If
End With

Es müsste demnach das Einlesen folgend erfolgen, richtig?

Set bgRs = godb.OpenRecordset("SELECT * FROM [BingoBongo]" & _
"ORDER BY [bID] ASC", dbOpenDynaset)
min = 0: o = 1
With bgRs
  If .RecordCount > 0 Then .MoveFirst
  For x = 1 To lMax
    .Edit
    .Fields("tID") = k(1,x)
    .Fields("tHit") = k(2,x)
    .Update
    o = o + 1
     .MoveNext
  Next x
End With

Nochmals entschuldigung, dass ich erst heute antworte.
Grüße

Getestet und es funktioniert, Danke für Deinen Tipp!