Bonjour,

j'ai une table des hospitalisations avec les champs : nom, pren, ndosm, date_admission, cp, com.
où le champs ndosm est le numéro de dossier le la clé unique de la table SIG (signalétique).
Dans ma table hospitalisations, les champs cp et com devraient être remplis avec les données de la table SIG.
j'ai donc essayé un code :
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
 Dim dbs As DAO.Database
    Dim rst As DAO.Recordset 'pour lire table HOS
    Dim rst_dos As DAO.Recordset 'pour lire la table DOS
    Dim rst_hospitalisations As DAO.Recordset 'pour lire la table hospitalisations
    Dim rst_sig As DAO.Recordset
Set rst_hospitalisations = CurrentDb.OpenRecordset("SELECT * FROM HOSPITALISATIONS;")
 Do Until (rst_hospitalisations.EOF)
      rst_hospitalisations.Edit
      find_ndosm = rst_hospitalisations.Fields("ndosm").Value
      string_sql = "SELECT cp, com FROM [ATSDEV_SIG]" ' WHERE " & find_ndosm & " = " & "[ATSDEV_SIG].[NDOSM]"
      MsgBox ("sql : " & string_sql)
      Set rst_sig = CurrentDb.OpenRecordset("string_sql;")
      rst_hospitalisations.Fields("cp") = rst_sig.Fields("cp").Value
      rst_hospitalisations.Fields("com") = rst_sig.Fields("com").Value
      rst_hospitalisations.Update
      rst_hospitalisations.MoveNext
 
    Loop
j'ai une erreur à l'exécution sur la ligne Set rst_sig = CurrentDb.OpenRecordset("string_sql;").
L'erreur est la 3078 'le moteur de base de données ne peut pas trouver la table ou la requête 'string_sql'
Si vous avez une idée pour résoudre mon problème, ce serait cool.

Merci d'avance,