Discussion :

[elkhy]

Boujour à tous,

Je voudrai supprimer les enregistrements d'une table si la condition d'un test est vrai.
Je suis à peu près sûr de mon algo, mais apparemment la syntaxe ne passe pas.

Voici le code:

Sub SupprData()
Dim requete, question, reponse As String
Dim temp As Variant

If TImport.F5 = Data.Code And TImport.F4 = Data.Annee Then

If MsgBox("Le fichier existe déjà. voulez vous l'écraser par le nouveau ?" _
, vbQuestion + vbYesNo, "Question") = vbYes Then
CurrentDb.Execute (requete)
End If

End If

End Sub


D'avance merci à tous.

[pgz]

Bonjour,

Je n'ai pas bien compris quelle est ta question. Mais il y a un truc que tu peux déjà corriger

Code :

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

Dim requete As String, question As String, reponse As String

Bon courage,

pgz

[Rcanada]

Essaye qlq chose comme ça :


Dim qdf As DAO.QueryDef

Set qdf = CurrentDb.QueryDefs(requete)
qdf.Execute

[elkhy]

Re,

effectivement je me suis mal expliqué...

en fait mon programme plante sur cette instruction:

If TImport.F5 = Data.Code And TImport.F4 = Data.Annee Then

traduction:
If Table.champ2 = Table2.Champ2 And Table.champ3 = Table2.Champ3 Then

est-ce que cette syntaxe vous semble correcte ?

Ps: Pgz, merci pour ta réponse, j'avais encore une question sur mon post d'hier, je ne sais si tu as vu, car tu pensais peut-être que c'était résolu mais en fait pas tout à fait...lol

Merci à tous les gars

@+