Replies

Yes, this will do the trick
Thanks again

Thanks for the reply,
I will solve it an other way.

Hello Hans,

Great solution. I understand it, but have no clue how to change the SQL so it will work.
As example here the SQL of the duplicate query:

SELECT tblTekstBestand.controle, tblTekstBestand.nummer, tblTekstBestand.[Type profiel code], tblTekstBestand.[Type profiel oms], tblTekstBestand.Peildatum, tblTekstBestand.[Type relatiegroep code], tblTekstBestand.[Code relatiegroep], tblTekstBestand.[Intern specialisme code]
FROM tblTekstBestand
WHERE (((tblTekstBestand.controle) In (SELECT [controle] FROM [tblTekstBestand] As Tmp GROUP BY [controle] HAVING Count(*)>1 )))
ORDER BY tblTekstBestand.controle;

the field [nummer] has the autonumber values.

Could you please explane what to change to only show the lowest numbers of the duplicates?

Thanks in advance.
Patrick Schouten
The Netherlands

I already found a solution, just keep the object selected and change all settings before creating the next shape

Patrick

Thanks Hans,

When creating the buttons I also have some problems.
There seems no way to control the names of the shapes when creating them. When deleting all shapes and recreating them the first one is not named “Button 1” anymore
Is there a way when creating the buttond to define there name directly?
Or is the a simple way to loop through al shapes afterwards to set the OnAction and Caption properties?

greetings
Patrick

thanks Hans.

Hans,

Thanks for the suggestion.
The DoEvents did not solve the problem
I used te following: Application.Wait (Now + TimeValue(“0:00:01”))

Hans,

I solved it.
The secions(1) is the problem… because the document has more sections

Thanks,
Patrick

Hello Hans,

I have tried both solutions, but they are not working
I even tried to unprotect the document before the update, but that is also not working.
The referencefields in the header are not updated, only when I swith to Print Preview

Hans,

Again thanks for the quick and correct reply.
Patrick

Hans,

I have never worked with DoEvents.
Could you explane a bit about this function?
And could you explane why the code is working now with the OnTime function?

Hello Hans,
This seems to work, but when recreating the toolbar, it is not showing the buttons until I hit a key on the keyboard or click with the mous in the sheet.
Any idea?

(mmm this not always the case!)

Hello Jan Karel,

I delete it just to keep track of all the buttons, faces and macro’s
The sheets have different buttons to navigate to different sheets. So I have setup a case list to create the correct captions, faces and actions for every sheet

Again Hans,
Thanks for sharing you knowledge

HAns,

Just another question about this.
Is it possible when opening workbooks with a for/next loop to check when opening a workbook if that workbook has external links at al?
If you look at the Excel menu ,edit, links (I’m not sure about the correct english menu names) you see an overview of the links used by that workbook.
Is it possible to read those links in a variable?