Naar aanleiding van mijn database-applicatie die te vinden is in volgend topic:
http://user.services.openoffice.org/nl/ ... 1812#p1812
Probeer ik uit te 'vissen' hoe ik de onderstaande 'herlaad' Macro aan de praat kan krijgen, deze macro heb ik gedownload van volgend engelstalig forum:
(met dank aan Romke!)
http://www.oooforum.org/forum/viewtopic ... ght=commit
Code: Selecteer alles
sub NaUpdateRealListbox(oEvent as object)
'This event must be run when the list box is updated (second from below)
dim oForm
oForm=oEvent.source.parent
if oForm.implementationname ="com.sun.star.comp.forms.ODatabaseForm" then
UpdateFormAndReload oForm 'Check there is form must be stored
end if
end sub
sub listbox_commit_Changed(oEvent as object)
'Bound to listbox changed (second from top)
oEvent.source.model.commit
end sub
sub UpdateFormAndReload(oForm as object)
with oForm
if .isnew then
.insertrow
.reload
elseif .ismodified then
.updaterow
.reload
end if
end with
end sub
Ik heb deze Macro opgeslagen in 'Mijn Macro's', maar wanneer ik deze wil testen, heeft deze volgende fout:
'BASIC-runtime-fout. Het argument is niet optioneel.'
Daarmee verwijst ooBase naar volgende regel:
oForm=oEvent.source.parent
Wie kan me helpen om deze macro probleemloos uit te voeren?
Christophe