Aide Sur VBA ouverture formulaire.

NONOCOLI Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à Tous,

Recherche aide précieuse pr m'aider dans la programmation VBA sur ouiverture de formulaire. Notamment pour mettre le focus sur un champ donné. Si quelqu'un peut me débrouiller de ma base car je ne m'en sors pas.

Merci de votre aide

11 réponses

moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
Sur ouverture du formulaire tu met :

[nom_de_ton_champ].setfocus
0
NONOCOLI Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Merci moiced59 pour ta réponse,

Mais c'est un peu plus complexe que cela, car je pars d'1 formulaire"enregistrement" ou j'ai deux champs "Allée" et "Numéro", concaténé en un champ texte "Allée&Numéro" Ex Allée=A Numéro=027, champ Texte49="A027".
A partir d'un icone, je veux ouvrir un formulaire "Plan" ou j'ai mis des Boutons de commande par Microsoft Form 2 avec le Nom A001, A002.......A027...
Je voudrais donc qu'en cliquant sur l'icone, je puisse ouvrir mon formulaire champ et mettre le focus sur le bouton de commande correspondant à la fiche ouvert dans mon formulaire enregistrement.

Merci de ton aide
Pour plus de facilité, je pourrais t'adresser ma base...un peu particulière!
Mon adresse mail :noel.colineaux@design-duval.com

A+
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
ah ok !!!!

sur ton formulaire allée tu as mis un bouton avec un code ex: DoCmd.OpenForm "plan"

tu pourrais dc y ajouté :
DoCmd.OpenForm "plan", , ,"texte49 = '" & nom_de_ton_bouton & "'"
0
NONOCOLI Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Merci encore, moiced59, de t'occuper de mon prbl mais ça ne fonctionne pas,

Peux tu m'expliquer pourquoi la syntaxe ci-dessous ne fonctionne pas à l'ouverture du formulaire "plan"

Dim réponse As String

'demande faite à l'utilisateur d'indiquer l'allée et le numéro
réponse = InputBox("indiquer l'allée & et le numéro de l'emplacement")

'Affichage dans une message box du choix effectué

MsgBox ("réponse")
'utilisation de la réponse pour mettre le focus sur le contrôle concerné
[réponse].SetFocus


Pour moi, à l'ouverture, j'ai cet InputBox qui demande à l'utilisateur de rentrer l'allée et le Numéro, exemple : A025
Je souhaite reprendre cette réponse pour mettre le focus sur le controle correspond dans le formulaire "plan"

Si je fais [A025].SetFocus j'ai bien le focus sur le bon controle A025

par contre si je fais [réponse].SetFocus ça ne fonctionne pas.

si j'arrive à règler ce problème, je vais pouvoir énormément avancer dans ma base.

j'espère que j'explique bien mon prbl

Encore merci du coup de main

A+

NONOCOLI
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
salut

essai de ajouter ca a ton code:
dim test as string

test = reponse

[test].SetFocus a la place de [réponse].SetFocus
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
c bon tu as reussi?
0
NONOCOLI Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Désolé moiced59, mais je me suis absenté qqs jours et je n'ai pas pu me reconnecter.

j'ai fais l'essai avec ta syntaxe, mais ça ne marche pas.

En mettant une boite de dialogue à l'ouverture de mon formulaire avec attente d'une réponse telle que : A027, il faudrait utiliser la réponse pour mettre le focus sur le contrôle A027. Est-ce un probléme de correspondance entre les champs, d'un coté un champ texte lors de la réponse, et d'un coté un champ contrôle ?

A+ sur le forum

NONOCOLI
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
cela fais quoi ?
message d erreur ou...?
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
ok essai ca sinon:


dim test as string
dim reponse as string

reponse= inputbox("fgfdnlxckvlkjvlkcocndsoncoidncosdn")

test = reponse

docmd.gotocontrol test

ca je pense que cela pourrai marcher bien sur adapte le code a ton formulaire
0
NONOCOLI Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour moiced56.

OK ça ca marche bien - tu m'enlève une épine du pied -

maintenant je voudrais que mon contrôle test dès la réception du focus devienne rouge. Je peux le faire en le mettant dans chaque contrôle, sur réception focus, changer Backcolor.

Il est sans doute possible de le mettre dans la syntaxe après gotocontrol test, j'ai essayé test.BackControl=255, mais il me met "Erreur de compilation, qualificateur incorrect".

Enfin lorsqu'il met le focus sur un contrôle, est-il possible de lui demander de mettre le contrôle au centre de l'affichage.

Super pour la syntaxe GoToControl !!!

j'avance à petit pas, mais j'avance

A+ sur le forum

Nonocoli
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
bonsoir

backcontrol tu es sur de ca?

g cherché mais la je seche
0