Aide Sur VBA ouverture formulaire.

NONOCOLI Messages postés 7 Statut Membre -  
moiced59 Messages postés 1161 Statut Membre -
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
Configuration: Windows XP Internet Explorer 6.0

11 réponses

  1. moiced59 Messages postés 1161 Statut Membre 60
     
    Sur ouverture du formulaire tu met :

    [nom_de_ton_champ].setfocus
    0
  2. NONOCOLI Messages postés 7 Statut Membre
     
    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
  3. moiced59 Messages postés 1161 Statut Membre 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
  4. NONOCOLI Messages postés 7 Statut Membre
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. moiced59 Messages postés 1161 Statut Membre 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
  7. moiced59 Messages postés 1161 Statut Membre 60
     
    c bon tu as reussi?
    0
  8. NONOCOLI Messages postés 7 Statut Membre
     
    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
  9. moiced59 Messages postés 1161 Statut Membre 60
     
    cela fais quoi ?
    message d erreur ou...?
    0
  10. moiced59 Messages postés 1161 Statut Membre 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
  11. NONOCOLI Messages postés 7 Statut Membre
     
    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
  12. moiced59 Messages postés 1161 Statut Membre 60
     
    bonsoir

    backcontrol tu es sur de ca?

    g cherché mais la je seche
    0