update query onzichtbaar starten vanuit macro

[spawn666]

Goeie dag,

Waarschijnlijk is dit erg makkelijk maar ik zoek me helemaal suf.
Ik heb een 'update query' die goed werkt
Een macro die mail verstuurd die ook goed werkt.
Ik zou nu alleen erg graag de update query willen laten draaien na de mail opdracht.
Als ik een open query opdracht geef vanuit de macro opent hij gelijk een query venster. Wat ik niet wil maar erger nog is dat hij de query niet uitvoerd.
kan iemand me helpen?

 

[Anne-Marie]

'Waarschuwings meldingen uitschakelen
DoCmd.SetWarnings False

stDocName = "jouw Querie"
DoCmd.OpenQuery stDocName, acNormal, acEdit

'Waarschuwings meldingen weer inschakelen
DoCmd.SetWarnings True

Suc6

 

[spawn666]

Geplaatst door Anne-Marie
'Waarschuwings meldingen uitschakelen
DoCmd.SetWarnings False

stDocName = "jouw Querie"
DoCmd.OpenQuery stDocName, acNormal, acEdit

'Waarschuwings meldingen weer inschakelen
DoCmd.SetWarnings True

Suc6

ik kan niet vinden waar ik dit moet aanpassen
de macro krijg ik nie tin VB weergave. Of zoek ik op de verkeerde plaats?

denk voor je reactie

 

[Anne-Marie]

Je kunt deze actie als gebeurtenisprocedure beschrijven, achter een knop of in jouw geval bv bij sluiten van een bepaald formulier. Tussen het uit- en inschakelen van Warnings kun je ook gewoon eerst een macro en dan een updatequerie laten uitvoeren.
Dat komt er dan ongeveer zo uit te zien:

'Waarschuwings meldingen uitschakelen
DoCmd.SetWarnings False

stDocName = "Jouwmacrootje"
DoCmd.RunMacro stDocName

stDocName = "jouw Querie"
DoCmd.OpenQuery stDocName, acNormal, acEdit

'Waarschuwings meldingen weer inschakelen
DoCmd.SetWarnings True

Suc6

 

[spawn666]

Ben nog eerg angstig voor Visual Basic.
maar doe me best het te begrijpen.
Ik weet niet precies waar ik het tussen kan zetten. het zier er momenteel zo uit :

Option Compare Database

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click


DoCmd.GoToRecord , , acNewRec

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click

End Sub
Private Sub Mail_afvoerlijst_Click()
On Error GoTo Err_Mail_afvoerlijst_Click

Dim stDocName As String

stDocName = "afvoer"
DoCmd.RunMacro stDocName

Exit_Mail_afvoerlijst_Click:
Exit Sub

Err_Mail_afvoerlijst_Click:
MsgBox Err.Description
Resume Exit_Mail_afvoerlijst_Click

End Sub

 

[Anne-Marie]

Als je zelf geen ster bent in VBA (net als ik overigens) dan moet je ACCESS het eea laten doen. Maak een knop aan op een formulier, via de wizzard kies je dan voor bv macro openen of querie openen (volgens mij kiezen voor overig). Kijk daarna dan bij eigenschappen bij klikken van de knop en in die gebeurtenisprocedure staat het hele verhaal. Dit kun je gewoon kopieren en bij eigenschappen van je formulier ergens neerzetten. Op dezelfde manier kun je uitzoeken hoe je formulieren, rapporten ed kunt openen. Dan regelmatig deze site raadplegen en binnen een jaar ben je een expert.
Het aan en uitzetten van de Warnings moet je even uitproberen. Is maar net welke meldingen je allemaal niet wilt zien. Ik zou hem voor en na de macro zetten. Groetjes