Salve, un amico, che non è nella lista mi ha risolto 2 problemi, mi mancherebbe solo il pulsante Esci (Salva e chiudi db).
Di seguito vi invio copio le macro:

Il 14/12/2013 11:36, Andrea Congiu ha scritto:

Buon giorno a tutti,
sto creando un piccolo database per la gestione dei prelievi amatici.
Mi sono arrenato nelle macro.

Cioè: ho cercato in internet diverse soluzioni ma tutte mi si bloccano da qualche parte.

Mi servirebbe una macro per aprire un formulario da pulsante in un formulario
Nel "Formulario Prelievi" si trova il pulsante "Contatti" il quale, con la giusta macro, dovrebbe aprire il "Formulario Contatti".

Sub ApriContatti
Dim InteractionHandler As Object
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
ThisDatabaseDocument.CurrentController.connect("","")
ThisDatabaseDocument.FormDocuments.getByName ( "Formulario Contatti" ).open
End Sub

Una macro per aprire un rapporto da pulsante in un formulario
Nel "Formulario Prelievi" si trova il pulsante "Stampa i prelievi da fare" il quale dovrebbe aprire il "Rapporto prelievi da fare".

REM attenzione funziona solo se la macro è chiamata da un pulsante creato nel formulario

Sub ApriRapportoPrelieviDaFare
nometuoreport="Rappoto prelievi da fare"
ApriReportPernome(nometuoreport)
End Sub
'________________________________________________
Sub ApriReportPernome(nome)
pip = thisComponent.Parent.getReportDocuments
Dim ReportPropArgs(1) As New com.sun.star.beans.PropertyValue
ReportPropArgs(0).Name = "ActiveConnection"
ReportPropArgs(0).Value=thisComponent.Drawpage.Forms(0).ActiveConnection
ReportPropArgs(1).Name = "OpenMode"
ReportPropArgs(1).Value = "open"
penReport1 = pip.loadComponentFromURL(nome,"_blank",8,ReportPropArgs())
End Sub

Una macro per salvare e chiudere il data base Prelievi dal pulsante "Esci" nel "Formulario Prelievi"

In allegato il file odb per le eventuali prove.

Buon fine settimana.

saluti

andrea
_______________________________________________
http://lists.lugbz.org/cgi-bin/mailman/listinfo/lugbz-list