Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

It works! Than You very much!

I completed the code:

    Sub ShowText()
    Dim oForm As Object
    Dim oField As Object


rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")


rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecRefresh", "", 0, Array())


    oForm = ThisComponent.Drawpage.Forms.getByName("MainForm")            'Get Form'
    oSubForm = oForm.getByName("SubForm")                        'Get SubForm'
    Doc = ThisComponent
    DocCtl = Doc.getCurrentController()
    oGetField = oSubForm.getByName("fmtNowy_numer")
    oPutField = oForm.getByName("fmtNumer")
    answer = oGetField.Text                                         'Get wanted text'
'Get the VIEW of the control'
    CtlView = DocCtl.GetControl(oPutField)
    CtlView.Text = answer                                            'Insert text'
    oPutField.commit()                         'need if going to update record'


 rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecRefresh", "", 0, Array())


End Sub