private sub stoppen en boodschap weergeven

[sis123]

Dag,

Twee buttons

Bij click button 1 - private sub DoCmd.sendobject (versturen email) + Me.knop1 = true (vinkje)
Bij click button 2 - private sub DoCmd.sendobject (versturen email met boodschap annuleren) + Me.knop2 = false (vinkje uit)

Nu bestaat de mogelijkheid dat de gebruiker op de verkeerde button drukt, bv button 2 (anneleren mail). In dit geval zou er een boodschap op't scherm moeten verschijnen en de private sub zou moeten beïndigd worden (terug naar formulier).

Ik gebruik nu
If Me.knop1 >< -1 Then
DoCmd.OpenForm
maar dan zit ik vast ...

Hij blijft verzenden

 

[etri]

Sorry maar wat extra code zou wonderen doen. Ik begrijp nu je vraag niet...

Je zegt bijvoorbeeld

Nu bestaat de mogelijkheid dat de gebruiker op de verkeerde button drukt, bv button 2 (anneleren mail)
....
Maar dan zit ik vast...
Hij blijft verzenden

Wat is nou het probleem? Het niet kunnen stoppen van het verzenden? Met welke code verstuur je dan een email? Hoe wil je een opdracht uberhaupt kunnen cancelen? Eenmaal verzonden is verzonden...

 

[frin]

Volgens mij is dit de bedoeling

Private Sub

IF ... Then
code (popup)
ELSE
code (code verzenden)
End IF

End Sub

 

[sis123]

werkt prima