So, nachdem ich nun den Code erweitert habe damit er mir auch gleich Texte von den Feldern aus dem Formular in den Dialog einträgt ( was funktioniert
) ist nun das Problem, dass die Buttons auf dem Dialog nicht funktionieren.
Ums besser zu erklären:
Auf dem Dialog sind mehrere Buttons die den Dialog schliessen und mich direkt auf ein bestimmtes Sheet bringen und dort die Werte eintragen.
z.B.
Code: Alles auswählen
Sub DialogCloseLieferschein
dlg.endExecute()
Dim oController as Object
Dim oResults as Object
Dim oDoc as Object
oDoc = thisComponent
oController = oDoc.getCurrentController()
oResults = oDoc.Sheets().getByIndex(50)
oController.setActiveSheet(oResults)
end Sub
Bisher hat der Code einwandfrei funktioniert aber nun bekomme ich bei dlg.endExecute() die Fehlermeldung BASIC-Laufzeitfehler. Objektvariable nicht belegt. Wobei dlg global als Object definiert ist.
Code: Alles auswählen
Sub DialogCloseLieferschein
Dim dlg As Object
dlg.endExecute()
Dim oController as Object
Dim oResults as Object
Dim oDoc as Object
oDoc = thisComponent
oController = oDoc.getCurrentController()
oResults = oDoc.Sheets().getByIndex(50)
oController.setActiveSheet(oResults)
end Sub
Bei diesem Code das selbe
Code: Alles auswählen
Sub DialogCloseLieferschein
Dim dlg As Object
DialogLibraries.LoadLibrary( "Standard" )
dlg = CreateUnoDialog( DialogLibraries.Standard.dOffertenerstellen )
dlg.endExecute()
Dim oController as Object
Dim oResults as Object
Dim oDoc as Object
oDoc = thisComponent
oController = oDoc.getCurrentController()
oResults = oDoc.Sheets().getByIndex(50)
oController.setActiveSheet(oResults)
end Sub
und bei diesem Code wechselt zwar das Sheet, aber der Dialog bleibt offen und die Werte aus dem Dialog werden nicht im Sheet übernommen.
Ich nehme an das liegt daran das ich den Dialog ein zweites mal geladen habe.
Wie kann ich das aber umgehen?
Muss ich denn bei:
Code: Alles auswählen
Sub Dokuerstellen
Dim Dlg as Object
Dim Doc As Object
Dim Url As String
Dim Dummy()
Url = "file:///C:/Users/Dave/Desktop/nur Dave Offertenvorlage1.ods"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
Doc.DialogLibraries.LoadLibrary("Standard")
oForm = Doc.DialogLibraries.Standard.dOffertenerstellen
Dlg = CreateUnoDialog(oForm)
Dlg.execute()
End Sub
noch
einbauen?
Dies hab ich nämlich versucht aber nicht hinbekommen
So langsam wirds komplizierter
