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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: