Discussion :

[kchrel]

j'ai un formulaire lié à une combobox mais lorsque la fenetre s'affiche les champs du formulaire ne s'affichent pas.
quand je fais ma selection dans la combobox, les champs s'affichent.
je voudrais que les champs soient toujours affichés comme c'est la cas pour un formulaire non lié d'ailleurs.
est-ce possible?

merci

[argyronet]

Bonjour,

Ta question est loin d'être claire. Un Form ne peut pas être lié à un Combobox !!!
Peux-tu reformuler ?
De ce que j'ai compris, tu dois avoir un PB lié à la Source de ton formulaire. Quelle est-elle ?

Argy

[DonFelipe]

Slt,
Je suis navré mais je t'assure que je n'ai pas compris exactement ce que tu veux faire...
Si tu pouvais être plus précis...

[kchrel]

oui c vrai pardon; je parles pas du form mais de l'objet subform/subreport
et des champs
• link child fields
• link master fiels
dans données (data) pour les proprietes dudit subform

quand ces champs sont vides; à l'apparition de la fenêtre tous les champs sont present et vide
mais quand y a qqch dedans alors y a rien et c'est apres selection qu'apparaissent les champs remplis...

je voudrais que les champs soient toujours visible

merci

[argyronet]

Es-tu certain que tes propriétés Master et Child pointent correctement sur des champs existants.
N'as-tu pas fait d'erreur de syntaxe. Par exemple, si tu as un champ Combo (nommé ComboCli) qui pointe sur un IDClient, il ne faut pas mettre IDClient comme champ fils mais ComboCli.

Argy

[Tofalu]

Je suis moi aussi désolé mais qu'entends tu par :

quand ces champs sont vides; à l'apparition de la fenêtre tous les champs sont present et vide
mais quand y a qqch dedans alors y a rien et c'est apres selection qu'apparaissent les champs remplis...

Tes champs n'apparaissent pas dans ton sous-formulaire parcque le jeu d'enregistrements est vide. Est tu sûr par exemple que si tu veux afficher par exemple les commandes du client 2 que le client 2 a bien passé des commandes.
De plus pour pouvoir lier ton formulaire à ton sous-formulaire, il faut que tous les deux aient une source de données renvoyant le Id_client. Sinon, le sous formulaire ne peut pas restreindre la sélection.

[kchrel]

oui ils existent mais à l'affichage initial ils ne vallent rien puisque rien n'est selectionné et que la combo est liée à une table

je voudrais que meme si ces valeurs sont vides, les champs apparaissent

[Tofalu]

Ben ils ne peuvent pas s'afficher tout le temps que la valeur de ton champs fils est nulle puisque qu'elle n'est pas égale à celle du champs père.

Donc dans ce cas, la source d'enregistrement de ton sous formulaire est donc vide et il ne s'affiche rien. Mais pourquoi veut tu les afficher quand même ?

[argyronet]

Mais pourquoi veut tu les afficher quand même ?

Oui, effectivement...
Ou alors, il faut que tu affectes une valeur par défaut dans ta combO

Argy

[Papy Turbo]

oui ils existent mais à l'affichage initial ils ne vallent rien puisque rien n'est selectionné et que la combo est liée à une table

je voudrais que meme si ces valeurs sont vides, les champs apparaissent

Il faut que tu affectes une valeur par défaut à ta combo, pour qu'elle 'valle' quelquechose.
Par exemple,

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
    'si la liste est vide, peut rien sélectionner
    If Modifiable1.ListCount Then
        'si elle l'est pas, sélectionne la 1ère ligne
        Modifiable1.ListIndex = 0
    End If
End sub

[kchrel]

j'ai voulu mettre une valeur par defaut à l'aide de la propriete "default value" mais ca a pas eu l'air d'aller...

j'ai essayé ton code papy turbo mais j'ai le message d'erreur
"utilisation incorrecte de la propriete listindex" (7777)

[Faw]

pour le message d'erreur essaye d'ajouter = 0 à la ligne
If Modifiable1.ListCount (If Modifiable1.ListCount = 0)

[kchrel]

je suppose que tu veux dire "<> 0" sinon il rentre pas tant que des items existent ds la liste et rentre quand elle est vide...

quoi qu'il en soit cela ne change rien j'ai toujours cette erreur 7777

je pense que je dois donner le focus à la combo avant de selectionner l'index mais là qd je fais

Code :

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

1
2
 
macombo.setfocus

il dit qu'il arrive pas à lui donner le focus...

[Tofalu]

Essaye sur l'evenement on_activate avec le code de Papy Turbo

[argyronet]

Re,

Quelle est la proporiété ControlSource de ta Combo ? Si ta combo n'en a pas, il est normal que tu n'ais aucun enregistrement, enfin pas avant de sélectionner quelque chsoe dedans.
Tu dois lui donner le focus avant de vérifier la méthode proposée par Papy.
Quant à :

j'ai voulu mettre une valeur par defaut à l'aide de la propriete "default value" mais ca a pas eu l'air d'aller...

La propriété "Valeur par defaut" ne peut être prise en compte qu'en mode Ajout (Entrée de données = Oui). dans ton cas ce n'est pas envisageable.

Argy

[kchrel]

en fait la reponse à la question est le code de Papy turbo avec juste le positionnement du focus
ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Load()
    'si la liste est vide, peut rien sélectionner
    If Modifiable1.ListCount Then
        Modifiable1.SetFocus
        'si elle l'est pas, sélectionne la 1ère ligne
        Modifiable1.ListIndex = 0
    End If
End sub

mes autres problèmes sont dûs à mon utilisation... particulière

merci beaucoup

[kchrel]

La propriété "Valeur par defaut" ne peut être prise en compte qu'en mode Ajout (Entrée de données = Oui). dans ton cas ce n'est pas envisageable.

Argy

ah oki merci beaucoup

(je voulais que les champs s'affichent car j'ai besoin d'y accéder directement par code et qu'il est pas content car ils sont pas affichés et que je les modifie)

mais en metant une valeur par defaut ils sont directement affichés apres le chargement du form et donc tout va bien

encore merci de votre aide

[Faw]

Kchrel:
oui tu suppose bien...(dslé)

pour la valeur par défaut sans même se soucier du focus il ya

Code :

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

1
2
3
4
Private Sub Form_Load()
    Me.Modifiable1.Value = Me.Modifiable1.[ItemData](0)
 
End Sub

, merci shwin

8)

[Papy Turbo]

Sorry pour le retard (panne ADSL + ...)
Effectivement, autant pour moi

Cette propriété est en lecture seule et n'est pas accessible dans les autres modes.

Donc, revoici le code testé et corrigé :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
    With Modifiable0
        If .ListCount > 0 Then
            .Value = .Column(0, 0)
        End If
    End With
End Sub

à condition que la colonne liée soit la 1ère (colonne 0 dans la syntaxe de .Column())