Good morning Specialists,
After input my form fields I click a button to create a mail. Works fine.
Before the "email code" starts, the user has the possibility to save the record and continue or not and cancel.
When clicked "Yes" the code continues and the email appears. So far so good.
When clicke "No" I have a message :
The setting you entered isn't valid for this property.
I click OK, the form is reseted and I can restart the process.
Why do I get this message?
Thanks
Greetz
Pascal
After input my form fields I click a button to create a mail. Works fine.
Before the "email code" starts, the user has the possibility to save the record and continue or not and cancel.
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
Dim iResponse As Integer
' Specify the message to display.
Beep
strMsg = "Wil je deze aanvraag bewaren?" & vbLf & "Klik ''Yes'' om te bewaren of ''No'' om af te sluiten." & vbLf & vbLf
strMsg = strMsg & "Voulez-vous enregistrer cette demande?" & vbLf & "Cliquez sur ''Yes'' pour enregistrer ou sur ''No'' pour fermer." ' Display the message box.
iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?")
' Check the user's response.
If iResponse = vbNo Then
' Undo the change.
Me.Undo
' Cancel the update.
Cancel = True
End If
Hoeveel.SetFocus
End Sub
When clicke "No" I have a message :
The setting you entered isn't valid for this property.
I click OK, the form is reseted and I can restart the process.
Why do I get this message?
Thanks
Greetz
Pascal