title image


Smiley Nomatch hat nur mit Find(First/Next,...) Sinn. Ohne nicht. Nimm EOF.


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

end if

If rs_artikel.RecordCount = 0 Then

MsgBox "Keine Daten!"

rs_artikel.close

Set rs_artikel = Nothing

Exit Sub 'Austeigen ------------------------------------------------------------>

End if

rs_artikel.MoveFirst

Do Until rs_artikel.EOF

menge = menge + rs_artikel![stoffmenge]

rs_artikel.MoveNext

Loop

End If

rs_stoffe.MoveNext

Loop


Martin
Atrus2711 ät gmx punkt net
Meine Beiträge zu MS Office betreffen stets Version 2000,
wenn nicht anders angegeben.




geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: