melding na actiequery uitschakelen

[Berdi]

In een actiequery wordt een nieuwe tabel gemaakt. De oude tabel wordt overschreven.
Ik heb de vinkjes van melding van overschrijven bij "opties' uitgeschakeld.
Er blijft echter een melding komen.
Weet iemand waar ik deze melding nog meer kan uitzetten.

Alvast bedankt.

Berdi

 

[Guus2005]

Als je een actie query wilt uitvoeren zonder je druk te maken over de melding dan kan je het volgende proberen:

currentdb.execute currentdb.querydefs("qryActiequery").sql

De sql van de actiequery wordt nu doorgegeven aan currentdb.execute je krijgt nu geen melding meer.
Zet het regeltje in een functie als je die wilt uitvoeren vanuit een macro.

Enjoy!

 

[Berdi]

Als je een actie query wilt uitvoeren zonder je druk te maken over de melding dan kan je het volgende proberen:

currentdb.execute currentdb.querydefs("qryActiequery").sql

De sql van de actiequery wordt nu doorgegeven aan currentdb.execute je krijgt nu geen melding meer.
Zet het regeltje in een functie als je die wilt uitvoeren vanuit een macro.

Enjoy!

Hallo Guus,

Bedankt voor de tip maar ik snap het denk ik niet zo goed.
Ik zet de regel in de VBSAvan de knop waar ik de actiequery oproep maar dan krijg ik een foutmelding.

 

[Guus2005]

en hoe luidt die foutmelding?
zet je code er even bij.

 

[Berdi]

en hoe luidt die foutmelding?
zet je code er even bij.

Hallo Guus

"Kan het element niet vinden in deze collectie"

Ik begrijp het niet , jij misschien wel.

 

[Guus2005]

Ik weet nog niet hoe je code eruit ziet maar je moet de naam qryActiequery vervangen door jouw eigen query.

 

[Berdi]

Ik weet nog niet hoe je code eruit ziet maar je moet de naam qryActiequery vervangen door jouw eigen query.

Dat heb ik gedaan maar blijf de foutmelding krijgen.
"
Dim stFormName As String
Dim stQueryName1 As String
Dim stQueryName2 As String
Dim stDocName As String
CurrentDb.Execute CurrentDb.QueryDefs("stQueryName1").SQL
CurrentDb.Execute CurrentDb.QueryDefs("stQueryName2").SQL
stFormName = "KiesDatum"
stQueryName1 = "totaalUren"
stQueryName2 = "UrenNaarMaand"
stDocName = "Rapport"
DoCmd.OpenQuery stQueryName1, acNormal, acEdit
DoCmd.OpenQuery stQueryName2, acNormal, acEdit
DoCmd.OpenReport stDocName, acPreview
DoCmd.Close acForm, stFormName
"
Hier is mijn code.
Hulp is zeer welkom

 

[Guus2005]

Je code is fout op de plaats waar in VBA de regel geel wordt.
als deze regel geel wordt bijvoorbeeld

CurrentDb.Execute CurrentDb.QueryDefs("stQueryName1").SQL

dan is de querynaam stQueryName1 waarschijnlijk niet goed. Die bestaat dan niet.

HTH