[Solved] Go to next record with macro code

[Gix800]

Hi, i'm literally going crazy to create a simple writer macro. The question is the following.
How can i do to move, through code, to the next record?
I searched a lot on the net but I couldn't find anything, and I'm not sure if it can be done.

[Mr.Dandy]

Search about createResultSet method
You will find many examples to make this.

[Villeroy]

Hi, i'm literally going crazy to create a simple writer macro. The question is the following.
How can i do to move, through code, to the next record?

For a serial letter, as indicated in your screenshot, you don't have to write any macro code. This works out of the box, pulling the next record at the end of the document.
Simply drag column headers from the right pane of the data source window into the document. This generates the necessary mail merge fields.
When printing, confirm that you are going to print a serial letter.
Then specify either the printer or the file to be used for output.

Edit: Mail merge sample based on the builtin "Bibliography" database:

download/file.php?id=41524

[Mountaineer]

...
I searched a lot on the net but I couldn't find anything, and I'm not sure if it can be done.
...

You didn't look at the right place. Writer has no records. Base has. So start with the guide on Base, if you wish to program a macro.
.
Tell what you really wish to do. For serial letters it is not necessary to program. Just select print, after you put the placeholders in. You will be asked for the necessary records.

[Gix800]

Hi, i'm literally going crazy to create a simple writer macro. The question is the following.
How can i do to move, through code, to the next record?

For a serial letter, as indicated in your screenshot, you don't have to write any macro code. This works out of the box, pulling the next record at the end of the document.
Simply drag column headers from the right pane of the data source window into the document. This generates the necessary mail merge fields.
When printing, confirm that you are going to print a serial letter.
Then specify either the printer or the file to be used for output.

Edit: Mail merge sample based on the builtin "Bibliography" database:

download/file.php?id=41524

So you are telling me that it is not possible move to the next record via macro code?
For my purpose I have to achieve this result and not interested mailmerge function.

[JeJe]

I'm not familiar with serial letters. If there's no 'proper' way...

If that toolbar is available via the layout manager you should be able to simulate a press on that button using the accessible context - something like this. (element(0) is assumed to be a toolbar, the first item on it accessiblechild(0) a button)

Code: Select all

thiscomponent.currentcontroller.frame.layoutmanager.elements(0).realinterface.accessiblecontext.getaccessiblechild(0).doAccessibleAction(0)

MRI may help if you don't already use it.

If not, as you're on Windows, you may be able to use the Windows Api to simulate a mouse event at the position of that button on screen

https://www.developerfusion.com/code/27 ... se-events/

Edit: there are 3rd party utilities such as AutoIt which can send mouse events also.

[Bidouille]

So you are telling me that it is not possible move to the next record via macro code?

Did you read Mr.dandy proposing?

For my purpose I have to achieve this result and not interested mailmerge function.

Upload a sample document, you avoid us crystal ball usage.

[Gix800]

So you are telling me that it is not possible move to the next record via macro code?

Did you read Mr.dandy proposing?

For my purpose I have to achieve this result and not interested mailmerge function.

Upload a sample document, you avoid us crystal ball usage.

Attached a simple document linked to a database.
The purpose of the button is to advance a single record forward, but only via code.
I'm embedding all this in a more complex macro that will have to generate as many files as records there are in the database; the names of the files will be taken from column 1, and will be saved inside the folders created with the name extrapolated from column 2.
All this to overcome the limit of the mailmerge function which does not allow to work with the extrapolation of data from two columns .

[Gix800]

I'm not familiar with serial letters. If there's no 'proper' way...

If that toolbar is available via the layout manager you should be able to simulate a press on that button using the accessible context - something like this. (element(0) is assumed to be a toolbar, the first item on it accessiblechild(0) a button)

Code: Select all

thiscomponent.currentcontroller.frame.layoutmanager.elements(0).realinterface.accessiblecontext.getaccessiblechild(0).doAccessibleAction(0)

MRI may help if you don't already use it.

If not, as you're on Windows, you may be able to use the Windows Api to simulate a mouse event at the position of that button on screen

https://www.developerfusion.com/code/27 ... se-events/

Edit: there are 3rd party utilities such as AutoIt which can send mouse events also.

I don't know if this code you gave me could somehow be adapted for my purpose. I'll do some tests.

[JeJe]

Your signature needs updating if you're using LibreOffice.

The code for finding and pressing the mail merge "Next Mail Merge Entry" button using the accessible context (assuming the toolbar is showing) is this.

***Warning: I get a crash though.***

Code: Select all

sub nextrecord
 
 
dim i, j, els 
 'code to move to next record
 
 
 
 els = thiscomponent.currentcontroller.frame.layoutmanager.elements
 
 for i = 0 to ubound(els)
 if els(i).resourceurl = "private:resource/toolbar/mailmerge" then
 with els(i).realinterface.getaccessiblecontext
 for j = 0 to .getaccessiblechildcount -1
 if .getaccessiblechild(j).accessiblename = "Next Mail Merge Entry" then
 .getaccessiblechild(j).doAccessibleAction(0)
 end if
 next
 end with
 end if
 next
 
end sub

[JeJe]

You can write your own SQL query to retrieve the database information - then go through each item of each result to fill in a document you created - without using the mailmerge feature at all.

https://wiki.openoffice.org/wiki/Docume ... ase_Access

That SQL example only retrieves one column but your query can include more, then use ResultSet.getString(2), ResultSet.getString(3) etc

[Gix800]

In fact I tried this code in libreoffice package and got no effect. I'd have to make some attempts to be able to adapt it.
On which parameter should I act to adapt it?

[JeJe]

Which are you refering to... my last post about running a query?

[Gix800]

Your signature needs updating if you're using LibreOffice.

The code for finding and pressing the mail merge "Next Mail Merge Entry" button using the accessible context (assuming the toolbar is showing) is this.

***Warning: I get a crash though.***

Code: Select all

sub nextrecord
 
 
dim i, j, els 
 'code to move to next record
 
 
 
 els = thiscomponent.currentcontroller.frame.layoutmanager.elements
 
 for i = 0 to ubound(els)
 if els(i).resourceurl = "private:resource/toolbar/mailmerge" then
 with els(i).realinterface.getaccessiblecontext
 for j = 0 to .getaccessiblechildcount -1
 if .getaccessiblechild(j).accessiblename = "Next Mail Merge Entry" then
 .getaccessiblechild(j).doAccessibleAction(0)
 end if
 next
 end with
 end if
 next
 
end sub

Yesssssssssssssssssssssssssssss!!!
I changed "Next Mail Merge Entry" in my language translation and now it works perfectly!

Thank's Jeje, you are great!