Habe ein merkwürdiges Verhalten von Makros mit "RELOAD":
Formular "Kundenübersicht" hat Filerfunktionen, die per Makro an/abgeschaltet werden koennen:
SUB FilterReset(oEvent AS OBJECT)
REM Dieses Makro loescht den Filter im aktuellen Formular
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oBearbForm AS OBJECT
oDoc=thisComponent
oDrawpage=oDoc.drawpage
oBearbForm = oDoc.drawpage.forms.getbyindex(0)
' Filter inaktivieren
oBearbForm.Filter = Empty
oBearbForm.ApplyFilter = False
oBearbForm.reload()
End Sub
Das geht einwandfrei.
Wenn ich einen reload auf Dieses Formular, wegen update der Daten von einem anderen Formular machen will, bleibt das reload-Stetement wirkungslos:
sub fKundenuebersichtReload
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
Dim oFormDocs As Object
DIM oBearbForm as object
oDoc=thisComponent
oDrawpage=oDoc.Drawpage
oFormDocs = ThisDatabaseDocument.FormDocuments.getByName("fKundenuebersicht").open
oBearbForm = oFormDocs.Drawpage.Forms.getByName("fKundenuebersicht")
msgbox ("RELOAD wird ausgefuehrt") ------> aber die Daten im Formuler sind nicht aktualisiert !!!!!
oBearbForm.reload()
end sub
Die harte Methode wiederum funktioniert:
sub Kundenuebersicht_Close_open
ThisDatabaseDocument.FormDocuments.getByName("fKundenuebersicht").close
ThisDatabaseDocument.FormDocuments.getByName("fKundenuebersicht").open
end sub
Kann mir das nicht erklären
