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

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