Bonjour,
Dans un sous-formulaire (Access 2003) en affichage mode continu, je
souhaite
bloquer certains champs lorsqu'une condition est réunie. Alors que cela
fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
aussi
en mode continu.
J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée par
cet
objet".
Où est l'erreur ?
Private Sub Form_Current()
If (Not IsNull([CodeCR])) Then
If [CodeCR] = "775" Or [CodeCR] = "776" Then
Me!AnMois.Locked = True
Me!Code.Locked = True
Me!Rem.Locked = True
Me!Montant.Locked = True
Else
Me!AnMois.Locked = False
Me!Code.Locked = False
Me!Rem.Locked = False
Me!Montant.Locked = False
End If
End If
End Sub
Bonjour,
Dans un sous-formulaire (Access 2003) en affichage mode continu, je
souhaite
bloquer certains champs lorsqu'une condition est réunie. Alors que cela
fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
aussi
en mode continu.
J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée par
cet
objet".
Où est l'erreur ?
Private Sub Form_Current()
If (Not IsNull([CodeCR])) Then
If [CodeCR] = "775" Or [CodeCR] = "776" Then
Me!AnMois.Locked = True
Me!Code.Locked = True
Me!Rem.Locked = True
Me!Montant.Locked = True
Else
Me!AnMois.Locked = False
Me!Code.Locked = False
Me!Rem.Locked = False
Me!Montant.Locked = False
End If
End If
End Sub
Bonjour,
Dans un sous-formulaire (Access 2003) en affichage mode continu, je
souhaite
bloquer certains champs lorsqu'une condition est réunie. Alors que cela
fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
aussi
en mode continu.
J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée par
cet
objet".
Où est l'erreur ?
Private Sub Form_Current()
If (Not IsNull([CodeCR])) Then
If [CodeCR] = "775" Or [CodeCR] = "776" Then
Me!AnMois.Locked = True
Me!Code.Locked = True
Me!Rem.Locked = True
Me!Montant.Locked = True
Else
Me!AnMois.Locked = False
Me!Code.Locked = False
Me!Rem.Locked = False
Me!Montant.Locked = False
End If
End If
End Sub
Bonjour
Si tes champs sont dans le sous formulaire remplace
Me!AnMois.Locked = True
par
Me![nom du sous form.form!AnMois.Locked = True
etc
@plus
Michel
"Vincent BD" a écrit dans le message
de news:
> Bonjour,
> Dans un sous-formulaire (Access 2003) en affichage mode continu, je
> souhaite
> bloquer certains champs lorsqu'une condition est réunie. Alors que cela
> fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
> aussi
> en mode continu.
> J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée par
> cet
> objet".
> Où est l'erreur ?
>
> Private Sub Form_Current()
> If (Not IsNull([CodeCR])) Then
> If [CodeCR] = "775" Or [CodeCR] = "776" Then
> Me!AnMois.Locked = True
> Me!Code.Locked = True
> Me!Rem.Locked = True
> Me!Montant.Locked = True
> Else
> Me!AnMois.Locked = False
> Me!Code.Locked = False
> Me!Rem.Locked = False
> Me!Montant.Locked = False
> End If
> End If
> End Sub
Bonjour
Si tes champs sont dans le sous formulaire remplace
Me!AnMois.Locked = True
par
Me![nom du sous form.form!AnMois.Locked = True
etc
@plus
Michel
"Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le message
de news:DAB027A4-179D-4554-964B-5BB257000C9A@microsoft.com...
> Bonjour,
> Dans un sous-formulaire (Access 2003) en affichage mode continu, je
> souhaite
> bloquer certains champs lorsqu'une condition est réunie. Alors que cela
> fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
> aussi
> en mode continu.
> J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée par
> cet
> objet".
> Où est l'erreur ?
>
> Private Sub Form_Current()
> If (Not IsNull([CodeCR])) Then
> If [CodeCR] = "775" Or [CodeCR] = "776" Then
> Me!AnMois.Locked = True
> Me!Code.Locked = True
> Me!Rem.Locked = True
> Me!Montant.Locked = True
> Else
> Me!AnMois.Locked = False
> Me!Code.Locked = False
> Me!Rem.Locked = False
> Me!Montant.Locked = False
> End If
> End If
> End Sub
Bonjour
Si tes champs sont dans le sous formulaire remplace
Me!AnMois.Locked = True
par
Me![nom du sous form.form!AnMois.Locked = True
etc
@plus
Michel
"Vincent BD" a écrit dans le message
de news:
> Bonjour,
> Dans un sous-formulaire (Access 2003) en affichage mode continu, je
> souhaite
> bloquer certains champs lorsqu'une condition est réunie. Alors que cela
> fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
> aussi
> en mode continu.
> J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée par
> cet
> objet".
> Où est l'erreur ?
>
> Private Sub Form_Current()
> If (Not IsNull([CodeCR])) Then
> If [CodeCR] = "775" Or [CodeCR] = "776" Then
> Me!AnMois.Locked = True
> Me!Code.Locked = True
> Me!Rem.Locked = True
> Me!Montant.Locked = True
> Else
> Me!AnMois.Locked = False
> Me!Code.Locked = False
> Me!Rem.Locked = False
> Me!Montant.Locked = False
> End If
> End If
> End Sub
Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
[Frais02]"
Quid ?
"michel chambrillon" a écrit :Bonjour
Si tes champs sont dans le sous formulaire remplace
Me!AnMois.Locked = True
par
Me![nom du sous form.form!AnMois.Locked = True
etc
@plus
Michel
"Vincent BD" a écrit dans le
message
de news:
> Bonjour,
> Dans un sous-formulaire (Access 2003) en affichage mode continu, je
> souhaite
> bloquer certains champs lorsqu'une condition est réunie. Alors que cela
> fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
> aussi
> en mode continu.
> J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
> par
> cet
> objet".
> Où est l'erreur ?
>
> Private Sub Form_Current()
> If (Not IsNull([CodeCR])) Then
> If [CodeCR] = "775" Or [CodeCR] = "776" Then
> Me!AnMois.Locked = True
> Me!Code.Locked = True
> Me!Rem.Locked = True
> Me!Montant.Locked = True
> Else
> Me!AnMois.Locked = False
> Me!Code.Locked = False
> Me!Rem.Locked = False
> Me!Montant.Locked = False
> End If
> End If
> End Sub
Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
[Frais02]"
Quid ?
"michel chambrillon" a écrit :
Bonjour
Si tes champs sont dans le sous formulaire remplace
Me!AnMois.Locked = True
par
Me![nom du sous form.form!AnMois.Locked = True
etc
@plus
Michel
"Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le
message
de news:DAB027A4-179D-4554-964B-5BB257000C9A@microsoft.com...
> Bonjour,
> Dans un sous-formulaire (Access 2003) en affichage mode continu, je
> souhaite
> bloquer certains champs lorsqu'une condition est réunie. Alors que cela
> fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
> aussi
> en mode continu.
> J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
> par
> cet
> objet".
> Où est l'erreur ?
>
> Private Sub Form_Current()
> If (Not IsNull([CodeCR])) Then
> If [CodeCR] = "775" Or [CodeCR] = "776" Then
> Me!AnMois.Locked = True
> Me!Code.Locked = True
> Me!Rem.Locked = True
> Me!Montant.Locked = True
> Else
> Me!AnMois.Locked = False
> Me!Code.Locked = False
> Me!Rem.Locked = False
> Me!Montant.Locked = False
> End If
> End If
> End Sub
Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
[Frais02]"
Quid ?
"michel chambrillon" a écrit :Bonjour
Si tes champs sont dans le sous formulaire remplace
Me!AnMois.Locked = True
par
Me![nom du sous form.form!AnMois.Locked = True
etc
@plus
Michel
"Vincent BD" a écrit dans le
message
de news:
> Bonjour,
> Dans un sous-formulaire (Access 2003) en affichage mode continu, je
> souhaite
> bloquer certains champs lorsqu'une condition est réunie. Alors que cela
> fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
> aussi
> en mode continu.
> J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
> par
> cet
> objet".
> Où est l'erreur ?
>
> Private Sub Form_Current()
> If (Not IsNull([CodeCR])) Then
> If [CodeCR] = "775" Or [CodeCR] = "776" Then
> Me!AnMois.Locked = True
> Me!Code.Locked = True
> Me!Rem.Locked = True
> Me!Montant.Locked = True
> Else
> Me!AnMois.Locked = False
> Me!Code.Locked = False
> Me!Rem.Locked = False
> Me!Montant.Locked = False
> End If
> End If
> End Sub
Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce sous
form ou form
@plus
Michel
"Vincent BD" a écrit dans le message
de news:
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" a écrit dans le
>> message
>> de news:
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce sous
form ou form
@plus
Michel
"Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le message
de news:6BD65507-80B6-40DC-9B67-16881BB27D6B@microsoft.com...
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le
>> message
>> de news:DAB027A4-179D-4554-964B-5BB257000C9A@microsoft.com...
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce sous
form ou form
@plus
Michel
"Vincent BD" a écrit dans le message
de news:
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" a écrit dans le
>> message
>> de news:
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire) lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Ok
Le formulaire principal est "Frais01", le sous-formulaire "Frais02".
Cela donne ceci :
Private Sub Form_Current()
If (Eval("[Forms]![Frais01]![Frais02].[Form]![CodeCR] Is Not Null")) Then
If (Forms!Frais01!Frais02.Form!CodeCR = "776" Or
Forms!Frais01!Frais02.Form!CodeCR = "775") Then
Me![Frais02].Form!AnMois.Locked = True
Me![Frais02].Form!Code.Locked = True
Me![Frais02].Form!Rem.Locked = True
Me![Frais02].Form!Montant.Locked = True
Else
Me![Frais02].Form!AnMois.Locked = False
Me![Frais02].Form!Code.Locked = False
Me![Frais02].Form!Rem.Locked = False
Me![Frais02].Form!Montant.Locked = False
End If
End If
End Sub
Avec la même erreur.
Le code doit-il être dans le formulaire ou le sous-formulaire ?
D'avance merci.
"michel chambrillon" a écrit :Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce
sous
form ou form
@plus
Michel
"Vincent BD" a écrit dans le
message
de news:
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" a écrit dans le
>> message
>> de news:
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que
>> > cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire)
>> > lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Ok
Le formulaire principal est "Frais01", le sous-formulaire "Frais02".
Cela donne ceci :
Private Sub Form_Current()
If (Eval("[Forms]![Frais01]![Frais02].[Form]![CodeCR] Is Not Null")) Then
If (Forms!Frais01!Frais02.Form!CodeCR = "776" Or
Forms!Frais01!Frais02.Form!CodeCR = "775") Then
Me![Frais02].Form!AnMois.Locked = True
Me![Frais02].Form!Code.Locked = True
Me![Frais02].Form!Rem.Locked = True
Me![Frais02].Form!Montant.Locked = True
Else
Me![Frais02].Form!AnMois.Locked = False
Me![Frais02].Form!Code.Locked = False
Me![Frais02].Form!Rem.Locked = False
Me![Frais02].Form!Montant.Locked = False
End If
End If
End Sub
Avec la même erreur.
Le code doit-il être dans le formulaire ou le sous-formulaire ?
D'avance merci.
"michel chambrillon" a écrit :
Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce
sous
form ou form
@plus
Michel
"Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le
message
de news:6BD65507-80B6-40DC-9B67-16881BB27D6B@microsoft.com...
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le
>> message
>> de news:DAB027A4-179D-4554-964B-5BB257000C9A@microsoft.com...
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que
>> > cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire)
>> > lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Ok
Le formulaire principal est "Frais01", le sous-formulaire "Frais02".
Cela donne ceci :
Private Sub Form_Current()
If (Eval("[Forms]![Frais01]![Frais02].[Form]![CodeCR] Is Not Null")) Then
If (Forms!Frais01!Frais02.Form!CodeCR = "776" Or
Forms!Frais01!Frais02.Form!CodeCR = "775") Then
Me![Frais02].Form!AnMois.Locked = True
Me![Frais02].Form!Code.Locked = True
Me![Frais02].Form!Rem.Locked = True
Me![Frais02].Form!Montant.Locked = True
Else
Me![Frais02].Form!AnMois.Locked = False
Me![Frais02].Form!Code.Locked = False
Me![Frais02].Form!Rem.Locked = False
Me![Frais02].Form!Montant.Locked = False
End If
End If
End Sub
Avec la même erreur.
Le code doit-il être dans le formulaire ou le sous-formulaire ?
D'avance merci.
"michel chambrillon" a écrit :Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce
sous
form ou form
@plus
Michel
"Vincent BD" a écrit dans le
message
de news:
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" a écrit dans le
>> message
>> de news:
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que
>> > cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire)
>> > lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Ok
Le formulaire principal est "Frais01", le sous-formulaire "Frais02".
Cela donne ceci :
Private Sub Form_Current()
If (Eval("[Forms]![Frais01]![Frais02].[Form]![CodeCR] Is Not Null")) Then
If (Forms!Frais01!Frais02.Form!CodeCR = "776" Or
Forms!Frais01!Frais02.Form!CodeCR = "775") Then
Me![Frais02].Form!AnMois.Locked = True
Me![Frais02].Form!Code.Locked = True
Me![Frais02].Form!Rem.Locked = True
Me![Frais02].Form!Montant.Locked = True
Else
Me![Frais02].Form!AnMois.Locked = False
Me![Frais02].Form!Code.Locked = False
Me![Frais02].Form!Rem.Locked = False
Me![Frais02].Form!Montant.Locked = False
End If
End If
End Sub
Avec la même erreur.
Le code doit-il être dans le formulaire ou le sous-formulaire ?
D'avance merci.
"michel chambrillon" a écrit :Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce
sous
form ou form
@plus
Michel
"Vincent BD" a écrit dans le
message
de news:
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" a écrit dans le
>> message
>> de news:
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que
>> > cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire)
>> > lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Ok
Le formulaire principal est "Frais01", le sous-formulaire "Frais02".
Cela donne ceci :
Private Sub Form_Current()
If (Eval("[Forms]![Frais01]![Frais02].[Form]![CodeCR] Is Not Null")) Then
If (Forms!Frais01!Frais02.Form!CodeCR = "776" Or
Forms!Frais01!Frais02.Form!CodeCR = "775") Then
Me![Frais02].Form!AnMois.Locked = True
Me![Frais02].Form!Code.Locked = True
Me![Frais02].Form!Rem.Locked = True
Me![Frais02].Form!Montant.Locked = True
Else
Me![Frais02].Form!AnMois.Locked = False
Me![Frais02].Form!Code.Locked = False
Me![Frais02].Form!Rem.Locked = False
Me![Frais02].Form!Montant.Locked = False
End If
End If
End Sub
Avec la même erreur.
Le code doit-il être dans le formulaire ou le sous-formulaire ?
D'avance merci.
"michel chambrillon" a écrit :
Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce
sous
form ou form
@plus
Michel
"Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le
message
de news:6BD65507-80B6-40DC-9B67-16881BB27D6B@microsoft.com...
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" <VincentBD@discussions.microsoft.com> a écrit dans le
>> message
>> de news:DAB027A4-179D-4554-964B-5BB257000C9A@microsoft.com...
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que
>> > cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire)
>> > lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>
Ok
Le formulaire principal est "Frais01", le sous-formulaire "Frais02".
Cela donne ceci :
Private Sub Form_Current()
If (Eval("[Forms]![Frais01]![Frais02].[Form]![CodeCR] Is Not Null")) Then
If (Forms!Frais01!Frais02.Form!CodeCR = "776" Or
Forms!Frais01!Frais02.Form!CodeCR = "775") Then
Me![Frais02].Form!AnMois.Locked = True
Me![Frais02].Form!Code.Locked = True
Me![Frais02].Form!Rem.Locked = True
Me![Frais02].Form!Montant.Locked = True
Else
Me![Frais02].Form!AnMois.Locked = False
Me![Frais02].Form!Code.Locked = False
Me![Frais02].Form!Rem.Locked = False
Me![Frais02].Form!Montant.Locked = False
End If
End If
End Sub
Avec la même erreur.
Le code doit-il être dans le formulaire ou le sous-formulaire ?
D'avance merci.
"michel chambrillon" a écrit :Desolé aussi car il manque un crochet fermant dans ma syntaxe
remplace par
Me![nom du sous form].form!AnMois.Locked = True
Mais je ne vois null part dans code de champ frais02
Precise la position de chacun des champ codecr anMois code Rem est ce
sous
form ou form
@plus
Michel
"Vincent BD" a écrit dans le
message
de news:
> Désolé Michel, j'ai un message d'erreur "Impossible de trouver le champ
> [Frais02]"
> Quid ?
>
> "michel chambrillon" a écrit :
>
>> Bonjour
>> Si tes champs sont dans le sous formulaire remplace
>> Me!AnMois.Locked = True
>> par
>> Me![nom du sous form.form!AnMois.Locked = True
>> etc
>> @plus
>> Michel
>>
>> "Vincent BD" a écrit dans le
>> message
>> de news:
>> > Bonjour,
>> > Dans un sous-formulaire (Access 2003) en affichage mode continu, je
>> > souhaite
>> > bloquer certains champs lorsqu'une condition est réunie. Alors que
>> > cela
>> > fonctionne très bien dans un autre formulaire (pas sous-formulaire)
>> > lui
>> > aussi
>> > en mode continu.
>> > J'ai un message d'erreur, code 438, "Propriété ou méthode non gérée
>> > par
>> > cet
>> > objet".
>> > Où est l'erreur ?
>> >
>> > Private Sub Form_Current()
>> > If (Not IsNull([CodeCR])) Then
>> > If [CodeCR] = "775" Or [CodeCR] = "776" Then
>> > Me!AnMois.Locked = True
>> > Me!Code.Locked = True
>> > Me!Rem.Locked = True
>> > Me!Montant.Locked = True
>> > Else
>> > Me!AnMois.Locked = False
>> > Me!Code.Locked = False
>> > Me!Rem.Locked = False
>> > Me!Montant.Locked = False
>> > End If
>> > End If
>> > End Sub
>>