Discussion :

[sunvialley]

Bonjour,

j'ai un formulaire (F_FICHIER) avec une liste qui est actualisée par des critère de recherche (un peu comme sur le tuto de cafeine). Tout marchait bien au niveau de ce formulaire.

Par contre, ce que je veux maintenant, c'est placer ce formualire dans un formulaire principale (F_PRINCIPAL) qui regroupera plusieur sous formulaire. J'ai donc mis un sous formulaire "ssFormFichier" qui a pour source "F_FICHIER", j'ai fait presque toutes les modif, mais il y en a une qui me résiste...

Le sous formulaire lance un autre formulaire (boite de dialogue) dans laquelle j'appelle une fonction qui a comme paramètre "F_FICHIER" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub bt_ok_Click()
On Error GoTo Err_bt_ok_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Call initialisationFichier(Forms("F_PRINCIPAL").ssFormFichier)
    DoCmd.Close
Exit_bt_ok_Click:
    Exit Sub
Err_bt_ok_Click:
    MsgBox Err.Description
    Resume Exit_bt_ok_Click
 
End Sub

mais à ce moment là, j'ai droit à un erreur :
"Incompatibilité de type"

(Je ne rentre même pas dans ma fonction...)

Je ne vois pas de quoi cela vient...
Si qq1 pouvait m'orienter...
MERCI

[pgz]

Bonjour,

Le sous formulaire lance un autre formulaire (boite de dialogue) dans laquelle j'appelle une fonction qui a comme paramètre "F_FICHIER"

et

Code :

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

Call initialisationFichier(Forms("F_PRINCIPAL").ssFormFichier)

Si initialisationFichier est une fonction, elle renvoie une valeur et on l'appelle par exemple comme

Code :

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

MaVariable = initialisationFichier(Forms("F_PRINCIPAL").ssFormFichier)

Le 'Call' est réservé aux procédures.

Donc : initialisationFichier(ctl as control?) est une procédure ou une fonction. Attention aussi au type d'argument passé. Tel que tu l'as écrit, l'argument serait un contrôle de formulaire, ici le contrôle de sous formulaire.

Bon courage,

pgz

[LedZeppII]

Bonjour,

Peut-être aussi que Forms("F_PRINCIPAL").ssFormFichier est de type Obect/Form.
Il faudrait peut-être écrire un truc du genre Forms("F_PRINCIPAL").ssFormFichier.Form.NomControle pour avoir une valeur.
A+

[sunvialley]

désolé de répondre tardivement (we oblige), mais ca marche, MERCI

En effet, c'était bien une Incompatibilité de Type (comme quoi l'erreur donnait bien la bonne indication ), mais j'étais persuadé que "monForm.monSousForm" était un formulaire alors que c'est un control (j'avoue que j'ai fait le boulet).

C'est quand j'ai vu monForm.monSousForm.Form que la lumière est apparue. Donc il me manquait le .Form, cad :

Code :

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

Call initialisationFichier(Forms("F_PRINCIPAL").ssFormFichier.Form)

sinon

initialisationFichier(ctl as control?) est une procédure ou une fonction ?

c'est une procédure(f as Form) pardon, mais en vb j'ai l'impression que les procédures sont également des fonctions (renvoie quand meme une valeur) donc j'ai pas fait gaffe quand j'en ai parlé.

Un grand merdi à vous