[Access] Calcolo data sulla base di valori di una combobox e di un campo data

Prima di tutto un sorrisone di saluto e un ringrazimento per l'impegno che mettete in questa community!
E' la prima volta che mi decido a scrivere per chiedere aiuto e lo faccio dopo che la, solita, tecnica del "cerca, studia, cerca, studia, prova, prova" non ha dato i risultati sperati.
Mi auguro di non replicare qualche thread esistente (ma non mi sembra ce ne siano, altrimenti avrei già trovato la risposta) e, se così fosse, me ne scuso in anticipo: a volte non troviamo le risposte che ci occorrono semplicemente perchè non poniamo la giusta domanda.

Andiamo al dunque:
ho una tabella che contiene diversi campi di informazione su una tessera sanitaria, tra gli altri si trova una combobox (tiptess) con quattro valori (Ssn, Stp, Eni, Altro), un campo data di rilascio (datariltess) e un campo data di scadenza (datascadtess). L'interazione che vorrei creare è questa: quando viene selezionato il campo Stp oppure Eni la data di scadenza viene calcolata automaticamente dopo 6 mesi dalla data di rilascio; nei casi Ssn o Altro la data di scadenza verrà inserita manualmente dall'utente.

Ho creato una routine (senza considerare il valore immesso nella combobox), che funziona perfettamente:

Private Sub datariltess_AfterUpdate()
Me![datascadtess] = DateAdd("m", 6, [datariltess])
End Sub

Il problema, ovviamente, lo riscontro nel momento in cui provo a leggere la combobox.
Pensavo di inserire un If Then, nella routine datariltess_afterupdate in questo modo:

If Me.tiptess.Value = "Stp" Then
Me![datascadtess] = DateAdd("m", 6, [datariltess])
End If

Non capisco se il non funzionamento dipenda dall'evento a cui è associata la routine, dalla sintassi o dall'impostazione tutta! :-)

Spero che qualcuno possa aiutarmi!

Non si capisce cosa non vada da quello che scrivi...!
Ottieni un'errore...?
Il campo [datariltess] è valorizzato o no...?
Il codice deve girare su AfterUpdate della Combo...!

Private Sub tiptess_AfterUpdate()
   Select Case Me!tiptess.Value
         Case Is="Stp"
               If  IsDate(Me!datariltess) Then  Me![datascadtess] = DateAdd("m", 6, [datariltess])
         Case Else
               ' Eventuali altre condizioni.
   End Select 
End Sub

Innanzitutto grazie per la risposta, @Alex.
Non ottengo errori, non ottengo niente dopo la selezione dalla combo e l'inserimento del valore in datariltess, come se l'istruzione non esistesse! Questo sia che il codice giri su AfterUpdate della Combo che su quello della data di rilascio tessera (io in realtà l'avevo messo qui).
Preferirei mille volte un errore, almeno con quello ti scontri frontalmente, così invece non capisco assolutamente cosa lo turbi!

Ho il sospetto che tu abbia la sicurezza di Access settata alta e non vengono eseguite le Macro e le Routine...
Verifica dalle impostazioni.

Purtroppo non è così, tant'è che le altri macro/routine/etc le esegue (oddio, tranne un problema su una join, ma questa è un'altra storia)... proverò ancora: devo scovare il problema (in genere trattasi di errore di "distrazione", come avevi ipotizzato tu con il suggerimento sulla sicurezza), anche se sto finendo le idee su dove cercarlo!
Se ti venissero in mente altri punti in cui potrebbe essere la falla, saresti così gentile da dirmelo? Quattro occhi e due cervelli sono meglio di due e uno!
Grazie ancora