My Life With IT

After working for 3 days, the code decided to fail today. I don’t even want to know why. I just want it to work. It worked for the other database using the same code. It’s valid. It’s available in the library. So, why doesn’t it work? I need to give a quick demo to my superior. However, it seems to be scared and I don’t why. It just throws me the error “Illegal reference to: FIELDSETTEXT”. *takes a deep breath*

Where did it go wrong? I don’t know. The prompts that I put in never came up. The LotusScript Debugger never came up with anything useful either. I’m just tearing my hair out. No, wait, I can’t tear any hair because I don’t want to be bald.

So, what is wrong with the code? First start with the form itself. In the PostOpen I put:

Sub Postopen(Source As Notesuidocument)
 If Source.EditMode Then
  Call Source.FieldSetText(“Form”, “frmMtnCatFNo”)
 End If
End Sub

In the QueryClose. I put:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
 If Source.FieldGetText(“NoClose”) = “1″ And Source.EditMode = True Then
  Msgbox “Please use the ‘Close’ button provided.”
  Continue = False
 End If
End Sub

Both worked, no errors. Next, I put a “Close” button. That will check if there are any changes made in the form and prompt the user. That’s where I use FieldSetText to change the status of the form:

Call uidoc.FieldSetText(“NoClose”, “0″)

So, what’s wrong with the code? Perhaps I need a break.