Ik heb nog een vraagje omtrent onderstaande. Het gaat nogmaals over de code onder een knop waarvan ik dat het anders zou moeten.
Ik heb de volgende vba code onder een knop, alles werkt in principe goed als ik niet afwijk van de procedure.
Ik rename ook hier het rapportnaam "rpfactuur" naar een "idnr en datum"
ik sla het rapport op met een "idnr een datum" daarna opent de mail en staat hij als bijlage in deze mail met het "idnr en datum"
als ik nu op verzenden druk wordt het rapport geprint en het "idnr datum wordt terug veranderd naar de naam "rpfactuur"
dit voor de volgende sessie.
Maar als ik nu de mail niet verstuur en wegklik omdat ik nog iets wil wijzigen in het rapport blijft de naam van het rapport "" idnr datum"
en kan ik de volgende sessie niet meer starten want hij vindt de naam rpfactuur niet meer.
hoe kan ik dit oplossen of doe ik het te omslachtig.
vr gr Jan
Ik heb de volgende vba code onder een knop, alles werkt in principe goed als ik niet afwijk van de procedure.
Ik rename ook hier het rapportnaam "rpfactuur" naar een "idnr en datum"
ik sla het rapport op met een "idnr een datum" daarna opent de mail en staat hij als bijlage in deze mail met het "idnr en datum"
als ik nu op verzenden druk wordt het rapport geprint en het "idnr datum wordt terug veranderd naar de naam "rpfactuur"
dit voor de volgende sessie.
Maar als ik nu de mail niet verstuur en wegklik omdat ik nog iets wil wijzigen in het rapport blijft de naam van het rapport "" idnr datum"
en kan ik de volgende sessie niet meer starten want hij vindt de naam rpfactuur niet meer.
hoe kan ik dit oplossen of doe ik het te omslachtig.
vr gr Jan
Code:
Private Sub Knop57_Click()
Dim stDocName As String
Dim sqlTemp As String
Dim qDef As QueryDef
Set qDef = CurrentDb.QueryDefs("qfactuur9")
sqlTemp = "SELECT Id, memo, datum, naam, adres, plaats, postcode," _
& "[gewerkte uren], [extra uren], [totaalbedrag materialen], [subtotaal]+[Btw9]+[Btw21] AS factuurbedrag," _
& "[gewerkte uren]+[extra uren]+[totaalbedrag materialen] AS subtotaal, [gewerkte uren]+[extra uren] AS urentotaal," _
& "[gewerkte uren]/100*9+[extra uren]/100*9 AS [Btw9]," _
& "[totaalbedrag materialen]/100*21 AS [Btw21],[9]" _
& "FROM facturen " _
& "WHERE (Id=" & Me.Id & ");"
qDef.SQL = sqlTemp
stDocName = Right("0000" & Me.Id, 4) & "-" & Format(Date, "yyyymmdd")
DoCmd.OutputTo acOutputReport, "rpfactuur9", acFormatPDF, "f:\Facturen\" & stDocName & ".pdf"
DoCmd.Rename stDocName, acReport, "rpFactuur9"
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, "test@test.nl", , , "factuur.", "Hoi," & Chr(13) & _
"Bijgesloten vindt u als bijlage de factuur van" & Chr(13) & Me.naam & Chr(13) & Me.datum & Chr(13) & _
"Vriendelijke groet Ikke", , True
DoCmd.OpenReport stDocName, acNormal, , "Id=" & Me.Id, acHidden, sFilter
DoCmd.Rename "rpFactuur9", acReport, stDocName
End Sub
Laatst bewerkt door een moderator: