Database Anag_Clienti

[marcy65]

Ciao a tutti sto cercando di mettere su un database molto semplice che faccia da anagrafica clientela e da li poi stamparmi delle fatture e anche una scheda personale da far firmare ai clienti...
Da tempo ho sempre frequentato database di access e quindi sicuramente non avrei problemi.. Ora mi trovo con un Macbook Pro e con Openoffice installato.
Qui ovviamente e tutto diverso a iniziare dalla compilazione dei moduli che in access erano in VBA qui non e proprio cosi perche quando si compila non esiste come per VBA un assistente del linguaggio.
Ora non so dove mettere le mani per aprire un semplice Report o stamparlo cosa semplice per Access ho provato a scrivere questo codice per aprire un Report ma non funziona:

Sub ApriReport

Dim InteractionHandler As Object
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
ThisDatabaseDocument.CurrentController.connect ("","")
ThisDatabaseDocument.FormDocuments.getByName ( "tb_Anagrafica" ).open

ThisComponent.CurrentController.Frame.close (True)

End Sub

ho toppato da qualche parte?
grazie

[bydindi]

Ciao

Io uso la seguente macro associata all'azione "pulsante del mouse premuto":

Sub ApreFormulario(Evento)
Dim Control as Object
Control = ThisDatabaseDocument.CurrentController
If Not Control.IsConnected Then Control.Connect
ThisDatabaseDocument.FormDocuments.GetByName(Evento.Source.Model.Tag).Open
End Sub

poi nelle proprietà del pulsante alla voce "ulteriori informazioni" inserisco il nome del formulario

[marcy65]

Ciao e grazie per l'assist
questo funziona
pero a me serviva per aprire un report o se hai qualche dritta su dove andare a recuperare codice ...
perche quella stringa che dice :
ThisDatabaseDocument.FormDocuments.GetByName(Evento.Source.Model.Tag).Open
e quella stringa che apre il form (formulario) e per aprire il report poi per mettere in standby quella dove ce il pulsante ?

grazie mille

[bydindi]

....hooops

avevo letto Form nella tua macro e quindi ho pensato che tu volessi aprire un formulario...

ho abbandonato i report "tradizionali" da un pezzo però girovagando sul web ho trovato questa:

Codice: Seleziona tutto

Sub OpenMyReport '(oEvent As Object)
    RptName = "NomeDelReport"
    ThisDatabaseDocument.ReportDocuments.getByName(RptName).open
End Sub