Discussion :

[Prunella]

Bonjour,

Je suis nouvelle dévélopeuse et je rencontre un problème.
Dès l'ouverture d'un formulaire j'aimerais remplir un champ une table à partir des données d'une autre table et l'afficher mais je n'arrive pas à partir du code vba dont je m'inspire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim mabase As DAO.Database
Dim tabledesdonnees, tablearemplir As DAO.Recordset
Dim var As String
 
set mabase = currentDb
set tabledesdonnees = mabase.OpenRecordset("SELECT* FROM matble WHERE...;")
set tablearemplir = mabase.OpenRecordset("tablearemplir")
var = tabledesdonnees("nomduchamp").value
tablearemplir.addNew
tablearemplir("nomchamp") = "" & var & "" 
tablearemplir.Update
tabledesdonnees.MoveNext

Mais ca ne marche pas hélas, y'aurait il une ame généreuse pour me venir en aide? je désepère

[marot_r]

Bonjour.

Attention

Code :

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

Dim tabledesdonnees, tablearemplir As DAO.Recordset

correspond en réalité à

Code :

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

1
2
Dim tabledesdonnees as variant, 
dim ablearemplir As DAO.Recordset

Si tu veux le laisser sur une 1 seule lgne, il faut mettre :

Code :

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

Dim tabledesdonnees  As DAO.Recordset, tablearemplir As DAO.Recordset

Ensuite essaye cela :

tablearemplir("nomchamp") = var

Je suppose que NomChamp et autre globalité sont là pour montrer ce que tu veux faire, pas réellement ton code sinon cela explique pourquoi cela ne marche pas :-).

A+

[Prunella]

Bonjour,
Merci pour ta reponse, en effet les noms donnés sont pour expliquer d'une maniere générale sinon les noms sont spécifiques.
Je teste tes modifications et te dirai si c'est bon. Mais le soucis était surtout que c'est seulement la premiere valeur qui était recopiée pas les autres.
A tout