OpenOffice.info

von **Geotrans** » Sa, 23.02.2013 19:36

so funktioniert es jetzt:

REM  *****  BASIC  *****

Sub Aktualisieren
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm1 AS OBJECT
DIM oForm2 AS OBJECT
DIM oForm3 AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm1 = oDrawpage.forms.getByName("MainForm")
oForm2 = oDrawpage.forms.getByName("MainForm").getByName("Auswertung InputGood")
oForm3 = oDrawpage.forms.getByName("MainForm").getByName("Auswertung OutputGood")
If oForm1.isNew Then
   0
   ElseIf oForm1.isModified Then
      oForm1.updateRow
   End if
oForm2.reload()
oForm3.reload()
End Sub

während das:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Aktualisieren
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm1 AS OBJECT
DIM oForm2 AS OBJECT
DIM oForm3 AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm1 = oDrawpage.forms.getByName("MainForm")
oForm2 = oDrawpage.forms.getByName("MainForm").getByName("Auswertung InputGood")
oForm3 = oDrawpage.forms.getByName("MainForm").getByName("Auswertung OutputGood")
oForm1.updateRow
oForm2.reload()
oForm3.reload()
End Sub

eine Fehlermeldung bringt!

von **Geotrans** » Fr, 22.02.2013 18:43

Habe noch einen Fehler entdeckt bei dem ich keine Lösung weiß!
Wenn ich in dem Formular "factory1" bei einem ausgefüllten Datensatz eine Wert bei "DistributionsWeight","Produktivity","Range",electricyti_boost","passgener_boost" oder "mail_boost" ändere werden die Formulare "Verbrauch Fabriken" und "Produktion Fabriken" ordnungsgemäß aktualisiert. Füge ich einen neuen Datensatz hinzu und möchte dort einen Wert eingeben bekomme ich eine Fehlermeldung "BASIC Laufzeitfehler" und das Makro öffnet sich.

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Aktualisieren
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm1 AS OBJECT
DIM oForm2 AS OBJECT
DIM oForm3 AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm1 = oDrawpage.forms.getByName("MainForm")
oForm2 = oDrawpage.forms.getByName("MainForm").getByName("Auswertung InputGood")
oForm3 = oDrawpage.forms.getByName("MainForm").getByName("Auswertung OutputGood")
   If oForm1.isNew Then
      oForm1.insertRow
   ElseIf oForm1.isModified Then
      oForm1.updateRow
   End if
oForm2.reload()
oForm3.reload()
End Sub

Würde mich sehr freuen wenn mir da nochmals jemand helfen könnte!

OpenOffice.info

Formular mit Makro aktualisieren bei neuem Datensatz

Antwort erstellen

Ansicht erweitern Die letzten Beiträge des Themas: Formular mit Makro aktualisieren bei neuem Datensatz

Re: Formular mit Makro aktualisieren bei neuem Datensatz

Formular mit Makro aktualisieren bei neuem Datensatz