Add/Edit/Delete Record(s) 1

[air1access]

I am stumped..
I have to recordsets (RS). One is a base and the other is a varying RS. The example below does just fine for adding a new record to the base RS or editing a record in the base RS. But what I can't figure is how to delete a record from the base RS when that matching record is NOT in the varying RS. The varying RS recordcount changes all the time - so when there is more records in the varying RS - they need to be added to the base RS, when there is less - they need to be deleted from the base RS, and when there is a match - they need to be edited...
Any examples or suggestions as to how I can get the code posted below to "make it happen"...?? I sure to appreciate it and thank ya in advance...!!!
Regards - air1access

My example -

rstVarying.MoveFirst
Do Until rstVarying.EOF = True
rstBase.FindFirst "[IID] = '" & rstVarying!IID & "'"
If rstBase.NoMatch Then
rstBase.AddNew
rstBase!GTWY = GBLGTWY
rstBase!FLEETTYPE = GBLFleet
rstBase!IID = rstVarying!IID
rstBase!FleetEff = rstVarying!FLEETTYPE
rstBase.Update
Else
rstBase.Edit
rstBase!GTWY = GBLGTWY
rstBase!FLEETTYPE = GBLFleet
rstBase!IID = rstVarying!IID
rstBase!FleetEff = rstVarying!FLEETTYPE
rstBase.Update
End If
rstVarying.MoveNext
Loop

 

[PHV]

Add the following code:

rstBase.MoveFirst
Do Until rstBase.EOF = True
rstVarying.FindFirst "[IID] = '" & rstBase!IID & "'"
If rstVarying.NoMatch Then
  rstBase.Delete
End If
rstBase.MoveNext
Loop

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[air1access]

PHV,

Simple as that..!! That did exactly what I needed...
Thank you..!!

air1access