Discussion :

[ginymag]

j'aimerai supprimer un enregistrement dans un sous formulaire. voici le code que j'ai écrit:

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
24
25
26
27
28
29
30
31
Private Sub Commande22_Click()
 On Error GoTo Err_Commande22_Click
    scat = [CodeCatégorie]
    nscat = [CodeSousCatégorie]
    Dim reponse As Integer
 
    reponse = MsgBox("Voulez vous réellement supprimer cet item?", vbYesNo, "GESTION ET CONTRÔLE DES COÛTS PETROLIERS")
    If reponse = 6 Then
        Set db = DBEngine.Workspaces(0).Databases(0)
        sql2 = "select * from dépense" ''' On séléctionne tous les champs de la table
        Set rs = db.OpenRecordset(sql2, dbOpenDynaset)
        rs.MoveFirst
        Do Until rs.EOF
            If rs![CodeCatégorie] = scat And rs![CodeSousCatégorie] = nscat Then
               rs.Delete
            End If
            rs.MoveNext
        Loop
        rs.Close
        db.Close
        MsgBox " ITEM supprimé", , "GESTION ET CONTRÔLE DES COÛTS PETROLIERS"
        [CodeCatégorie].SetFocus
    End If
Exit_Commande22_Click:
    Exit Sub
 
Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
 
End Sub

mais lorsque je l'éxécute voici le message d'erreur qui s'afiche:

" impossible de trouver le champs 'l' auquel il fait réference dans votre expression "

[ginymag]

j'ai trouvé
voici le nouveau code:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Commande22_Click()
 On Error GoTo Err_Commande22_Click
    scat = [CodeCatégorie]
       Dim reponse As Integer
 
    reponse = MsgBox("Voulez vous réellement supprimer cet item?", vbYesNo, "GESTION ET CONTRÔLE DES COÛTS PETROLIERS")
    If reponse = 6 Then
        Set db = DBEngine.Workspaces(0).Databases(0)
        sql3 = "select*from dépense" '''On séléctionne tous les champs de la table dépense
        Set rs = db.OpenRecordset(sql3, dbOpenDynaset)
        rs.MoveFirst
        Do Until rs.EOF
            If rs![CodeCatégorie] = scat Then
               rs.Delete
            End If
            rs.MoveNext
        Loop
        rs.Close
 
        sql2 = "select * from catégorie" ''' On séléctionne tous les champs de la table catégorie
        Set rs = db.OpenRecordset(sql2, dbOpenDynaset)
        rs.MoveFirst
        Do Until rs.EOF
            If rs![CodeCatégorie] = scat Then
               rs.Delete
            End If
            rs.MoveNext
        Loop
        rs.Close
 
 
 
        db.Close
        MsgBox " ITEM supprimé", , "GESTION DES COÛTS"
        [CodeCatégorie].SetFocus
 
    End If
Exit_Commande22_Click:
    Exit Sub
 
Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
 
End Sub