Filter Property Example

This example creates a Snapshot, sets the Filter property then recreates it.

Dim Db As Database, Sn As Snapshot
Set Db = OpenDatabase("BIBLIO.MDB")
Set Sn = Db.CreateSnapshot("Publishers")
Sn.Filter = "State = 'NY'"
Set Sn = Sn.CreateSnapshot()