Probleme CurrentDb.Execute Sql

Version imprimable

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 ?
21/05/2008, 10h22
azertix

DoCmd.OpenForm "MonFormulaire"
21/05/2008, 12h16
Luisito31

ou dois je mettre cette commande avant ou après le code automatique du bouton supprimer ?
21/05/2008, 13h17
azertix

Ben je sais pas trop ce que fait ton bouton. Tu le mets au moment ou tu veux que le formulaire s'ouvre :mouarf:
21/05/2008, 14h24
Luisito31

c'est le bouton standard d'acces je n' y ai rien toucher...
21/05/2008, 14h35
azertix

Je ne te dis pas que tu as touché à quelque chose, je dis que si je n'ai pas plus d'informations, je ne peux pas plus t'aider.

Pour la commande, je te disais que tu devais la mettre au moment dans le code ou tu veux que ton formulaire s'ouvre.

Qu'est ce que tu appelles :

Citation:

Envoyé par Luisito31

le code automatique du bouton supprimer ?

dsl si je m'exprime mal ! voici le code générer par access... si j'insere la commande pour ajouter un formulaire a la fin cela ne marche pas...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error GoTo Err_Commande26_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande26_Click:
    Exit Sub
 
Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
     DoCmd.Close
    DoCmd.OpenForm "frmAutoIntervention"

21/05/2008, 15h33
azertix

Bizarre ton code ...
C'est Access qui l'a généré ? C'est à cause d'une erreur ?
Que dit exactement le massage d'erreur ?

P.S : enlève Résolu, vu que ça ne l'est pas ;)

J'ai trouvé ! :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande26_Click()
 
On Error GoTo Err_Commande26_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close acForm, "frmAutoIntervention"

Exit_Commande26_Click:
    Exit Sub

Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
  

End Sub

21/05/2008, 17h08
azertix

Apparemment, tu as fini par trouver tout seul, ce qui est une bonne chose : tu retiendras mieux tes erreurs pour la prohcaine appli :king:
Bon ben tu peux cliquer sur Résolu, cette fois, je pense :P