Discussion :

[Luisito31]

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 :

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

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 :



merci par avance...

[alaingui]

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

Code :

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

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

[azertix]

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

Code :

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

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é

[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

[azertix]

Quelle est l'erreur exacte ?

Tu n'as pas répondu à la question d'alaingui : ton NoIntervention est de quel type ? Entier ? Chaine ?

[Luisito31]

il est en numeroauto ...
il me souligne CurrentDb.Execute Sql en jaune...

[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é ^^

[Luisito31]

enfin il me surligne pluot ^^

[Luisito31]

comment puis je la voir ??

[azertix]

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

[midasios]

Bonjour

Tu peux utiliser une requêtte suppression de type sql

Code :

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

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

[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

[Luisito31]

pour midasios : syntaxe incorrect...

[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 ...

[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 .....

[Luisito31]

voila ma bdd ->

[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

[Luisito31]

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

Un grand merci aussi a mediasios et azertix

mais le gagnant est alaingui lol

je vous contacte si j'ai encore besoin de vous bonne fin de journée +++

[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

[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 ?