Probleme CurrentDb.Execute Sql

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour voila je suis entrein de développer une application access concernant des interventions que mon entreprise doit effectuer ! Un intervention peut avoir plusieurs observations... j'ai crée un formulaire de suppression d'intervention avec un sous formulaire observation... cependant pour supprimer les observation de l'intervention je suis obligé de passer par vba.
Le soucis c'est que vba me donne une erreur et je ne vois pas comment la résoudre !

voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Boutonsupprinter_Click() Dim Sql As String If MsgBox("Etes vous sûr de vouloir supprimer cet enregistrement?", vbYesNo + vbCritical, "Suppression") = vbNo Then Exit Sub Sql = " Delete FROM Intervention, observations WHERE Intervention.nointervention=observations.nointervention And Intervention.NoIntervention= '" & Me.TNoIntervention & "';" CurrentDb.Execute Sql MsgBox ("L'enregistrement a bien été supprimé") End Sub
voici l'erreur :

http://img177.imageshack.us/img177/7...nstitrecp5.jpg

merci par avance...

bonjour ton NoIntervention est de type string ?
Sinon enlève les ' de ta chaine sql ....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Boutonsupprinter_Click()
 
Dim Sql As String
If MsgBox("Etes vous sûr de vouloir supprimer cet enregistrement?", vbYesNo + vbCritical, "Suppression") = vbNo Then Exit Sub
 
Sql = " Delete FROM Intervention, observations WHERE Intervention.nointervention=observations.nointervention And Intervention.NoIntervention= " & Me.TNoIntervention & ";"
 
CurrentDb.Execute Sql
 
MsgBox ("L'enregistrement a bien été supprimé")
 
End Sub

Euu, moi je fais pas du tout comme ça pour supprimer un enregistrement.
Pour ton cas, ça donnerait quelque chose comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Boutonsupprinter_Click()
    'Déclaration des variables
    Dim bd As Database
    Dim tIntervention As Recordset
    Dim critere As String
 
    If MsgBox("Etes vous sûr de vouloir supprimer cet enregistrement?", vbYesNo + vbCritical, "Suppression") = vbNo Then Exit Sub
 
    'Positionnement sur la BDD Intervention
    Set bd = CurrentDb
    Set tIntervention = bd.OpenRecordset("Intervention", DB_OPEN_DYNASET)
 
    'Création d'un critère de suppression
    critere = "NoIntervention=" & Me.TNoIntervention
 
    'Positionnement sur le premier enregistrement correspondant au critère
    'et suppression de cet enregistrement
    tIntervention.FindFirst critere
    tIntervention.Delete
 
    MsgBox ("L'enregistrement a bien été supprimé")
End Sub

En espérant t'avoir aidé ;)

20/05/2008, 14h02
Luisito31

tout d'abord je vous remercie de votre aide...

en ce qui regarde la reponse que m'a donné alain rien ne change, il ya toujours la meme erreur...

pour azertix : nouvelle erreur -> tIntervention.Delete
20/05/2008, 14h14
azertix

Quelle est l'erreur exacte ?

Tu n'as pas répondu à la question d'alaingui : ton NoIntervention est de quel type ? Entier ? Chaine ?
20/05/2008, 14h16
Luisito31

il est en numeroauto ...
il me souligne CurrentDb.Execute Sql en jaune...
20/05/2008, 14h18
azertix

Ok donc si c'est un numéro auto, il ne faut pas de ' comme te l'a précisé alaingui ;)
Par contre, je voulais savoir l'erreur exacte, mais de la solution que je t'avais proposé ^^
20/05/2008, 14h19
Luisito31

enfin il me surligne pluot ^^
20/05/2008, 14h20
Luisito31

comment puis je la voir ??
20/05/2008, 14h22
azertix

Ben que te dit Access quand tu exécute ma solution ?

Bonjour

Tu peux utiliser une requêtte suppression de type sql

Code:

1
2
3
4
5
Dim qd As Querydef
Set qd = dbs.CreateQuerydef("", "DELETE * FROM " & Nomdetatable & _
& " WHERE NoIntervention=" & Me.TNoIntervention)
qd.Execute dbFailOnError
Set qd = Nothing

20/05/2008, 14h30
Luisito31

Pour azertix :

Impossible de supprimer ou de modifier l'enregistrement car la table Observations comprend des enregistrements connexes.

midasios je test et je te dit ;)
20/05/2008, 14h31
Luisito31

pour midasios : syntaxe incorrect...
20/05/2008, 14h38
azertix

Ah ben ça veut dire, que ta table possède des clés étrangères, donc on ne peut pas supprimer cet enregistrement car il a un lien avec une autre table (Observations, visiblement). Donc pour pouvoir t'aider, il faudrait que je voie à quoi ressemble la BDD. Tu peux faire un screen de tes relations ?

D'ailleurs, si tu as cette erreur avec ma solution, ça ne fonctionnera pas non plus avec une requète SQL ...
20/05/2008, 14h44
midasios

oui tout à fait, essaye de nous donner des shotscreens desdifférents élements de ta base, peut etre qu'il y a qcq chose qui marche pas, je ne sais pas .....8-)
20/05/2008, 14h51
Luisito31

voila ma bdd -> http://img371.imageshack.us/img371/6...nstitretm0.jpg
20/05/2008, 15h01
alaingui

Il faut ajouter dans les options de ta relation (entre intervention et observation) en faisant un double clique :

Effacer en cascade les enregistrements correspondants ==> OUI
20/05/2008, 15h13
Luisito31

merci bien j'en apprend des chauses ^^ même pas besoin de vba...

Un grand merci aussi a mediasios et azertix :yaisse2:

mais le gagnant est alaingui lol :king:

je vous contacte si j'ai encore besoin de vous bonne fin de journée +++
20/05/2008, 15h59
azertix

De rien, on est là pour ça ;)
Tu as utilisé ma méthode finalement ?
Clique sur le bouton Résolu, si ton problème est résolu 8-)
20/05/2008, 16h45
Luisito31

bin finalement je n'ai pas utiliser le vba mais uniquement le bouton supprimer cependant lorsque je supprime une intervention l'ecran est ensuite vide... que puis je faire pour qu'apres la supression mon prog retroune sur le menu de recherche d'intervention ?

Voir 40 message(s) de cette discussion en une page