Discussion :

[bsangoku]

Bonjour,

Est il possible de combiner Update et Select dans une même requête?

Je ne vois pas pourquoi ce code ne marche pas

Code :

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

1
2
3
Update Experts SET ID_Experts=  (SELECT  Round(RND()*Compte,0)
FROM(SELECT COUNT(ID_Experts) AS Compte
FROM Experts) )

Merci d'avance.

[tee_grandbois]

Bonsoir,

Je ne vois pas pourquoi ce code ne marche pas

parce que, bien que cela puisse paraître bizarre, un SELECT pour mettre un champ à jour, ce n'est pas une syntaxe correcte dans le SQL d'Access, d'autant plus si il y a un regroupement (un COUNT en l'occurrence). A la place, il faut utiliser les fonctions de domaine :

Code :

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

UPDATE Experts SET ID_Experts = Round(Rnd()*DCount("ID_Experts","Experts"),0);

[bsangoku]

Bonjour,

Je souhaite vous posez une question comment faire si j'ai

Code :

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

1
2
Update Experts SET ID_Experts=  (SELECT  ID_Expert
FROM Experts WHERE Age>30) )

Comment faire mon update?

La vérité c'est que je n'ai pas compris pourquoi je n'ai pas le droit de le faire...

[tee_grandbois]

Bonsoir,

La vérité c'est que je n'ai pas compris pourquoi je n'ai pas le droit de le faire...

comme je te l'expliquai dans le premier post, bien qu'elle soit dans la norme SQL, cette syntaxe n'est pas malheureusement pas utilisable dans le SQL Access. Il faut utiliser les fonctions de domaine :

Code :

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

Update Experts SET ID_Experts=  (dlookup(" ID_Experts","Experts","Age>30") );

ou tu crées une fonction qui retourne la valeur de ton SELECT
1) dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function returnID(pSql As String) As Variant
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(pSql)
    ' Le recordset ne devrait retourner qu'un seul enregistrement sous peine de problème
    If rs.RecordCount = 1 Then
        returnID = rs(0)
    Else
        returnID = Null
    End If
    Set rs = Nothing
End Function

2) dans SQL tu l'utilises comme ceci :

Code :

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

UPDATE Experts SET Experts.ID_Experts = returnID("SELECT ID_Experts FROM Experts WHERE Age>30");

[bsangoku]

Etes vous sur que la ligne Set rs = CurrentDb.OpenRecordset(pSql) est correct?

Parce que ça me fait un message d'erreur

[tee_grandbois]

Etes vous sur que la ligne Set rs = CurrentDb.OpenRecordset(pSql) est correct?

Je teste toujours le code posté.

Parce que ça me fait un message d'erreur

et ce message est ?

[bsangoku]

En fait mon code est celui-ci

Code :

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

1
2
3
4
UPDATE Choix_Expert SET ID_Expert = returnID("SELECT  ID_Expert
FROM (SELECT ID_Expert ,  DateDiff('yyyy',Date_de_Naissance,Now()) AS Age
FROM Experts )
WHERE Age>=25");

Je n'ai plus de message d'erreur. Mon code dans le returnID marche bien et me retourne 2 ID, par contre c'est que ça ne fait pas de mise à jour.

[tee_grandbois]

Bonjour,

Mon code dans le returnID marche bien et me retourne 2 ID, par contre c'est que ça ne fait pas de mise à jour.

change le code suivant :

Code :

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

1
2
3
    ' Le recordset ne devrait retourner qu'un seul enregistrement sous peine de problème
    If rs.RecordCount = 1 Then
        returnID = rs(0)

par

Code :

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

1
2
    If rs.RecordCount <> 0  Then
        returnID = rs(0)

Cela te renverra la première valeur du recordset.
Mais la mise à jour risque d'être aléatoire puisque, dans ce cas, le code te retournant plus d'une valeur, laquelle est la bonne ?

Autre chose : je ne comprend pas le but de cette mise à jour mais il est vrai que tu ne nous as pas expliqué le contexte.

[bsangoku]

Bonjour,

Ca ne marche toujours pas. En fait, c'est que j'ai deux tables

Experts(ID_Experts,Nom,Prénom,Date_de_Naissance)
Choix_Expert(ID_Expert,Choix)

En fait, c'est que l'expert a le droit à partir de 25 ans de choisir s'il souhaite avoir une retraite en capital différé ou une retraite en rente. (ne me demandez pas pourquoi, on est dans un scénario fictif)

C'est pourquoi je souhaite mettre à jour dans Choix_Expert les ID_Expert de plus de 30 ans automatiquement.
D'où mon code :

Code :

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

1
2
3
4
UPDATE Choix_Expert SET ID_Expert = returnID("SELECT  ID_Expert
FROM (SELECT ID_Expert ,  DateDiff('yyyy',Date_de_Naissance,Now()) AS Age
FROM Experts )
WHERE Age>=25");

Mais bon ça ne marche pas. En fait le code VBA marche (sous visual basic, ça m'affiche le bon ID, par contre c'est le UPDATE qui ne marche pas)

[tee_grandbois]

Bonsoir,
la table Choix_Expert contient-elle tous les Id_Expert de la table Experts, et comment est mis à jour le choix ?
Je me trompe peut-être mais ne serait-il pas plus facile de mettre à jour le choix plutôt que l'ID dans la table Choix_Expert ?

Code :

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

UPDATE Choix_Expert SET Choix = leBonchoix WHERE ID_Expert IN (SELECT id_expert FROM Experts WHERE DateDiff("yyyy",Date_de_Naissance,Now())>=25);

Tout dépendra des réponses que tu donneras...