Discussion :

[DRARVUO99]

Bonjour, Je voudrais savoir comment effectuer le remplissage automatique des champs suivants le champ sélectionné au lancement du formulaire. Je m'explique : J'ai un formulaire "fiche individuelle agent" dotée des champs "nom", "prénom", "équipe", etc... Je voudrais qu'au remplissage du champ "nom", les autres champs se mettent à jour. Tous ces champs sont issus d'une base "agents". Merci pour votre réaction.

[mennick]

Tu peux faire cela par le biais d'une requête par vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim dbs As dao.Database
Dim rst As dao.Recordset
dim req as string
 
Set dbs = CurrentDb  
req = "select prenom, nom, equipe from tatableici where nom=forms![nomduformulairedesaisie].nomdetonchampNom.value"
Set rst = dbs.OpenRecordset(req, dbOpenSnapshot)
forms![nomduformulairedesaisie].nomdetonchampPrenom.value= rst.Fields(0)
forms![nomduformulairedesaisie].nomdetonchampEquipe.value= rst.Fields(2)
 
rst.Close
Set rst = Nothing

[DRARVUO99]

Tu peux faire cela par le biais d'une requête par vba

Dim dbs As dao.Database
Dim rst As dao.Recordset
dim req as string

Set dbs = CurrentDb
req = "select prenom, nom, equipe from tatableici where nom=forms![nomduformulairedesaisie].nomdetonchampNom.value"
Set rst = dbs.OpenRecordset(req, dbOpenSnapshot)
forms![nomduformulairedesaisie].nomdetonchampPrenom.value= rst.Fields(0)
forms![nomduformulairedesaisie].nomdetonchampEquipe.value= rst.Fields(2)

rst.Close
Set rst = Nothing

Bonjour, je reviens sur mon programme après un arrêt car je ne fais la programmation que par moments (comme innovation) car ce n'est qu'en plus de mon travail. Voilà mon souci : Sur la ligne marquée en rouge, j'ai une erreur "Pas assez de paramètres". D'où cela peut-il provenir ? J'ai essayé de créer mon formulaire avec l'assistant mais il y a des comportements étranges dans le remplissage des champs, est-ce à cause de plusieurs tables dans le même formulaire ?

[tee_grandbois]

bonsoir,
si le champ de ton formulaire est utilisé dans la requête et que ce formulaire est ouvert, il faut mettre ce paramètre en dehors de la chaine de caractères :
- chaine de caractère entre apostrophes : "select prenom, nom, equipe from tatableici where nom= "
- paramètre contenant la valeur à filtrer hors apostrophes : & forms![nomduformulairedesaisie].nomdetonchampNom.value

Tu peux aussi remplacer ceci forms![nomduformulairedesaisie] par Me qui représente l'objet en cours dans le code VBA du même objet.
Et si le champ Nom (attention : mot réservé, il faut des crochets pour éviter des effets inattendus) est du texte, il faut doubler les apostrophes à l'intérieur des apostrophes de la chaine de caractères :

Code :

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

req= "select prenom, [nom], equipe from tatableici where [nom]= """ & Me.nomdetonchampNom & """"

[FromDallas]

Bonjour,

je m'immisce dans votre discussion.

J'ai un problème identique.
J'ai fait comme indiqué par Mennick et j'ai le même diagnostic que Drarvu099.

Après avoir été voir sur le site msdn.microsoft.com , j'ai essayé de mettre en plus les paramètres facultatifs ce qui m'a donné
Set rst = dbs.OpenRecordSet (req, dbOpenSnapShot, dbFailOnError, dbPessimistic)
Mais ça beugue toujours avec le même diagnostic: "Trop peu de paramètres. 1 attendu."

J'attends la réponse de Yannick avec intérêt.
Cordialement

[FromDallas]

Rebonsoir,

J'ai fait comme préconisé par tee_grandbois mais le problème reste identique.

Cordialement

[tee_grandbois]

bonsoir,
tu n'as pas posté le contenu de req, du coup pas facile de savoir ...

[FromDallas]

Encore moi !

Tee_grandbois, il y a un problème avec ce que tu écris:
req= "select prenom, [nom], equipe from tatableici where [nom]= """ & Me.nomdetonchampNom & """"

Je pense qu'il faudrait le corriger comme suit

req= "select prenom, [nom], equipe from tatableici where [nom]= " & ""Me.nomdetonchampNom & """"
Mais ça entraine une erreur de compilation : "Fin d'instruction attendue" après le &"", ce qui se comprend le "" est compris comme chaine vide .

Ou encore:
req= "select prenom, [nom], equipe from tatableici where [nom]= " & ""Me.nomdetonchampNom"" & "" (ou encore à la fin & """")
Même erreur de syntaxe trouvée à la compilation.

Je donne ma langue au chat !

Je précise que dans mon cas, les champs et tables sont personnalisés : req = "Select NDo From ListeDo where Domaine= Me.DomaineLC.Value"

Merci déjà

[tee_grandbois]

Tee_grandbois, il y a un problème avec ce que tu écris:
req= "select prenom, [nom], equipe from tatableici where [nom]= """ & Me.nomdetonchampNom & """"

ah bon et tu as testé je suppose ...
relis ce que j'ai écris ici :

si le champ de ton formulaire est utilisé dans la requête et que ce formulaire est ouvert, il faut mettre ce paramètre en dehors de la chaine de caractères :
- chaine de caractère entre apostrophes : "select prenom, nom, equipe from tatableici where nom= "
- paramètre contenant la valeur à filtrer hors apostrophes : & forms![nomduformulairedesaisie].nomdetonchampNom.value

req = "Select NDo From ListeDo where Domaine= Me.DomaineLC.Value"devrait être :
req = "Select NDo From ListeDo where Domaine=" & Me.DomaineLC.Value ou
req = "Select NDo From ListeDo where Domaine=""" & Me.DomaineLC.Value & """" si Domaine est du texte

[FromDallas]

Merci tee_grandbois,

ça marche impeccablement.

Bien que ne l'ayant pas écrit dans mon message, j'avais testé l'instruction telle que tu l'avais écrite, mais j'avais du faire une faute de frappe, car ça ne marchait pas.
Je dois être plus frais ce matin !

Merci encore

Cordialement

[DRARVUO99]

J'ai inséré le code donné plus haut dans la conversation mais maintenant j'ai une erreur (ci-jointe) lors de l'ouverture du formulaire. Exécution de la procédure mais sans le résultat attendu.
Dans les pièces jointes, l'erreur ainsi que la ligne la provoquant et mes tables avec les champs utilisés.

A quoi correspond le paramètre entre parenthèses dans l'instruction "rst.Fields(0)" ?
Merci déjà pour vos réactions face à ce problème.

[tee_grandbois]

Bonjour
pour l'erreur 2465 : je pense que c'est parce qu'il manque un espace entre [Fonction] et From

A quoi correspond le paramètre entre parenthèses dans l'instruction "rst.Fields(0)"

C'est le premier champ de la requête req: (select [NomAgent], [PrenomAgent] ...) car Fields est comme un tableau indexé.
rst.Fields(0) correspond au 1er champ :[NomAgent]
rst.Fields(1) correspond au 2ème champ :[PrenomAgent]

Mais le mieux c'est de l'écrire comme cela car c'est plus lisible :

Code :

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

Me.[PrenomAgent] = rst.Fields("[PrenomAgent]")

[tee_grandbois]

Ton modèle de données n'est pas très bien fait : tu utilises une table TblAgents qui a la même clé primaire que TblFicheAgents (Immatriculation) et en plus les 2 tables ont les mêmes champs en commun.
Pour moi, il ne devrait y avoir qu'une seule table ...

[DRARVUO99]

Maintenant après la correction de l'espace (erreur de syntaxe) et transformation de la ligne Me.[PrenomAgent] = rst.Fields("[PrenomAgent]") (qui paraît effectivement plus claire), j'ai une nouvelle erreur (ci-jointe). Décidément, ce n'est pas simple à coder pour une fonction basique qui devrait être créée avec l'assistant formulaire !!! Et encore merci pour vos réponse au "tac au tac".

[tee_grandbois]

sur quelle instruction ?