However; I now get a run time errors which did not occur before.
The database relies on forms and underlying code for data entry.
The error to show up is on the previously working function below;
Code: Select all
sub DebugText(strmessage as string)
'
' Display the supplied text in the Debug message text box.
'
'=====================================================
' Standard block to recover control object by name
'=====================================================
Dim oDoc As Object 'Current document
Dim oDocCtrl As Object 'current document control
Dim oDBtextCtrl As Object' DebugText box control
Dim oForms As Object 'Forms object
oDoc = ThisComponent 'Current document
oDocCtrl=oDoc.GetCurrentController() 'Current document controller
oForms = ThisComponent.DrawPage.Forms(0) ' Current Form
oDBtextCtrl =oForms.getbyName("DebugText")' Recover the DebugText control object
'=====================================================
oDBtextCtrl.text = strmessage 'Set the DebugText control text equal to the message
end sub
BASIC runtime error.
Property of method not fount: text.
at the line
Code: Select all
oDBtextCtrl.text = strmessage