Scadenzario access

Salve mi servirebbe un aiuto e credo che questa sia la sezione giusta.
con indicazioni prese su internet, ho creato un Piccolo e credo semplice scadenzario che mi serve per gestire le scadenze dei pagamenti soci, naturalmente tengo a precisare che in materia sono sotto lo ZERO .... ma credetemi ho assolutamente bisogno che mi funzioni.
Vengo al dunque : Il calcolo delle scadenze nella maschera funziona infatti se inserisco una data retroattiva e la calcolo nei 30 gg mi da la data esatta di scadenza .. ciò che non riesco a fare funzionare e l'avviso con un popup che mi avvisa che ci sono scadenze .. Chi mi aiuta per favore ? se mi date un e mail vi allego il database affinché possiate darci un occhiata e dirmi dove sto sbagliando .. intanto vi saluto e spero in una vostra collaborazione Grazie

Questa è il codice inserito nella maschera che dovrebbe darmi l'avviso con popup ma non funziona

Dim x As Integer
x = DCount("[DataPagamento]", "[QScadenze]", "[DataPagamento]=Date()")
If x > 0 Then
If MsgBox("Attenzione ci sono " & x & " scadenze. Vuoi visualizzarle?", vbYesNo, "AVVISO") = vbYes Then
DoCmd.OpenReport "Rreport", acViewPreview
End If
End If

Questo invece è il codice di calcolo e funziona

Dim gg As Integer
gg = [GiorniPagamento]
[DataPagamento] = [DataCarico] + gg

---

Allegati: