Discussion :

[stan314]

Salut tout le monde;

J'ai un formulaire avec des formations dans une zone de liste et quand on clique dessus il apparait la liste des reservations pour une formations dans une deuxieme zone de liste.
J'ai creer une requete de suppression qui fonctionne mais j'aimerais l'inclure en VBA (pour pouvoir enlever les messages d'avertissements)mais je ne sais pas comment faire... J'aimerais l'inclure sur le click du button supprimer.. Et que ca supprime la reservation qui est selectionnée dans la zone de liste.

Voila mon code de la requete :

Code :

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

1
2
3
4
 
DELETE DISTINCTROW RESERVATION.Numero
FROM RESERVATION
WHERE (((RESERVATION.Numero)=[Formulaires]![MENU RESERVATION]![Liste10]));

Si quelq'un pourrait m'aider..

Merci d'avance

stan314

[herendel]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim SQL As String
Dim Db As Database
Set Db = CurrentDb()
 
SQL= "DELETE DISTINCTROW [Numero] FROM RESERVATION "
SQL= SQL & "WHERE [Numero]= "& [Formulaires]![MENU RESERVATION]![Liste10]
 
Db.Execute SQL
 
 
Db.close
Set Db = Nothing
SQL=""

inspire toi de sa mais je suis pas sur que sa marchera chez toi mais tu à la forme au moins

[loufab]

Quelques modifications au code proposé car celui-ci ne fonctionnera pas

Code :

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

1
2
3
4
 
 
SQL= "DELETE DISTINCTROW [Numero] FROM RESERVATION "
SQL= SQL & "WHERE [Numero]= " & Forms![MENU RESERVATION]![Liste10] & ";"

ou encore (directement dans le module de formulaire)

Code :

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

1
2
3
4
 
 
SQL= "DELETE DISTINCTROW [Numero] FROM RESERVATION "
SQL= SQL & "WHERE [Numero]= " & me.Liste10 & ";"

ou encore

Code :

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

1
2
3
4
 
 
SQL= "DELETE DISTINCTROW [Numero] FROM RESERVATION "
SQL= SQL & "WHERE [Numero]= [Formulaires]![MENU RESERVATION]![Liste10];"

Cordialement,

Le distinctrow est inutile sur une requete suppression.

[Tofalu]

SQL= "DELETE DISTINCTROW [Numero] FROM RESERVATION "
SQL= SQL & "WHERE [Numero]= [Formulaires]![MENU RESERVATION]![Liste10];"

Ceci ne passera pas en DAO. Il ne faut pas faire référence à des controles, mais intégrer leur valeurs dans le SQL

[herendel]

Code :

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

1
2
SQL= "DELETE DISTINCTROW [Numero] FROM RESERVATION "
SQL= SQL & "WHERE [Numero]= " & Forms![MENU RESERVATION]![Liste10] & ";"

oui c'est juste c'est forms! oups pardon
mais j'ai une question je croyais qu'il fallait pa mettre de ";" à la fin d'une intruction SQL en VBA?

[Tofalu]

j'ai une question je croyais qu'il fallait pa mettre de ";" à la fin d'une intruction SQL en VBA?

C'est pas obligatoire