title image


Smiley Ach so - A97...
- da gibt es noch keine Formulareigenschaft "Recordset" - dann vielleicht:





Private Sub Naechste_Click()

Dim Tmp as String, I as long

If Not RS.EOF then

For I = 1 to 10

Tmp = Tmp & "," & RS!ID

RS.Movenext

If RS.EOF then exit for

next I

Me.Filter = "ID IN (" & Mid(Tmp,2) & ")"

Me.FilterOn = True

end if

end sub





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: