Problem mit Schleife in Schleife

23/10/2007 - 11:06 von Klaus Mayer | Report spam
Hallo,

ich als Newbie habe folgendes Prob:

Es soll eine Übersichtstabelle erstellt werden, in der von
verscheidenen Mitarbeiter verschiedene Fehler summiert werden.

<snip>

strSQL1 = "select Name from " & temptable99
strSQL2 = "select Distinct FehlerID from " & Temptable1
Set cmd1 = New ADODB.Command
Set cmd2 = New ADODB.Command
cmd1.ActiveConnection = CurrentProject.Connection
cmd1.CommandText = strSQL1
cmd2.ActiveConnection = CurrentProject.Connection
cmd2.CommandText = strSQL2

Set rs1 = cmd1.Execute()
Set rs2 = cmd2.Execute()
Do Until rs1.EOF
For Each Zeile In rs1.Fields
temp1 = Zeile.Value

Do Until rs2.EOF
For Each Spalte In rs2.Fields
temp2 = Spalte.Value

MsgBox temp1
MsgBox temp2

strSQL = "update " & temptable99 & " set RC_"
& temp2 & " = (select count(FehlerID) " & _
"from " & Temptable1 & " where " & Temptable1
& ".FehlerID = '" & temp2 & "')" & _
" from " & temptable99 & " where " &
temptable99 & ".Name = '" & temp1 & "'"
DBConn.Execute (strSQL)
rs.MoveNext
Next
Loop
rs.MoveNext
Next
Loop

Das Konstrukt meckert aber beim ersten movenext, BOF oder EOF wàre
True oder Datensatz gelöscht.
Wer kann mir bitte helfen?

THX,

Klaus
 

Lesen sie die antworten

#1 Stefan Hoffmann
23/10/2007 - 11:16 | Warnen spam
hallo Klaus,

Klaus Mayer schrieb:
Es soll eine Übersichtstabelle erstellt werden, in der von
verscheidenen Mitarbeiter verschiedene Fehler summiert werden.


Prinzipiell:

SELECT t1.Mitarbeiter, Sum(t2.deinFeld)
FROM tabelle1 t1
INNER JOIN tabelle2 t2
ON t1.id = t2.id
GROUP BY t1.Mitarbeiter

strSQL1 = "select Name from " & temptable99
strSQL2 = "select Distinct FehlerID from " & Temptable1


Wie sehen die beteiligten Tabellen konkret aus?



mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen