Discussion :

[Claire07]

bonjour,

Mon problème est que je veux associer une requète qui suprime des enregistrements d'une table à un bouton ce qui normalement se fait très simplement avec l'assistant mais lorsque je le fais la requête n'apparait pas dans la liste de requêtes alors que je l'ai créée.

ce qui est étrange c'est que j'ai fait la même chose pour ajouter des enregistrements d'une table à une autre et là ça marche très bien la requète apparait et je l'associe au bouton.

A quoi c'est dû?

merci d'avance et bonne journée

[zooffy]

A quoi c'est dû, je ne pourrais pas t'aider.
En réféchissant rapidement je dirai que c'est peut être parce que c'est une requête supression, mais j'en suis pas sûr.

Par contre pour contourner le problème tu peux aussi mettre ta requête en code.
Sur le click de ton bouton, tu mets un Docmd.runSQL et tu mets le code SQL de ta requête en paramètre.

Si çà peux t'aider.

[Claire07]

Je sais pas bien utiliser Visual Basic, j'ai essayé ça mais ça marche pas,

Private Sub SUPRESSION_Click()
Docmd.runSQL(DELETE Contracte.*, Year([Date_Sortie]) AS Expr1
FROM Contracte
WHERE (((Year([Date_Sortie])) < Year(Now())))
End Sub

C'est quoi le pb?

[guigui5931]

Essaye de faire ça plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Docmd.runSQL(DELETE FROM Contracte
WHERE (((Year([Date_Sortie])) < Year(Now())))

Dans un DELETE tu supprime la ligne en entier donc ta pas besoin de préciser les champs. Mais je uis pas sur que cétait ça le problème

[zooffy]

Oui, DELETE c'est sans les champs.

Mais as tu bien mis les & et les _ de gestion de retour à la ligne ? Moi je fais plutôt comme çà, çà reviens au même mais c'est plus lisible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim sql as string
sql = "DELETE FROM Contracte " & _
"WHERE (((Year([Date_Sortie])) < Year(Now())))"
Docmd.runSQL(sql)

[Claire07]

ça ne marche toujours pas, apparement uil y aurait une erreur de syntaxe dans la ligne du Docmdj je sais pas si il faut un autre paramètre ou quoi.

Est ce que vous avez une idée?

[Mariboo]

Docmd.runSQL(DELETE FROM Contracte
WHERE (((Year([Date_Sortie])) < Year(Now())))

Ecris exactement ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Docmd.runSQL
"DELETE FROM Contracte WHERE (((Year([Date_Sortie])) < Year(Now()))) ;"

[Claire07]

Meci beaucoup ça marche
Je savais pas qu'il fallait mettre la requête entre guillemets.

Bonne journéé

[zooffy]

Oui, autant pour moi, les parenthèses ne sont pas nécessaires.
Mais attention tout de même, le message de retour peut s'appliquer au code SQL lui même.

C'est un truc qui me gave un peu avec ACCESS c'est que lorsque le problème est dans la requête ben il le dit pas clairement.