Notes/Domino 4 and 5 Forum

Hi,

I have this code that goes through a view gets the first doc, then runs a function that sets up group of arrays, gets a specific field and then puts that field value in a group document in an address book db.

For eg if
p = unidoc.DivACPO is "John Smith", then John Smith will be appended to the members field in the relevant group document

But if i go into the document physically and then delete John Smith with "Bill Bob", my code returns in the members field for the relevant group:
John Smith
Bill Bob
this is obviously wrong...what am i doing wrong

Thanks

My Code is below:

Sub Initialize
'Declarations
etc etc etc

Set v = db.getview("DivisionsV")

count = 0
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Set Unidoc = v.getfirstdocument
'Processing here
Call ACOMember

Set Unidoc = v.getnextdocument(Unidoc)
count = count + 1
Print count
Loop

End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++




Sub ACOMember
Dim p As Variant
Dim q As Variant
' Dim i As Integer
Group(1) = "All ACOs"
Group(2) = Unidoc.DivName(0) & " ACOs"
Group(3) = Unidoc.DivName(0) & " DMT"
Group(4) = "AST"
Group(5) = Unidoc.DivName(0) & " All Staff"
Group(6) = "All Probation Grade Staff"

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
p = unidoc.DivACPO

For i = 0 To Ubound(p)
If i = 0 Then Redim q(i)
If i > 0 Then Redim Preserve q(i)
q(i) = p(i) & "/WestMidlands/NPS"

Next
y = q
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Dim pabview As NotesView
Set pabview = PABdb2.GetView ( "Groups" )

For i = 1 To 6 '- check the groups


'NEED HELP HERE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
For x = 0 To Ubound(y)
Dim item As NotesItem
Set item = group1doc.getFirstItem("Members")
nameToTest = y(x)
If Not contains(item, nameToTest) Then
Call group1members.appendToTextList(nameToTest)
Saveflag = 1
End If

If Saveflag = 1 Then
Call group1doc.Save ( True , False )
End If
Next
Next

End Sub