Pb Formulaire -> Sous Formulaire

Version imprimable

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... :cry:

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

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

05/05/2006, 17h55
pgz

Bonjour,

Citation:

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:

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

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

Code:

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
05/05/2006, 19h40
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+
09/05/2006, 10h18
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:

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

sinon

Citation:

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 :lol: