Discussion :

[nodogeid]

Bonjour.
Après compilation du code, un message d'érreur apparaît:

Erreur:Propriété ou méthode non gérée par cet objet.

Voici le code:(En rouge, la ligne qui pose problème).

Code :

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

1
2
3
4
5
6
7
8
Dim f As Form
Set f = Forms.[gestion des types]
If f.feuille = 1 Then
   Screen.ActiveControl.Locked = True
Else
   On Error Resume Next
   Screen.ActiveControl.Locked = False
End If

Je me doute que c'est la syntaxe qui n'est pas la bonne. Comment faire pour "dire" que f, c'est le formulaire "gestion des types",et pour pouvoir l'utiliser après?
(if f.feuille = 1 then...etc etc....)


Voila je vous remercie.
Allez ++

[Tofalu]

Bonjour

pensez à consulter la FAQ

Code :

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

set f= Forms("MonFormulaire")

[nodogeid]

Merci beaucoups. Dsl, je regarderais la FAQ la prochaibne fois.
Merci encore!
Allez ++!!