Recordset,abhängig von anderem RS

Computer: Software & Programmierung Microsoft Access
#1

Folgender Code ist bereits implementiert:
'*********************************NET SEND*************************************
Dim RS As DAO.Recordset
Dim RSF As DAO.Recordset
Dim Artikel As String
Dim Msg1 As String
Dim Msg2 As String

Set RS = CurrentDb.OpenRecordset(„nsLieferstatus“, dbOpenSnapshot)
Set RSF = CurrentDb.OpenRecordset(„nsLieferstatus2“, dbOpenSnapshot)
Do Until RSF.EOF
Artikel = (Artikel + Chr(20) + RSF!Bezeichnung)
RSF.MoveNext
Loop
Msg2 = Artikel

Msg1 = „Bestellungsdatenbank:“ & Chr(20) & „Folgende Artikel sind für Sie eingetroffen:“ & Chr(20)

Do Until RS.EOF
Shell „net send " & RS!winloginname & " „““ & Msg1 & „“ & Msg2 & „“
RS.MoveNext
Loop

Folgendes Problem: nsLieferstatus gibt entsprechende winloginnamen
nsLieferstatus2 die Bezeichnungen der Artikel, und den passenden winloginname

Wenn nun verschiedene Artikel von verschiedenen Leuten bestellt werden, so bekommen alle winloginnamen ein net send, aber auch alle winloginnamen bekommen die vollständige Artikelliste!
Das ist der Fehler.Jeder soll nur die Artikellistebekommen, die auch zu seinem winloginname gehoert.Weiss jemand Rat?
Wo bastel ich die Bedingung rein?

#2

Ich würde es etwa so machen (nicht getestet!):

Dim RS As DAO.Recordset
Dim RSF As DAO.Recordset
Dim Artikel As String
Dim Msg1 As String
Dim Msg2 As String
Dim sql As String
Set RS = CurrentDb.OpenRecordset(„nsLieferstatus“, dbOpenSnapshot)
Msg2 = Artikel

Msg1 = „Bestellungsdatenbank:“ & Chr(20) & „Folgende Artikel sind für Sie eingetroffen:“ & Chr(20)

Do Until RS.EOF
sql = "SELECT * FROM nsLieferstatus2 WHERE WinLoginName = " & RS.WinloginName
Set RSF = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
Do Until RSF.EOF
Artikel = (Artikel + Chr(20) + RSF!Bezeichnung)

Shell „net send " & RS!WinloginName & " „““ & Msg1 & „“ & Msg2 & „“
RSF.MoveNext
Loop
RS.MoveNext
Loop

mfg Rita

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]