IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

IHM Discussion :

Atteindre enregistrement [AC-2007]


Sujet :

IHM

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    137
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 137
    Points : 30
    Points
    30
    Par défaut Atteindre enregistrement
    Bonjour à tout le monde,

    Je suis sur Access 2007.

    J'ai conçu un formulaire "RechercherRapatrieur". Il y a une zone texte nom prénom, une fois saisie et appuyer sur le bouton rechercher, l'utilisateur trouve le rapatrieur qu'il souhaite. Tout fonctionne bien.

    Mais j'aimerai qu'une fois la recherche faite, qu'il clique sur le nom (par exemple) du rapatrieur en question et qu'il atteint le formulaire "F-ModifierRapatrieur". Et donc qu'il puisse modifier l'enregistrement spécifique. Sur le contrôle nom du formulaire "RechercherRapatrieur", j'ai écrit ce code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Private Sub nom_Click()
    On Error GoTo Err_nom_Click
     
        Dim Formulaire As String
        Dim Condition As String
     
        Formulaire = "F-RechercherRapatrieur"
        Condition = "[nom] =" & Me![nom]
        DoCmd.OpenForm "F-ModifierRapatrieur", , , Condition, , , Me.[nom]
     
    Exit_nom_Click:
        Exit Sub
     
    Err_nom_Click:
        MsgBox Err.Description
        Resume Exit_nom_Click
     
    End Sub

    Cela ne fonctionne pas... Quand je clic sur le nom du rapatrieur trouvé, cela me marque "Entrer une valeur de paramètre".


    Pouvez-vous m'aider s'il vous plait.


    Merci d'avance.

  2. #2
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 117
    Points : 5 244
    Points
    5 244
    Par défaut
    Bonjour,

    Je pense que nom est une string, donc :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Condition = "[nom] ='" & Me![nom] & "'"
    Par ailleurs si Nom="O'HARA" ça ne marchera pas, il faut une p'tite routine qui dédouble les '
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Condition = "[nom] ='" & replace(Me![nom],"'","''") & "'"

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    137
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 137
    Points : 30
    Points
    30
    Par défaut
    Cela fonctionne, je suis content. Merci beaucoup.

    Pourrais-tu m'expliquer seulement la différence entre ce que j'ai mis et ce que tu as modifier. Merci !

    Merci encore.

  4. #4
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 117
    Points : 5 244
    Points
    5 244
    Par défaut
    Euh... C'est simple mais difficile à expliquer

    Tout d'abord les [ ne servent à rien

    Ensuite
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Condition = "nom='" & Me.nom & "'"
    Va construire une condition pour une requête SQL

    Si le résultat est nom=toto elle comprend que toto est une variable et elle ne connait pas sa valeur d'où le message
    Si c'est nom='toto' elle comprend elle est contente
    Si c'est nom='o'timin's' par contre
    Si nom='o''timin''s' c'est OK aussi

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 16/09/2009, 17h27
  2. Réponses: 3
    Dernier message: 12/01/2009, 11h56
  3. erreur d'exéctuion macro :atteindre enregistrement
    Par soussie dans le forum VBA Access
    Réponses: 1
    Dernier message: 24/11/2008, 21h25
  4. Réponses: 6
    Dernier message: 09/03/2007, 20h33
  5. [débutant] atteindre enregistrement
    Par lomania dans le forum Access
    Réponses: 2
    Dernier message: 31/08/2006, 13h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo