OVH Cloud OVH Cloud

Remplir automatiquement depuis requête

5 réponses
Avatar
Luis
Bonjour,
Dans un formulaire j'ai la saisie du nom de contact avec=20
une liste d=E9roulante.
Le contenu de cette liste d=E9roulante est une=20
requ=EAte 'R_Contacts_Client2' avec en colonne1 noClient, en=20
colonne2 'Expr1: CONTACTS_CLIENTS.Mme_Mlle_M & " " &=20
[CONTACT]'
Pour avoir par exemple Madame Sandra Petit, en=20
colonne3 'FONCTION' et en colonne4 'TELDIRECT'

Avec le menu d=E9roulant j'arrive =E0 s=E9lectionner le contact=20
ce que j'aimerai c'est si 'Fonction' et 'TELDIRECT' de la=20
requ=EAte sont remplis que dans mon formulaire les=20
champs 'Fonction' et 'TELEDirect' se remplissent=20
automatiquement.
Comment faire ?
Luis

5 réponses

Avatar
Evaro
Bonjour,

"Luis" a écrit dans le message de


































news: 2fde01c4bfe9$bcd5a620$
Bonjour,
Dans un formulaire j'ai la saisie du nom de contact avec
une liste déroulante.
Le contenu de cette liste déroulante est une
requête 'R_Contacts_Client2' avec en colonne1 noClient, en
colonne2 'Expr1: CONTACTS_CLIENTS.Mme_Mlle_M & " " &
[CONTACT]'
Pour avoir par exemple Madame Sandra Petit, en
colonne3 'FONCTION' et en colonne4 'TELDIRECT'

Avec le menu déroulant j'arrive à sélectionner le contact
ce que j'aimerai c'est si 'Fonction' et 'TELDIRECT' de la
requête sont remplis que dans mon formulaire les
champs 'Fonction' et 'TELEDirect' se remplissent
automatiquement.
Comment faire ?
Luis

La requête ou l'expression SQL source de ta liste déroulante doit contenir
































les champs FONCTION et TELDIRECT.
N'oublie pas de modifier la propriétés "Nombre de colonnes", mettre 4 (ou
plus).
Sur l'évènement AfterUpdate de ta liste déroulante, tu mets le code suivant
:
Me.MonCtrlFonction = Me.MaListeDeroulante.column(n), ou n est le numéro de
colonne du champ Fonction dans la source de la LD.
Attention, la première colonne a le numéro 0.
@ +
Etienne


































Avatar
Luis
Bonjour,
J'ai fait comme ça:
Private Sub Commande_passée_par_AfterUpdate()
Me.fonction = Me.Commande_passée_par.Column(2) And
Me.TELEPHONEC = Me.Commande_passée_par.Column(3)
End Sub
Mais j'ai une Erreur : incompatibilité de type

Est-ce que ça vient du Masque de saisie : "999-"000" 99
99";;_ qu'il y a sur TELEPHONEC du formulaire.
J'ai besoin de ce masque de saisie au cas où il n'y a pas
de téléphone saisi au départ.
Comment éviter cette erreur?
Luis
-----Message d'origine-----
Bonjour,

"Luis" a écrit dans


































le message de

news: 2fde01c4bfe9$bcd5a620$
Bonjour,
Dans un formulaire j'ai la saisie du nom de contact avec
une liste déroulante.
Le contenu de cette liste déroulante est une
requête 'R_Contacts_Client2' avec en colonne1 noClient, en
colonne2 'Expr1: CONTACTS_CLIENTS.Mme_Mlle_M & " " &
[CONTACT]'
Pour avoir par exemple Madame Sandra Petit, en
colonne3 'FONCTION' et en colonne4 'TELDIRECT'

Avec le menu déroulant j'arrive à sélectionner le contact
ce que j'aimerai c'est si 'Fonction' et 'TELDIRECT' de la
requête sont remplis que dans mon formulaire les
champs 'Fonction' et 'TELEDirect' se remplissent
automatiquement.
Comment faire ?
Luis

La requête ou l'expression SQL source de ta liste
































déroulante doit contenir

les champs FONCTION et TELDIRECT.
N'oublie pas de modifier la propriétés "Nombre de
colonnes", mettre 4 (ou

plus).
Sur l'évènement AfterUpdate de ta liste déroulante, tu
mets le code suivant

:
Me.MonCtrlFonction = Me.MaListeDeroulante.column(n), ou n
est le numéro de

colonne du champ Fonction dans la source de la LD.
Attention, la première colonne a le numéro 0.
@ +
Etienne


.





































Avatar
Evaro
"Luis" a écrit dans le message de
news: 303101c4bffb$d55c0290$
Bonjour,
J'ai fait comme ça:
Private Sub Commande_passée_par_AfterUpdate()
Me.fonction = Me.Commande_passée_par.Column(2) And
Me.TELEPHONEC = Me.Commande_passée_par.Column(3)
End Sub

Pas de "And" après column(2), mais un retour à la ligne.
Il s'agit de deux instructions distinctes.
@+
Etienne
Avatar
Luis
Bonjour,
Je te remercie ça marche très bien.
Luis
-----Message d'origine-----

"Luis" a écrit dans
le message de

news: 303101c4bffb$d55c0290$
Bonjour,
J'ai fait comme ça:
Private Sub Commande_passée_par_AfterUpdate()
Me.fonction = Me.Commande_passée_par.Column(2) And
Me.TELEPHONEC = Me.Commande_passée_par.Column(3)
End Sub

Pas de "And" après column(2), mais un retour à la ligne.
Il s'agit de deux instructions distinctes.
@+
Etienne


.



Avatar
deschampjp
en sortie de la liste deroulante, ou sur after_update faire
me.fonction=nom_contatc.column(2)
me.teldirect=nomcontact.column(3)
attention ca commence en column(0) pour le noclient
deschamp jp

-----Message d'origine-----
Bonjour,
Dans un formulaire j'ai la saisie du nom de contact avec
une liste déroulante.
Le contenu de cette liste déroulante est une
requête 'R_Contacts_Client2' avec en colonne1 noClient,
en

colonne2 'Expr1: CONTACTS_CLIENTS.Mme_Mlle_M & " " &
[CONTACT]'
Pour avoir par exemple Madame Sandra Petit, en
colonne3 'FONCTION' et en colonne4 'TELDIRECT'

Avec le menu déroulant j'arrive à sélectionner le contact
ce que j'aimerai c'est si 'Fonction' et 'TELDIRECT' de la
requête sont remplis que dans mon formulaire les
champs 'Fonction' et 'TELEDirect' se remplissent
automatiquement.
Comment faire ?
Luis

.