Private Sub Ticket_Click()
On erro GoTo ticketfout
copybestelnr = (Forms.BestelBoek_F.Form!Bestelnummer)
DoCmd.GoToControl "copybestelnr"
DoCmd.RunCommand acCmdCopy
DoCmd.OpenReport "Best_klantbonticket2_R"
nu komt er een pop-up venster met vraag welke bonnummer je wilt om af te drukken.
DoCmd.RunCommand acCmdPaste
ticketfout:
Exit Sub
End Sub
Het plakken in de input van popup venster lukt niet.
Hoe moet ik dat doen?
Als ik CTRL + V doet dan plak het de juiste bonnummer.
On erro GoTo ticketfout
copybestelnr = (Forms.BestelBoek_F.Form!Bestelnummer)
DoCmd.GoToControl "copybestelnr"
DoCmd.RunCommand acCmdCopy
DoCmd.OpenReport "Best_klantbonticket2_R"
nu komt er een pop-up venster met vraag welke bonnummer je wilt om af te drukken.
DoCmd.RunCommand acCmdPaste
ticketfout:
Exit Sub
End Sub
Het plakken in de input van popup venster lukt niet.
Hoe moet ik dat doen?
Als ik CTRL + V doet dan plak het de juiste bonnummer.