Discussion :

[adelion7015]

Bonjour Marot,

Ok merci, je vais voir ca tout de suite.

Merci.

[adelion7015]

Bonsoir,

je reprend le post vu qu'il s'agit du même sujet, a vrai dire et après réflexion, j'ai changé un peu mon approche, ça marche bien, mais j'ai tout de même un petit soucis et une petite question.

dans mon sous formulaire j'ai un bouton qui appel a un formulaire, sur lequel je choisi une valeur, puis en double cliquant la valeur est affectée au champ du sous formulaire, je rappel que le sous formulaire est en mode continu, voici le 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
Private Sub num_compte_comptable_DblClick(Cancel As Integer)
 
    If Nz(sousForms![f_valeur]![compte], "") = "" Then
        sousForms![f_valeur]![compte] = Me.num_compte_comptable
 
 
 
    Else
        sousForms![f_valeur]![compte] = Forms![f_valeur]![compte] & ";" & Me.num_compte_comptable
 
End If
 
DoCmd.Close acForm, Me.Name             ' ferme le formulaire pays
 
End Sub

En exécutant ce code j'ai message d'erreur suivant :

Erreur d'execution 424
Objet requis.

En même temps je me demande si la valeur s'affectera au champ de la ligne souhaité, vu qu'il s'agit d'un formulaire en mode continu.

Merci.

Cordialement.

[tee_grandbois]

bonsoir,
quand on utilise le contrôle d'un sous-formulaire, il faut préciser la propriété .Form du sous-formulaire:

Code :

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

Me.[F_valeur].Form![compte]

Me. représente le formulaire contenant le code
et sousForms n'est pas une classe d'objets

[adelion7015]

Bonsoir tee_granbois,

Je suis désolé, j'aimerais plus de détails s'il vous plait, je n'ai vraiment pas saisi ou serait ce bout de code par rapport au code precedent.

Cordialement.

[adelion7015]

J'ai réecris le code selon vos indications mais en vain, j'ai peut etre fait une erreur quelque part, voici le nouveau 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 num_compte_comptable_DblClick(Cancel As Integer)
 
 If Nz(Me.[f_valeur].Form![compte], "") = "" Then
        Me.[f_valeur].Form![compte] = Me.num_compte_comptable
 
 
 
    Else
        Me.[f_valeur].Form![compte] = Me.[f_valeur].Form![compte] & ";" & Me.num_compte_comptable
 
End If
 
 
DoCmd.Close acForm, Me.Name             ' ferme le formulaire pays
 
 
 
End Sub

[tee_grandbois]

- comment s'appelle le sous-formulaire (propriété Nom du contrôle sous-formulaire dans le formulaire principal) ?


- quel est le nom du formulaire principal ?

- dans quel formulaire est le code Private Sub num_compte_comptable_DblClick(Cancel As Integer)

[adelion7015]

Bonjour,

- comment s'appelle le sous-formulaire (propriété Nom du contrôle sous-formulaire dans le formulaire principal) ?

f_valeur

- quel est le nom du formulaire principal ?

f_financement

- dans quel formulaire est le code Private Sub num_compte_comptable_DblClick(Cancel As Integer) ]

f_compte_comptable, c'est un formulaire que j'appel via un bouton a partir du sous formulaire f_valeur, je double clique sur le champ num_compte_comptable pour que sa valeur s'affecte au champ du sous formulaire f_valeur.

Cordialement.

[tee_grandbois]

bonjour,
donc la syntaxe est :

Code :

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

1
2
3
4
5
6
If Nz(forms!f_financement!f_valeur.form!compte, "") = "" Then
    forms!f_financement!f_valeur.form!compte = Me.num_compte_comptable
Else
    forms!f_financement!f_valeur.form!compte = forms!f_financement!f_valeur.form!compte & ";" & Me.num_compte_comptable
 
End If

[adelion7015]

Bonjour tee_grandbois,

ca marche parfaitement, je ferais d'autre test au courant de la jounrée et je vous tiendrais au courant.

merci beaucoup.

Cordialement.

[adelion7015]

Bonjour tee_grandbois,

Je confirme ca marche très bien, encore merci.

Cordialement.