Wat gaat er hier mis:
Dim insertstring As String
Dim currentMail As String
currentMail = Me.customer_mail_adress
insertstring = "UPDATE watch_history " _
& "SET invoiced = 1 " _
& "WHERE customer_mail_adress = currentMail;"
DoCmd.SetWarnings False
DoCmd.RunSQL insertstring
DoCmd.SetWarnings True
Response = MsgBox("Facturatie uitgevoerd. Betaling is voltooid." & vbNewLine & "De factuur zal worden geopend.", vbOKOnly, "Facturatie voltooid")
End Sub
customer_mail_adres is hier een kolom. Currentmail is het huidige e-mail adres die staat in het form van access. Currentmail moet dus in customer_mail_adress zitten. Maar het werkt niet, ik krijg de een textbox waar ik me.customer_mail_adress moet invullen, terwijl ik wil dat die dit uit me.customer_mail_adress haalt.
Als ik met de muis over Currentmail ga, staat daar wel het juist mailadres......
Ik snap er niks meer van. Misschien een verkeerde syntax?
Dim insertstring As String
Dim currentMail As String
currentMail = Me.customer_mail_adress
insertstring = "UPDATE watch_history " _
& "SET invoiced = 1 " _
& "WHERE customer_mail_adress = currentMail;"
DoCmd.SetWarnings False
DoCmd.RunSQL insertstring
DoCmd.SetWarnings True
Response = MsgBox("Facturatie uitgevoerd. Betaling is voltooid." & vbNewLine & "De factuur zal worden geopend.", vbOKOnly, "Facturatie voltooid")
End Sub
customer_mail_adres is hier een kolom. Currentmail is het huidige e-mail adres die staat in het form van access. Currentmail moet dus in customer_mail_adress zitten. Maar het werkt niet, ik krijg de een textbox waar ik me.customer_mail_adress moet invullen, terwijl ik wil dat die dit uit me.customer_mail_adress haalt.
Als ik met de muis over Currentmail ga, staat daar wel het juist mailadres......
Ik snap er niks meer van. Misschien een verkeerde syntax?
[ Voor 7% gewijzigd door Verwijderd op 19-12-2014 12:57 ]