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.
Do both files Form & NoClose exist on the form. I mean, did you create both fields view designer?
Form and NoClose are computed text fields that are shared. They are placed in a subform. I’ve used this method in another database and it works. Not sure why this time it doesn’t work.