Discussion :

[Le Pharaon]

Salut tout le monde
Je reçois le message d'erreur suivant "L'opération doit utiliser une requête qui peut être mise à jour " après l'excution de cette requette

Code :

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

1
2
3
4
sqlUpdate = " UPDATE T_Agent SET Matricule = " & ValeurDeMask(oblmskMatricule(0)) & ", Prenom = '" & obltxtPrenom(1) & "', Nom = '" & obltxtNom(2) & "',DateDeNaissance = " & ValeurDeMask(oblmskDateDeNaissance(3)) & ",   " & _
            " LieuDeNaissance = '" & txtLieuDeNaissance(4) & "', DateEmbauche = " & ValeurDeMask(mskDateEmbauche(5)) & ", Adresse = '" & txtAdresse(6) & "' , Telephone = '" & txtTelephone(7) & "',SoldeAgent = " & txtSolde(8) & ", " & _
            " idFonction = (SELECT idFonction FROM T_Fonction WHERE NomFonction = '" & obldcFonction(9) & "' ),idService = (SELECT idService FROM T_Service WHERE NomService = '" & obldcService(10) & "' ),EnActivite = '" & txtActivite(11) & "',Observation='" & txtObservation(12) & "' ,Photo = '" & txtPhoto(13) & "' " & _
            " WHERE Matricule = '" & frmPrincipal.Matricule & "' "

Quand j'enlève la partie en gras tout sa passe bien .
Est ce qu'il y'a un moyen de contourner le problème ?

[Invité]

Salut Bujuman,

Pourquoi ne pas récupérer les variables qui te posent problème, séparément !?

Code :

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

1
2
3
 
Dim ValId1
ValId1 = dlookup("idFonction","T_Fonction","NomFonction = '" & obldcFonction(9) & "'" )

Et dans la requête

Code :

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

1
2
 
 " idFonction = " & ValId1 &", etc...

Ce n'est pas trop pro, mais ça permet de contourner le problème, du moins je pense !

A+

[Le Pharaon]

En fait l'interface est faite en VB6.

[Trini]

Bonjour,

Si tu es en VB6 tu peux toujours utiliser les Recordset si tu as en Référence une bibliothèque DAO.
On peut remplacer le Dlookup() par :

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
 
 
Dim Bd as Database , Rs as Recordset
Dim ValId1
 
Set Bd = OpenDatabase( "C:\APP\MaBase.mdb") 
Set Rs = Bd.Openrecordset( SELECT idFonction FROM T_Fonction 
 WHERE NomFonction = '" & obldcFonction(9) & "'", DbOpenDynaset)
If not Rs.eof then 
   ValId1 = Rs!idFonction
Endif
 
Rs.close
Set Bd=nothing
 
 
SqlUpdate = ...... " idFonction = " & ValId1 &", etc...

[Le Pharaon]

Donc Access n'accepte pas les sous-requêtes dans une requête de mise à jour ?

[Trini]

Honnêtement moi je n'utilise pas ce type d'écriture SQL, mais je crois pouvoir affirmer que l'on peut écrire :

Code :

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

1
2
3
 
' Exemple
Msql= " Select * From ( Select * From Table1 Where x=10) "

Par contre d'attribuer une valeur via un Update là je suis pas sûr que cela fonctionne, mais je le répète je n'utilise pas cette syntaxe.

Peut-être d'autres avis

[User]

@ trini:

si je t'ais bien compris tu souhaites remplacer le dlookup par une fonction prédéfinie (utilisant DAO) et que tu incorpore dans le sql initiale à la place de la partie en gras ???

Mais sous VB6 le sql accepte t'il les fonctions prédéfinies ???

@+

[Trini]

lut User

en fait j'ai oublié un petit guillement avant le select

Code :

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

1
2
3
 
Set Rs = Bd.Openrecordset( "SELECT idFonction FROM T_Fonction 
 WHERE NomFonction = '" & obldcFonction(9) & "'", DbOpenDynaset)

Là je construis en fait une chaîne de caractère, comme sous Access et obldcFonction(9) doit retourner une valeur, donc ça doit marcher.

Et Bujuman il en pense quoi

[Le Pharaon]

lut User

en fait j'ai oublié un petit guillement avant le select

Code :

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

1
2
3
 
Set Rs = Bd.Openrecordset( "SELECT idFonction FROM T_Fonction 
 WHERE NomFonction = '" & obldcFonction(9) & "'", DbOpenDynaset)

Là je construis en fait une chaîne de caractère, comme sous Access et obldcFonction(9) doit retourner une valeur, donc ça doit marcher.

Et Bujuman il en pense quoi

J'ai pas essayé. Mon intuition me dit que ça doit marcher. Sauf que :

- dans ce cas il me faudra excuter deux requêtes.
- si la sous-requête envoie plusieurs valeurs ça devient plus compliqué

Merci tout de même

[Le Pharaon]