title image


Smiley So wird ein Schuh draus:


Do Until rs_stoffe.EOF

SQL = "SELECT * FROM tbl_navimport WHERE lieferantennr = '" & lieferantennr & "' AND StoffNr = '" & rs_stoffe![StoffNr] & "'"

Set rs_artikel = CurrentDb.OpenRecordset(SQL)

If Not rs_artikel.EOF Then

rs_artikel.MoveLast

anzahl = rs_artikel.RecordCount

rs_artikel.MoveFirst

Do Until rs_artikel.EOF

menge = menge + rs_artikel![stoffmenge]

rs_artikel.MoveNext

Loop

End If

rs_stoffe.MoveNext

Loop





wobei das sicher einfacher hinzubekommen ist...


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: