Makroer

Ingrids OOo sider

Start med databaser

Lag tabellar

Rediger tabellar

Relasjonar

Skjema

Spørringer

Makro for å opne skjema frå eit skjema

Nedanfor er heile makroen gjengitt - lag eit tomt skjema (utformingsvisning) med ein knapp for kvart skjema du skal opne og tilordne den til rett makro. Det kan vere lurt å lage ein ny modul for kvar database. Denne blir kun lagra lokalt på maskina så den må kopierast over til andre maskiner om du skal bruke den der.

function OpenForm( formContainer as variant, oConnection as variant, sFormName as string) as variant

Dim aProp(1) As New com.sun.star.beans.PropertyValue

aProp(0).Name = "ActiveConnection"

aProp(0).Value = oConnection

aProp(1).Name = "OpenMode"

aProp(1).Value = "open"

OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())

end function

function getFormsTC() as variant

getFormsTC = thisComponent.Parent.getFormDocuments

end function

function getConnectionTC() as variant

getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection

end function

REM*** Denne formelen lagar eit nytt skjema

REM*** Kvifor ikkje endre titelen.

REM*** Lag makroen nedanfor for kvart skjema du skal opne

REM*** Hugs å endre namnet for kvart skjema og sett inn skjemanamnet.

sub OpneSkjemaKnapp( oev as variant )

with OpenForm( getFormsTC, getConnectionTC, "NamnPåSkjema" )

.CurrentController.Frame.Title = "Tittel"

end with

end sub