J’ai essayé plusieurs truc assez simple mais cela ne fonctionne pas également :
Forms![Accueil]![vue_alerte].Form.RecordSource = "Select * from [demande_de_service] where DateDiff('d', [demande_de_service].retour_chiffrage_souhaite_client, Now())<= '" & txb_delai_retour_cadrage & "'"
et
Forms![Accueil]![vue_alerte].Form.RecordSource = "SQL"
Je les est rajouté à cette endroit :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Case "alerte_1"
SQL = "Select * from [demande_de_service] where DateDiff('d', [demande_de_service].retour_chiffrage_souhaite_client, Now())<= '" & txb_delai_retour_cadrage & "'"
Set db = CurrentDb ' définition de la base
Set rst = db.OpenRecordset(SQL, dbReadOnly) ' Ouverture du recordset SQL
If rst.RecordCount <> 0 Then
rst.MoveLast
End If
Me.txb_relance_resp_ope_snecma.Value = rst.RecordCount
'Forms![Accueil]![vue_alerte].Form.RecordSource = "Select * from [demande_de_service] where DateDiff('d', [demande_de_service].retour_chiffrage_souhaite_client, Now())<= '" & txb_delai_retour_cadrage & "'"
'Forms![Accueil]![vue_alerte].Form.RecordSource = "SQL"
rst.Close ' Fermeture du Recordset |
Accueil = Formulaire principale
vue_alerte = sous formulaire
La requete SQL que je cherche à affecter est celle contenue dans mon recordset.
Partager