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 :

Obtiention #Nom ? dans un champ de formulaire


Sujet :

IHM

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    101
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 101
    Par défaut Obtiention #Nom ? dans un champ de formulaire
    Bonjour,
    Avec une requête SQL je vais chercher des informations dans mes différentes tables qui sont liées les unes aux autres par un seul champ.
    Le problème se situe au niveau de l'affichage dans mon formulaire.
    L'affichage se fait parfaitement pour les chiffres mais pour les textes j'obtiens " # NOM ?". J'ai donc vérifié si les informations obtenues étaient bien là et lorsque je demande à les afficher dans une MessageBox cela fonctionne.
    Je vous joins mon code pour plus de compréhension :
    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
    19
    20
    21
    22
    23
    24
    25
    Dim rep As Recordset
        Dim bla As String
        bla = "SELECT desc_age.age,desc_sexe.sexe,desc_sexe.statut_repro,desc_espece.espece,desc_age.longueur FROM desc_age,desc_espece,desc_sexe WHERE desc_espece.num_collection = " & Texte0.Value & ";"
        bli = "SELECT desc_age.age, desc_sexe.sexe, desc_sexe.statut_repro,desc_espece.espece, desc_age.longueur FROM (desc_age INNER JOIN desc_espece ON desc_age.num_collection = desc_espece.num_collec) INNER JOIN desc_sexe ON (desc_age.num_collection = desc_sexe.num_collection) AND (desc_espece.num_collec = desc_sexe.num_collection) WHERE desc_age.num_collection=" & Texte0.Value & ";"
        Set rep = CurrentDb.OpenRecordset(bli)
        Texte2.Value = rep(0)
        If (Not (rep.EOF)) Then
            ' 3) des données ont été trouvées, on les utilise comme valeurs par défaut
            rep.MoveFirst
            Texte2.DefaultValue = rep(0)
            ' text2 = Age
            Texte4.DefaultValue = rep(1)
            ' text4 = sexe
            Texte8.DefaultValue = rep(2)
            ' texte8 = statut repro
            Texte6.DefaultValue = rep(4)
            ' texte6 = longueur
            Texte11.DefaultValue = rep(3)
            ' texte 11 = espece
            MsgBox (rep(3))
            MsgBox (rep(2))
     
        Else
            ' Pas trouvé faire autre jour
            End If
    Merci pour votre aide

  2. #2
    Membre chevronné
    Profil pro
    Inscrit en
    Juillet 2004
    Messages
    557
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2004
    Messages : 557
    Par défaut
    Je ne suis pas sur maisutilise plutot

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    rep.fields(0).value
    tu as peut etre un problème de typage

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    101
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 101
    Par défaut
    Apparement cela ne change rien.
    Je pense que j'ai effectivement un problème de typage mais au niveau de ma zone de texte de mon formulaire pas de ma requête.
    J'avoue que je ne sais pas comment lui dire que la zone de texte doit être un texte et non un chiffre.
    Merci pour l'aide

  4. #4
    Membre chevronné
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    352
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Avril 2006
    Messages : 352
    Par défaut
    il faut que tu lui ajoute les guillemets pour lui spécifier que c'est du texte

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    texte8.defaultvalue = """" &rep(2) &""""

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    101
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 101
    Par défaut
    Du coup maintenant dans mon formulaire est affiché : & rep(3) &

  6. #6
    Membre chevronné
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    352
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Avril 2006
    Messages : 352
    Par défaut
    C'est pas normal...
    Tu es sûr d'avoir bien fermé les guillemets ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Me.texte11.DefaultValue = """" & rep(2) & """"
    il te faut à chaque fois 4 guillemets. Un pour signaler que tu débute un texte, deux pour qu'il comprenne que tu met un guillemets ouvrant et le guillemet fermant de ton texte

  7. #7
    Membre chevronné
    Profil pro
    Inscrit en
    Juillet 2004
    Messages
    557
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2004
    Messages : 557
    Par défaut
    essaie plutot ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    texte8.defaultvalue = cstr(rep.fields(2).value)

  8. #8
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    101
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 101
    Par défaut
    Désolée j'avais mis 3 guillemets de chaque côté ...
    Merci beaucoup pour ton aide ça fonctionne parfaitement.

  9. #9
    Membre chevronné
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    352
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Avril 2006
    Messages : 352
    Par défaut
    Citation Envoyé par helios77 Voir le message
    essaie plutot ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    texte8.defaultvalue = cstr(rep.fields(2).value)
    le cstr ne va rien changer puisque que rep.fields(2) est déjà un type string.
    Si rep.fields(2) = "Male", en faisant cela, il va écrire dans la propriété defaultValue Male alors qu'il faut qu'il ecrive "Male" donc il faut bien lui ajouter au début et à la fin les guillemets !

  10. #10
    Membre chevronné
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    352
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Avril 2006
    Messages : 352
    Par défaut
    N'oublie pas le tag résolu

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

Discussions similaires

  1. Recherche par nom dans un champ (Formulaire)
    Par info.syndi dans le forum Access
    Réponses: 3
    Dernier message: 09/04/2014, 17h04
  2. [AC-2010] Afficher le nom de l’utilisateur dans un champ de formulaire.
    Par modus57 dans le forum IHM
    Réponses: 5
    Dernier message: 30/08/2011, 12h08
  3. Recuperer le nom d'un champ de formulaire
    Par blueice dans le forum Langage
    Réponses: 18
    Dernier message: 10/01/2006, 10h42
  4. saisie obligatoire dans un champs de formulaire
    Par Didi17 dans le forum Access
    Réponses: 2
    Dernier message: 28/10/2005, 03h51
  5. nom d'un champs de formulaire dynamique
    Par wil4linux dans le forum ASP
    Réponses: 2
    Dernier message: 22/09/2005, 17h42

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