script voor groepsvak

[sis123]

Ik heb een groepsvak met 2 keuzes :

keuze 1 met waarde 1 moet email versturen naar adres a
keuze 2 met waarde 2 moet email versturen naar adres b

hieronder een stuk van mijn script, maar ik zit vast met keuze 2

Private Sub SENT_AfterUpdate()
If Me.SENT = 1 Then
Dim stDocName As String
Dim txtText As String

stDocName = "RepAFV"
txtText = "Melding Huisvuilcontainer is VOL"
DoCmd.SendObject acReport, stDocName, "snapshot format", "francis.eyben@dlogistics.be", "francis.eyben@dlogistics.be", , txtText
End If
Exit_SENT_AfterUpdate:
End Sub

 

[Bartuls]

Private Sub SENT_AfterUpdate()
Dim stDocName As String
Dim txtText As String

SELECT CASE me.sent
Case 1
stDocName = "RepAFV"
txtText = "Melding Huisvuilcontainer is VOL"
DoCmd.SendObject acReport, stDocName, "snapshot format", "francis.eyben@dlogistics.be", "francis.eyben@dlogistics.be", , txtText
Case 2
'de akties voor de tweede keuze
End Select
Exit_SENT_AfterUpdate:
End Sub

 

[sis123]

:thumb:

bedankt