Vider une requête

Salut,
Pourquoi ne pas construire ta requete à partir d' une table temporaire, identique à PROTOS_TAB_SEC_ACCESS_CNG1
que tu pourras :
-vider avant le chargement du formuliare.
"Delete * From Tmp"

et

-réemplir en temps voulu
"Insert Into Tmp Select * From PROTOS_TAB_SEC_ACCESS_CNG1
WHERE (PROTOS_TAB_SEC_ACCESS_CNG1.DAT between (#" & Me.date_deb & "#) AND (#" & Me.date_fin & "#))"

-
Ainsi :
SQLCmd.SQL = "SELECT Tmp.DAT, Tmp.II, Tmp.RI, Tmp.HCADRI, Tmp.CDOMD, Tmp.UI FROM Tmp"

mettra à jour ton graph selon que ta Tmp est vide ou pas.

      

[] Ce qui va sans dire. va mieux en le disant.

"..est ce qu'il faut que je crée cette table temporaire ?"

Oui. la créer mais dans la base elle-même.Cette table doit exister dans la base au même titre
que ta table principale ROTOS_TAB_SEC_ACCESS_CNG1
et avec la même structure que celle-ci.

"..delete va me la supprimer"

Non,"Delete * From Temporaire"  supprime uniquement les enregistrements.
Autrement dit, elle vide la table.

NB:Si tu n' as pas acces à ta base et que tu ne peux pas la modifier, tu peux toujours la cloner par code:

Public Sub ClonerTable(xSource, xDestination, xIndex)

Dim tbl As TableDef
Dim Fld As Field
Dim idx As Index
Dim xdata As Recordset
Dim xnom As String
Dim xtype As Variant
Dim xtaille As Double
Dim j As Integer
Dim k As Integer
 
  'Creer Table destination
   Set tbl = xDB.CreateTableDef(xDestination)

  'creer un recordset
    Set xdata = xDB.OpenRecordset(xSource, dbOpenTable)

  'nombre de champ de la table source
     k = xdata.Fields.Count
       
  'creer autant de champ dans la table destination et
  'leur attribuer les propriétés des champs de la table source
      For j = 1 To k
          xnom = xdata.Fields(j - 1).Name
          xtype = xdata.Fields(j - 1).Type
          xtaille = xdata.Fields(j - 1).Size
          Set Fld = tbl.CreateField(xnom, xtype, xtaille)
          tbl.Fields.Append Fld
          Set Fld = Nothing
      Next j

'Creer la cle primaire
   Set idx = tbl.CreateIndex(xIndex)
   
    idx.Fields.Append idx.CreateField(xIndex)
    idx.Primary = True
    tbl.Indexes.Append idx

'ajouter la table destination à la collection des tables
'de la base de donées en cour
   xDB.TableDefs.Append tbl
  
 Set tbl = Nothing
 Set idx = Nothing
 Set xdata = Nothing

End Sub

Ce code permet donc de cloner ta table principale et la table ainsi crééeé existera de façon permanente dans ta base dès lors que tu exécutera ce code.Arranges toi donc pour ne l' exécuter qu' une seule fois.Ou alors places un test avant de lancer la fonction pour savoir si la table éxiste déjà ou pas.

Au fait sans devoir toucher à ta base, voici un exemple
de requete qui ne risque pas de renvoyer quelque chose.
Il suffit de faire dans le critère, une référence à une date bidon, genre 01/01/1111

SQLCmd.SQL = "SELECT PROTOS_TAB_SEC_ACCESS_CNG1.DAT, PROTOS_TAB_SEC_ACCESS_CNG1.II, PROTOS_TAB_SEC_ACCESS_CNG1.RI, PROTOS_TAB_SEC_ACCESS_CNG1.HCADRI, PROTOS_TAB_SEC_ACCESS_CNG1.CDOMD, PROTOS_TAB_SEC_ACCESS_CNG1.UI"
SQLCmd.SQL = SQLCmd.SQL + " FROM PROTOS_TAB_SEC_ACCESS_CNG1"
SQLCmd.SQL = SQLCmd.SQL + " WHERE (PROTOS_TAB_SEC_ACCESS_CNG1.DAT < (#" & date_bidon & "#))"

[] Ce qui va sans dire. va mieux en le disant.

[] Ce qui va sans dire. va mieux en le disant.

xIndex c' est le numéro ordinal de ton champ cle primaire.
Si ta cle correspond au premier champ par exemple, xIndex sera egale à 0.
Si c' est le 2ième, ça sera 1....

Si ta table n' est pas indexée, tu peux t' en passer.
Mets juste en commentaire la partie de code correspondante

Autre chose à remplacer :
xDB par CurrentDB, ou alors déclares
xDB As DataBase.
Set xDB=DBEngine.Workspaces(0).OpenDatabase(CheminDeLaBase)

[] Ce qui va sans dire. va mieux en le disant.