Relatorio

1. 1º PASSO - Criar um contêiner, ou módulo, para a nova macro 2. 2º PASSO - selecionando “Ferramentas” no menu principal Base, em seguida, “Macros” e “Organizar Macros.” Selecione o contêiner de biblioteca “Minhas Macros” e biblioteca, em seguida, “padrão”. 3. 3º PASSO - Clique em “Novo módulo” para abrir a janela “Novo módulo”. Digite um nome para o módulo, como “AddName” e clique em “OK” para criar o novo módulo de macro, adicioná-lo para a lista da biblioteca padrão e fechar a janela “Novo módulo”. 4. 4º PASSO - Salve a macro no módulo criado selecionando primeiro o módulo “AddName”. Em seguida, clique em editar e digite o código. Pressione o botão “Salvar” para salvar a macro e nomeie sua macro. 5. 5º PASSO - Execute a macro, colocando o cursor na primeira caixa de texto onde você deseja inserir informações. Selecione “Ferramentas”, “Macros” e “Executar Macros” para abrir uma caixa de “Seletor de Macro”. Selecione sua macro na lista e carregue no botão “Executar” para concluir a inserção de informações nos campos apropriados.
REM Macro semelhante ao AutoExec do ACCESS Sub AutoExec On Error Goto HandleError Dim LastFrame As Object Dim NumFrames As Integer Static FormDocs As Object Dim DBDoc As Object Dim ImpName As String Dim DataSource As Object Dim Conn As Object Dim Args(1) As New com.sun.star.beans.PropertyValue Dim FormName As String Dim FormDoc As Object FormName="SWITCHBOARD" 'Mude aqui para o Forms de Abertura da Aplicação ImpName="com.sun.star.comp.dba.ODatabaseDocument" NumFrames=StarDesktop.Frames.Count LastFrame=StarDesktop.Frames.getByIndex(NumFrames-1) If LastFrame.Frames.Count>1 Then Exit Sub End If If Not (LastFrame.Controller.Model.ImplementationName=ImpName) Then Exit Sub REM not a db doc End If DataSource=LastFrame.Controller.DataSource DBDoc=DataSource.DatabaseDocument FormDocs=DBDoc.FormDocuments Conn=DataSource.getConnection("","") REM no user/password Args(0).Name="ActiveConnection" : Args(0).Value=Conn if FormDocs.hasByName(FormName)