Discussion :

[spirit69]

Bonjour à tous.

Je suis en train de boucler une application sous Access, et régulierement j'ai droit au : "Et si on rajoutait ca?" ...

Le but de mon appli est de saisir des rapports, identifiés par une date et un nom de chantier.

Via un premier formulaire je demande de saisir une date, puis de choisir parmi deux possibilitées :
Premiere visite de ce chantier ? => saisie du nom
Chantier déja visité? => trouver son nom dans la listbox.

Une fois fait on arrive sur un second formulaire, là ou débuté réellement la saisie, appelons le "Principale".
Cependant on se rend compte que dans le cas ou un chantier a déja été visité, certains champs pourraient etre préremplis (exemple : type de chantier,région ...)

Mon but serait donc, que lorsqu'on choisi l'option n°2 et qu'on séléctionne un chantier existant pour faire un autre rapport dessus, j'accede à ma base de données, je lis les infos qui vont etre conservées, puis je les inscrit automatiquement dans le second formulaire (celui que j'ai nommé Principale").

je compte faire ceci en VBA, et surement l'ajouter sur le click du bouton de mon formulaire de saisie de date.
Mais je ne vois pas comment aller lire dans ma base les données que je veux, les stocker dans des variables en mémoire, puis les écrire dans le formulaire "principale"
A vrai dire la ou je bloque c'est le moment ou je dois lire dans la BD et écrire en mémoire.
Je pensais à DoCmd.Runsql ("select Monchamp from matable where Chantier = telchantier")

Mais Runsql n'a pas l'air de fonctionner avec un select.

Des conseils ?

[fulgaro]

bonjour,

si tu veux faire un select
il faut que tu utilises un recordset
exemple :

Code :

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

1
2
3
4
5
 
dim rs as dao.recordset
 
sql = "select ..."
set rs = currentdb.openrecorecordset(sql)

ça doit être traité dans la FAQ je pense...

[spirit69]

Merci.
J'ai cherché sur la faq avec ce que tu m'as donné mais je ne suis pas tombé sur des choses tres précises.
Enfin bon j'ai tatonné et ca roule maintenant.

merci pour le coup de pouce. comme quoi parfois il en faut peu

[fulgaro]

Enfin bon j'ai tatonné et ca roule maintenant.

pense au tag résolu si c'est bon...