Discussion :

[ip203]

Bonjour,

J'ai une fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub EcrireValeur(strInsert As String, strChamp As String)
  Dim db As Database: Set db = CurrentDb
  Dim monRecordset: Set monRecordset = db.OpenRecordset("Foyers")
  Dim strTemp As String
 
  monRecordset.Edit
  monRecordset![strChamp] = strInsert
  monRecordset.Update
  monRecordset.Close: Set monRecordset = Nothing
  db.Close: Set db = Nothing
End Sub

J'ai une erreur 3265 sur :

Code :

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

monRecordset![strChamp] = strInsert

Car strChamp n'est pas vu comme une variable contenant une chaine de caractère (le nomde mon champ) mais comme son propre nom.

Je pense qu'il doit s'agir d'une erreur de synthaxe, mais en regardant dans la FAQ ou le Forum je m'apercoit que dans ce type de code les gens passe directement la chaine sans passer par une variable...ou alors j'ai bien mal cherché.

Merci de votre aide.

[Invité]

Salut,

Déjà déclare bien ton recordset

Code :

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

1
2
 
Dim monRecordset as DAO.Recordset

De plus tu fais une méthode Edit, il faut savoir sur quel critére, ton critère est ta table, mais il faut que tu mettes une chaine sql avec une clause WHERE

Starec

[ip203]

Salut et merci de ta réponse,

En fait il faudrait que je fasse une requète avec l'identifiant de l'enregistrement pour être sûr d'être sur la bonne ligne. Mais le problème reste le même en ce qui concerne la valeur passée dans la ligne:

Code :

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

monRecordset![strTemp] = strInsert

strTemp est vu en dehors des crochets comme étant une chaine de caractère contenant la bonne valeur et lorsque je le mets entre crochet sur mon recordset il est vu comme lui-même c'est à dire sa référence.

Pourrais tu si tu as le temps et la patiente m'éguiller pour le requête ??

Merci

[Julien Dufour]

Salut,

Regarde du côté de la fonction eval.

[ip203]

Merci,

Mais la fonction Eval me renvoie une erreur et quand je regarde dans l'aide, c'est effectivementle cas quand :

Si vous passez à la fonction Eval une chaîne contenant du simple texte et non une expression numérique ou un nom de fonction, une erreur d'exécution se produit. Par exemple, Eval("Smith") provoque une erreur.

Donc j'en suis toujours au même point

Merci quand même !

[mcdotta]

Utilise la syntaxe suivante :

Code :

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

1
2
 
monRecordset(strChamp) = strInsert

[ip203]

Ca marche !!!

Grand merci