Discussion :

[dellalyoussef]

Bonjour,

J'ai besoin d'un code pour supprimer un enregistrement d'un table si une case a coucher d'une autre table est découcher.
j'ai utiliser ce code ci dessous, et il est bien fonctionner on cas de ajouter les données dans la table si j'ai coucher une enregistrement.
Mais leur de découcher la case a coucher, j'ai besoin que le code supprime seulement l'enregistrement a qui j'ai découcher la case a coucher, est ne pas tous les enregistrement de la table picking

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
Private Sub Livrer_AfterUpdate()
If Livrer = -1 Then
DoCmd.RefreshRecord
Dim Sql As String
    Sql = " INSERT INTO Picking ( Label ) " _
         & "SELECT Reception.Label " _
         & "FROM [Reception] " _
         & "WHERE (((Reception.Livrer)=Yes));"
    DoCmd.RunSQL Sql
    DoCmd.SetWarnings False
    Else
    Dim Sql2 As String
Sql2 = "DELETE Picking.Label " _
    & "FROM Picking " _
    & "WHERE (((Reception.Livrer)= no));"
  DoCmd.RunSQL Sql2
    DoCmd.SetWarnings False
    End If
 
End Sub

la table ciblé est : Picking, avec un seul champ : Label




le Formulaire:



Merci d'avance

[marot_r]

Bonjour.

Ton problème vient du fait que tu n'as pas spécifier quel label devait être supprimé.
Tu peux probablement le faire en faisant une jointure entre ta table Picking et ta table Reception.
Soit utiliser un DFirst()

A+

[izonette]

A mon avis, tu veux mettre le champ à blanc et non pas supprimer l'enregistrement

Il faut commencer par créer la requête souhaitée, s'il y a deux tables,on en tient compte
Ensuite, on récupère le SQL
Après, on modifie le SQL selon les critères souhaités

Sql2 = "UPDATE Picking SET Picking.Label = Null WHERE (((Picking.Livrer)= False))"
DoCmd.RunSQL Sql2

Bonne soirée

[dellalyoussef]

Bonjour Tous, et Merci de votre retour.

Pour la jointure, j'ai éssyer avec ce code

Code :

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

sql = "DELETE Picking.Label, Reception.Livrer FROM Picking INNER JOIN Reception ON Picking.Label = Reception.Label WHERE (((Reception.Livrer)=No));"

mais le code et ce bloqué, et j'avoir une message d'erreur

: .


Et pour la deuxième solution proposer par Mr izonette , aucun changement n'a apporter sur la table.

Saluations

dellal

[dellalyoussef]

Bonjour,

J'ai résolu le problème suite a une exemple que j'ai le trouver sur ce cite, le code complet est comme ce de suite:

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 Livrer_AfterUpdate()
DoCmd.RefreshRecord
Dim Sql As String
    Sql = " INSERT INTO Picking ( Label ) " _
         & "SELECT Reception.Label " _
         & "FROM [Reception] " _
         & "WHERE (((Reception.Livrer)=Yes));"
    DoCmd.RunSQL Sql
    DoCmd.SetWarnings False
Dim Sql2 As String
    Sql2 = "DELETE [Picking].Label, * " _
         & "FROM [Picking] WHERE ((([Picking].label) In (SELECT [Picking].label " _
         & "FROM [Picking] LEFT JOIN [Reception] ON [Picking].label = [Reception].label " _
         & "WHERE ((([Reception].Livrer)=0)))));"
    DoCmd.RunSQL Sql2
    DoCmd.SetWarnings False
End Sub

Merci de votre support encore.

DELLAL