MagicBuzz | nightmaster a écrit :
salut
(bon alors a fait pas si longtps que ça que je fais du vba alors bon)
alors j'ai un procedure public que je fous ds un module pasque utilisée par tous les formulaires..
ça donne ça:
Public Sub masquerhaut1(f As Form)
bt_creer.Visible = False
bt_modif.Visible = False
bt_suppr.Visible = False
bt_rech.Visible = False
bt_prec.Visible = False
bt_suiv.Visible = False
bt_val.Visible = True
bt_annul.Visible = True
End Sub
et l'appelle dans le code des formulaire ça donne :
masquerhaut1 (Forms!service)
et le pb, c que qd c exécuté, il me surligne la ligne ci dessus et me dit "incompatibilité de type" arf
- logiquement, le module, avec les proc public, est un module, et pas un module de class ...
- "f as form", form, c bon kom type de déclaration? - Forms!service = Forms!nomformulaire (form_service, c bien que le nom du module? de toute façon, ça marche pas)
et puis la syntaxe comme ça, c'est dans l'aide alors...
- ya des trucs particulier à cocher dans /outils/références ..??
si vous plais aidez moi! pasque, qd je trouve pas le pb, ça me soule très vite arf
++
|
Déjà, les sub ne prennent pas de parenthèses à l'appel.
taSub paramètre
Donc soit tu n'en met pas, soit tu fais un call
call taSub(parmètre)
Sinon, la syntaxe avec le "!" m'est inconnue. A mon avis il y a un problème à ce niveau.
En fait, j'essaie de comprendre
Logiquement, si tu appelles cette sub depuis une form qui doit se modifier elle-même :
form_service.masquerhaut1 Me
Si c'est ailleurs, ou qu'une form demande à une autre form de subir la modif :
form_service.masquerhaut1 NomDeLaForm
Par exemple :
form_service.masquerhaut1 service
Mais bon, je suis pas certain de tout comprendre ce que tu essaies de faire
Sinon, un truc, je pense que les "bt_xxxx" qu'il y a dans ta sub sont des éléments de la form passée en paramètre non ?
Alors :
Code :
- Public Sub masquerhaut1(byref f As Form)
- with f
- .bt_creer.Visible = False
- .bt_modif.Visible = False
- .bt_suppr.Visible = False
- .bt_rech.Visible = False
- .bt_prec.Visible = False
- .bt_suiv.Visible = False
- .bt_val.Visible = True
- .bt_annul.Visible = True
- end with
- End Sub
|
|