Discussion :

[irimi54]

Bonjour à tous,

Le titre est peut etre pas clair, alors je mets des images

Avec ce bout de code :


j'obtiens cela :



mais je vourais obtenir cela :



c'est à dire que mon formulaire soit ous la forme d'un formulaire classique et pas sous la forme d'une liste de données.

Merci pour vos reponses

[bertiny]

Bonjour
Un sous-formulaire en mode continue peut faire l'affaire. Tu utilises l'assistant de création du formulaire et tu choisis la disposition tabulaire. Un exemple ici formulaire.zip

[irimi54]

Mon sous-formulaire est deja en mode continu comme tu le vois sur la piece jointe n° 3 obtenu à l'ouverture du formulaire principal avant tout clic sur les liste déroulante mais quand on lance la procedure en cliquant sur l'une ou l'autre des liste déroulantes, la procedure lancée fait apparaitre sous formulaire en mode données . Et cela me gene pour ce que veux faire.

[bertiny]

Peux-tu faire la copie de ta BD et la réduire au strict minimum (formulaire, sous-formulaire et sources de données concernées) pour que je puisse jeter aussi un coup d'œil ?

[irimi54]

OK voila la BD

J'espere que cel est bon

merci de t'occuper de mon pb

[Jeannot45]

Je pense que ton problème vient de la source de ton sous formulaire dans ton code :
Pour l'alimenter, il aurait fallu affecter la requête à la propriété RecordSource et non à SourceObject.

[irimi54]

cela suppose que je remplace dans mon code sourceObject par RecordObject ou il y a d'autre ligne à rajouter?

[tee_grandbois]

bonjour

cela suppose que je remplace dans mon code sourceObject par RecordObject ou il y a d'autre ligne à rajouter?

pas RecordObject, comme te l'a indiqué Jeanno45, c'est RecordSource.
As-tu au moins essayé ?:

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 Categorie_Change()
 
If (IsNull(Forms![F_saisie_pesee]![Sexe])) Then
    Me.SF_liste_pesee.Form.RecordSource = "R_Liste_judoka_Categorie"
Else
    Me.SF_liste_pesee.Form.RecordSource = "R_Liste_judoka_Sexe_Categorie"
End If
End Sub
 
 
Private Sub sexe_Change()
 
If (IsNull(Forms![F_saisie_pesee]![Categorie])) Then
    Me.SF_liste_pesee.Form.RecordSource = "R_Liste_judoka_Sexe"
Else
    Me.SF_liste_pesee.Form.RecordSource = "R_Liste_judoka_Sexe_Categorie"
End If
End Sub

[irimi54]

Je n'ai pas eu le temps d'essayer mais je vais le faire

merci de ta reponse

[irimi54]

CA MARCHE super comme je voulais

merci a vous tous