Hi,
mit folgendem Code lese ich ein eindim. Array ein und fülle damit eine 2. Tabelle.
Ein zweidim. Array liest man, wenn ich mich irre so ein:
Aber wie für ich das ein?
Vielen Dank
mit folgendem Code lese ich ein eindim. Array ein und fülle damit eine 2. Tabelle.
Code:
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
Code:
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
Code:
For x = 1 To lMax
.Edit
.Fields("tHit") = k(0 + o)
.Fields("kHit") = '?'
.Update
o = o + 1
.MoveNext
Next x