Discussion :

[steph_p]

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

[helios77]

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

[steph_p]

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

[Taoueret]

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) &""""

[steph_p]

Du coup maintenant dans mon formulaire est affiché : & rep(3) &

[Taoueret]

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

[helios77]

essaie plutot ceci

Code :

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

1
2
 
texte8.defaultvalue = cstr(rep.fields(2).value)

[steph_p]

Désolée j'avais mis 3 guillemets de chaque côté ...
Merci beaucoup pour ton aide ça fonctionne parfaitement.

[Taoueret]

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 !

[Taoueret]

N'oublie pas le tag résolu