Thank you so much, Gerard. How could I have missed that??!! It was
really driving me crazy that I couldn't figure it out.
Now I can sleep this evening.
Cheers,
Darryl
Dr Gerard Hammond wrote:
Darryl,
In deleteEntry You are passing in pItemNumber As string but you should
have passed in pWhichItem as string
I think it should be
Sub deleteEntry(pWhichItem As string)
dim i,u As Integer
u = UBound(pToDoItems)
for i = u DownTo 0
if pToDoItems(i).pItemNumber = pWhichItem then // pItemNumber = a
property of the ToDoListItem class
pToDoItems.Remove i
fileHasChanged = True
bbTDSave.Enabled = True
Exit
end if
next
End Sub
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
