Hey all,

I've just upgraded my database, and it must be late, and my eyes are crossing, but a security feature I've added doesn't seem to work.  Help?

In the code below, I have an xlookupsourcelist to see if a file is being moved away from an active staff member.  However, I have placeholder staff ID's that don't exist, and the xlookupsourcelist for these should come back "", and be allowed through ... but they fail every time.  Any idea why?

		for q = 1 to vpromptamt
			ResultSetCurrentPosition(q)
			if DBColl# <> "NEW" and vPassword <> "PASSWORD"
			{
				vCollcheck = @xlookupsourcelist(@FN, DBColl#, "Staff Screen!StaffRef", "StaffStartDate;StaffEndDate")

				vOK = 1
				if @accessstringarray(vCollCheck,1) <> "" and @accessstringarray(vCollCheck,2) = "" then vOK = 0
				if @accessstringarray(vCollCheck,1) = "" and @accessstringarray(vCollcheck,2) = "" then vOK = 1
				if vCollCheck = "" then vOK = 1
				if vCollCheck < 0 then vOK = 1

				if VOK = 0 then vPassword = @PromptForUserInput("PASSWORD TO ALTER?","")
				if vPassword = "PASSWORD" then vOK = 1
				if vPassword <> "PASSWORD" then vOK = 0
				if vOK = 0
				{
					if VOK = 0 then vSkipCount = vSkipCount + 1
					if VOK = 0 then @MsgBox( "  YOU DO NOT HAVE ACCESS TO ALTER ONE OF THESE ASSIGNED FILES.","  THE ORIGINAL COLLECTOR MUST MOVE THE FILE.","  FILE REMAINS WITH " + DBColl#)
				}
				if vOK = 1
				{
					DBColl# = vpromptuser
					if vPromptNxt <> "" then DBNxt = vPromptNxt

					vCltList = @appendstringarray(vCltList,DBCltNo)

					vNote = "UPD USER -- " + vpromptuser
					if @Visibility(NotePanel) = 1 then NotePanel = @left(vUserDate,4) + "-" + @mid(vUserDate,6,2) + "-" + @mid(vUserdate,9,2) + "   " + @left(vUsertime,5) + "  " + (toupper(@mid(@userid,1,3))) + "   " + vNote
					gAddNote3(vNote)
				}
			}
			ELSE
			{
				DBColl# = vpromptuser
				if vPromptNxt <> "" then DBNxt = vPromptNxt

				vCltList = @appendstringarray(vCltList,DBCltNo)

				vNote = "UPD USER -- " + vpromptuser
				if @Visibility(NotePanel) = 1 then NotePanel = @left(vUserDate,4) + "-" + @mid(vUserDate,6,2) + "-" + @mid(vUserdate,9,2) + "   " + @left(vUsertime,5) + "  " + (toupper(@mid(@userid,1,3))) + "   " + vNote
				gAddNote3(vNote)
			}
		next