Discussion :

[Cyphen]

Voila... J'ai recherché dans la FAQ des informations concernant mon problème mais rien ne m'a apporté les éléments nécessaires.

Problème que voici:

J'ai un formulaire appelé "Tool Interface". Ce formulaire possède plusieurs éléments mais un seul m'interesse dans ce cas: "LocTxt"

Dans ce formulaire, j'ai un sous formulaire appelée "CheckContact" (Rendu visible par un click sur un bouton). Il contient deux champs: "Contact" et "Phone"

Lors du clic (sur le bouton d'ouverture) j'aimerai que le sous-formulaire se remplisse automatique en utilisant la valeur contenu dans "LocTxt" et en se rapportant à la table "TblLocation" qui contient les informations [Contact], [Phone] et [Location].

J'ai pensé à un DLookUp que je pourrais mettre dans le Sous-Formulaire:

Code :

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

1
2
Me.Contact = DLookup("[Contact]", "TblLocation", "[Location]='" & LocTxt & "'")
 Me.Phone = DLookup("[Phone]", "TblLocation", "[Location]='" & LocTxt & "'")

Mais le problème vient vraisemblement du LocTxt qu'il ne trouve pas... Comment faire alors ? Dois je plutot coder sur le Click du bouton ? Dans ce cas il n'y aurait pas d'auto-update si on change l'endroit.

Bref, j'espère que je suis pas trop confus dans mes propos.

Merci d'avance

S.

[polo(31)]

loctxt est une variable(numérique,chaine de caractére, ...),une constante, un fichier, .....?

si c'est une constante, définie simplement la valeur par défaut de ton champ,
si c'est une variable, l'utilisation de " et & est différente suivant son type

[stéphane_ais2]

Et ceci :

Code :

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

1
2
 
Me.NomSousformulaire.Form.NomDuContrôle = Me.NomDuContrôle

dans le frm principal...

SE

[Cyphen]

loctxt est une variable(numérique,chaine de caractére, ...),une constante, un fichier, .....?

si c'est une constante, définie simplement la valeur par défaut de ton champ,
si c'est une variable, l'utilisation de " et & est différente suivant son type

LocTxt est un champ qui recoit une valeur. Alors au moment du clique il a une valeur et c'est tout... Mais c'est pas une constante au sens propre du terme.

Pour Stephane:

Me.NomSousformulaire.Form.NomDuContrôle = Me.NomDuContrôle

J'ai bien vu ça mais le problème c'est surtout le DLookUp :/

[stéphane_ais2]

Et ça :

Code :

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

1
2
3
 
Me.Contact = DLookup("[Contact]", "TblLocation", "[Location]='" & Me.NomFrmPrincipal!LocTxt & "'")
Me.Phone = DLookup("[Phone]", "TblLocation", "[Location]='" & Me.NomFrmPrincipal!LocTxt & "'")

?


SE

[Cyphen]

Je comprend pas j'ai toujours une erreur mais j'ai reglé le problème en mettant un champ intermediaire invisible et donc le lookup dans le formulaire lui même...

Avant de clore ce sujet et pour pas en lancer un autre:

Comment peut on empecher quelqu'un de rentrer dans un champ (j'entend par la, le surlignage qui permet la modif' du champ). J'aimerai qu'on ne puisse aller que sur les boutons quoi même si l'auto-correction est désactiveé.

J'ai pas trouver dans les proprietés quelque chose pour faire ca... Du moins je vois pas quoi.

Merci en tout cas

[stéphane_ais2]

Comment peut on empecher quelqu'un de rentrer dans un champ (j'entend par la, le surlignage qui permet la modif' du champ).

Code :

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

KeyCode = 0

...à vérifier...

SE

[Cyphen]

Code :

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

KeyCode = 0

...à vérifier...

SE

Je suis désolé, je ne trouve même pas cet attribut... Quant au vérouillage, il grise l'écriture alors c'est pas top C'est dommage d'ailleurs sinon ca serait nickel puisque les affichages auto ne sont pas bloqués.

[stéphane_ais2]

Je suis désolé, je ne trouve même pas cet attribut...

c'est du code à placer sur l'évenement KeyDown comme action sur condition par exemple...

SE

[scorpion1611]

Quant au vérouillage, il grise l'écriture alors c'est pas top C'est dommage d'ailleurs sinon ca serait nickel puisque les affichages auto ne sont pas bloqués.

Essaye dans les propriétés de ton champs:

Activé = Non
Vérouillé = Oui

[Cyphen]

Essaye dans les propriétés de ton champs:

Activé = Non
Vérouillé = Oui

Je te remercie ca marche au poil.

Merci aussi Stéphane

[enretard]

Bonjour,

Je voudrais que mon formulaire se remplisse automatiquement liée à une base excel

Je suis novice dans la programmation et j'ai du mal à trouver ce que je veux.

J'ai un fichier d'adresses sur Excel.

J'ai dessiné ma boîte de dialogue (UserForm)

j'ai ajouté des boutons de commandes VALIDER ANNULER CONSULTER

Je ne sais pas faire les liens en VBA sur mes textbox pour qu'il aille chercher les informations sur ma base excel. Par exemple je voudrais en choississant un nom de personne "dupont" que mon formulaire aille chercher les différends "DUPONT" et me les affiche dans mon formulaire avec le reste de ses coordonnées. Tél. email etc...

merci de m'aider.