Bonjours.
Mon problème est le suivant:
Je souhaite automatiser la mise à jour des champs de différentes tables grâce à une fonction.
Il faut donc que je puisse passer à la fonction les différentes valeurs:
- Nom de la table
- Index
- Nom du champ à modifier

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
Sub Enregistrement_Photo(Table, Champ, Index As String)
 
   Dim fDialog As Office.FileDialog
   Dim varFile, Test As Variant
   Dim TempDB As DAO.Database
   Dim TempRST As DAO.Recordset
   
   Set TempDB = CurrentDb
   Set TempRST = TempDB.OpenRecordset(Table, dbOpenDynaset)

   Test = CStr(Index)                'Champ source actif (celui qui est en cours)
    TempRST.FindFirst Champ_Ref & " = " & Test  'Positionne l'index champ actif sur l'enregistrement
             TempRST.Edit
             TempRST!Champ = varFile
             TempRST.Update
Je reçois une erreur: TempRST!Champ =<Element non trouvé dans cette collection>

Visiblement:
- Soit je n'arrive pas à affecter le nom du champ à modifier à la variable "Champ"
- Soit ma syntaxe est fausse.

Une petite idée ?