Discussion :

[Daniela]

Bonjour, moi j'ai un formulaire lié a une query qui permet de visualiser des records.
j'ai mis aussi un bouton qui permet de supprimer le record selectionné.

voila le 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
rivate Sub elimina_comanda_bar_Click()
On Error GoTo Err_elimina_comanda_bar_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_elimina_comanda_bar_Click:
    Exit Sub
 
Err_elimina_comanda_bar_Click:
    MsgBox Err.Description
    Resume Exit_elimina_comanda_bar_Click
 
End Sub

mais le probleme que le record selectionné est enregistré aussi dans une autre table. comment je fais pour lui dire de supprimer le record dans tout le database?

[Tofalu]

Bonjour,

Avec une requête DELETE ou bien un Recordset DAO

[Daniela]

Bonjour,

Avec une requête DELETE ou bien un Recordset DAO

oui mais en meme temps et dans deux tables differentes. comment on fait?

[Tofalu]

Une requête DELETE par table.

[Daniela]

Une requête DELETE par table.

mais e-t-il possibile de faire sa en utilisant le meme bouton comande? moi j'ai cree ç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
Private Sub elimina_comanda_bar_Click()
On Error GoTo Err_elimina_comanda_bar_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_elimina_comanda_bar_Click:
    Exit Sub
 
Err_elimina_comanda_bar_Click:
    MsgBox Err.Description
    Resume Exit_elimina_comanda_bar_Click
 
End Sub

mais me supprime seulement le record d'une table.

[Tofalu]

Bien sûr que c'est possible. Il faut lancer les requêtes avec CurrentDb.Execute dans la procédure du bouton.

[Daniela]

Bien sûr que c'est possible. Il faut lancer les requêtes avec CurrentDb.Execute dans la procédure du bouton.

Code :

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

1
2
 CurrentDb.Execute "delete into Uscite_SS(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) values('" & Me.ID_Art & "','" & Me.DataConsumazione & "', '" & Me.OraConsumazione & "', " & Me.Quantità & ", '" & Me.IDContatto & "') "
    CurrentDb.Execute "delete into uscite select * from uscite_ss"

c'est ça?

[Tofalu]

Il faut revoir la construction des DELETE.

La syntaxe est

Code :

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

DELETE FROM MaTable WHERE Condition

[Daniela]

Il faut revoir la construction des DELETE.

La syntaxe est

Code :

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

DELETE FROM MaTable WHERE Condition

Code :

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

1
2
CurrentDb.Execute "delete Uscite_SS(ID_Art,DataConsumazione,OraConsumazione,Quantità,IDContatto) values('" & Me.ID_Art & "','" & Me.DataConsumazione & "', '" & Me.OraConsumazione & "', " & Me.Quantità & ", '" & Me.IDContatto & "') "
    CurrentDb.Execute "delete uscite select * from uscite_ss"

mais dans le where je dois mettre ID_Art=Me.ID_Art.....?

[Tofalu]

Oui, en effet

Code :

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

1
2
Currentdb.Execute "DELETE FROM MaTable WHERE ID_Art=" & Me.ID_Art 
Currentdb.Execute "DELETE FROM MaTable2 WHERE ID_Art=" & Me.ID_Art

[Daniela]

Oui, en effet

Code :

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

1
2
Currentdb.Execute "DELETE FROM MaTable WHERE ID_Art=" & Me.ID_Art 
Currentdb.Execute "DELETE FROM MaTable2 WHERE ID_Art=" & Me.ID_Art

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
Private Sub elimina_comanda_bar_Click()
On Error GoTo Err_elimina_comanda_bar_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    CurrentDb.Execute "delete Uscite_SS(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) where ID_Art=" & Me.ID_Art And DataConsumazione = " & Me.DataConsumazione and OraConsumazione=" & Me.OraConsumazione And Quantità = " & Me.Quantità and & " And IDContatto = " & Me.IDContatto) "
    CurrentDb.Execute "delete uscite (ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) where ID_Art=" & Me.ID_Art And DataConsumazione = " & Me.DataConsumazione and OraConsumazione=" & Me.OraConsumazione And Quantità = " & Me.Quantità and & " And IDContatto = " & Me.IDContatto) "
 
Exit_elimina_comanda_bar_Click:
    Exit Sub
 
Err_elimina_comanda_bar_Click:
    MsgBox Err.Description
    Resume Exit_elimina_comanda_bar_Click
 
End Sub

j'ai fais comme ça me ne marche pas. il efface dans la table uscite_ss mais pas dans uscite.

[Tofalu]

Bonjour

A priori la syntaxe DELETE n'est pas du tout semblable à celle que je t'ai donné.

Quant à la clause WHERE il est préférable de restreindre le critère à l'identifiant (clé primaire) dans la table plutôt que sur tous les champs comme tu l'as fait.

Quelles sont les clés primaires (nom et type) de tes tables et les champs correspondant dans ton formulaire ?

[Daniela]

Bonjour

A priori la syntaxe DELETE n'est pas du tout semblable à celle que je t'ai donné.

Quant à la clause WHERE il est préférable de restreindre le critère à l'identifiant (clé primaire) dans la table plutôt que sur tous les champs comme tu l'as fait.

Quelles sont les clés primaires (nom et type) de tes tables et les champs correspondant dans ton formulaire ?

alors la table Uscita_bar(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto)
la table Uscite (ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto)

[Tofalu]

Tous tes champs sont clés primaires ? Et il n'y a pas de type ?

Pourquoi ne pas répondre aux questions que l'on te demande puisque c'est dans le but de t'aider ?

[Daniela]

Tous tes champs sont clés primaires ? Et il n'y a pas de type ?

Pourquoi ne pas répondre aux questions que l'on te demande puisque c'est dans le but de t'aider ?

desolée. alors dans la table uscite_bar la clé primaire est ID_uscitebar et il y a le champ ID_Art est une cle etrangere pour le lier a la table articoli et idcontatto est une cle etrangere pour le lier a la table contatti.
meme choise pour la table uscite.
c'est ca ce que tu voulais savoir?

[Daniela]

desolée. alors dans la table uscite_bar la clé primaire est ID_uscitebar et il y a le champ ID_Art est une cle etrangere pour le lier a la table articoli et idcontatto est une cle etrangere pour le lier a la table contatti.
meme choise pour la table uscite.
c'est ca ce que tu voulais savoir?

je suis arrivée a faire ce que je voulais, il efface le record dans les deux tables mais il me donne un erreur poukoi?

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
Private Sub elimina_comanda_bar_Click()
On Error GoTo Err_elimina_comanda_bar_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    'CurrentDb.Execute "delete Uscite_SS(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) where ID_Art=" & Me.ID_Art And DataConsumazione = " & Me.DataConsumazione and OraConsumazione=" & Me.OraConsumazione And Quantità = " & Me.Quantità and & " And IDContatto = " & Me.IDContatto) "'
    'CurrentDb.Execute "delete uscite (ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) where ID_Art=" & Me.ID_Art And DataConsumazione = " & Me.DataConsumazione and OraConsumazione=" & Me.OraConsumazione And Quantità = " & Me.Quantità and & " And IDContatto = " & Me.IDContatto) "'
    CurrentDb.Execute "delete from Uscita_bar(ID_Art,Dataconsumazione,OraConsumazione,Quantità,IDContatto) values('" & Me.ID_Art & "','" & Me.DataConsumazione & "', '" & Me.OraConsumazione & "', " & Me.Quantità & ", '" & Me.IDContatto & "') "
    CurrentDb.Execute "delete from uscite select * from uscita_bar"
Exit_elimina_comanda_bar_Click:
    Exit Sub
 
Err_elimina_comanda_bar_Click:
    MsgBox Err.Description
    Resume Exit_elimina_comanda_bar_Click
 
End Sub