[AC-2007] Soucis pour dégriser un champ [Résolu]

[facedeharicot]

Bonjour à tous,

Je rencontre un soucis que je ne comprends absolument pas. Je m'explique:

Je souhaite que 2 zones de texte de l'un de mes formulaires soient grisés et non modifiables lorsqu'ils contiennent des informations.
Mais aussi qu'ils soient nons grisés et modifiables lorsqu'ils sont vides.

Mon soucis:
Les zones de texte sont bien modifiables lorsqu'elles sont vides, et non modifiables lorsqu'elles sont remplies.
Par contre, elles sont grisées quelque soit le cas (vide ou rempli).

Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form_Load()
    Me.Zone_géographique.SetFocus
 
    If Me.N°_de_série = Empty Then
        Me.N°_de_série.Locked = False
        Me.N°_de_série.BackColor = RGB(255, 255, 255)
    Else
        Me.N°_de_série.Locked = True
        Me.N°_de_série.BackColor = vbButtonFace
    End If
 
    If Me.N°_national = Empty Then
        Me.N°_national.Locked = False
        Me.N°_national.BackColor = RGB(255, 255, 255)
    Else
        Me.N°_national.Locked = True
        Me.N°_national.BackColor = vbButtonFace
    End If
End Sub

Si jamais quelqu'un à une idée

[koluche]

Envoyé par facedeharicot

Bonjour à tous,

Je souhaite que 2 zones de texte de l'un de mes formulaires soient grisés et non modifiables lorsqu'ils contiennent des informations.

Bonjour!
Je ne suis pas certain, mais pourquoi ne pas utiliser la propriété .enabled des textbox?

Bonne journée!

[facedeharicot]

Merci pour ta réponse. J'avais bien pensé à .enabled mais ça ne fonctionne pas mieux :/

Mes Textbox sont bien activées et non verrouillées

Pour le moment j'ai un semblant de solution:
- j'ouvre mon formulaire vierge (nouvel enregistrement) grâce à un bouton situé sur un autre formulaire et je fais les actions suivantes:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnOpenNewForm_Click()
    'ouverture du formulaire frmAutoGestion
    DoCmd.OpenForm "frmAutoGestion"
 
    Forms!frmAutoGestion![N° de série].Locked = False
    Forms!frmAutoGestion![N° de série].BackColor = RGB(255, 255, 255)
 
    Forms!frmAutoGestion![N° national].Locked = False
    Forms!frmAutoGestion![N° national].BackColor = RGB(255, 255, 255)
 
    'Ajout d'une ligne dans la table en cours 
    DoCmd.GoToRecord , , acNewRec 
End Sub

Là où ça se gâte c'est lorsque je veux éditer un enregistrement:
Mes cases sont bien grisées mais qu'elles soient pleines ou vides comme si ma condition ne fonctionnait pas... Peut-être que mes actions sont à mettre ailleurs que dans le Form_Load ??

[koluche]

J'ai la tete dans le ... paté, alors je galère un peu à comprendre ce que tu veux faire. Corrige moi si je me trompe:
A l'ouverture du formulaire sur un nouvel enregistrement, il y a deux Textbox qui doivent être grisées et non modifiables si elle contiennent des données.
Si c'est bien sa, alors:
-si tu connais le nom des textbox qui doivent etres grisées, tu fais simplement:

Code :

1
2
3
4
5
6
7
 
if textbox1 <> "" then
textbox1.enabled = false
end if
if textbox2 <> "" then
textbox1.enabled = false
end if

-Si tu ne connais pas leur nom, alors il faut faire une boucle sur toutes les textbox, et utiliser le code ci-dessus.

De plus, tu dis qu'elles "restent grisées", vérifie les propriétés backcolor des textbox!

ps: Si t'y arrive toujours pas, tente de leur faire passer une nuit en cellule de dégrisement... (cf titre!)

[facedeharicot]

Merci beaucoup koluche

Pour clarifier les choses:
J'utilise la méthode de recherche multicritère de Cafeïne donc lors d'un double clic sur une des lignes de résultat de ma listbox, j'accède à un formulaire "frmAutoGestion" contenant les informations (liées à un enregistrement d'une table) sur ce que je cherche.
C'est lors de cette action que 2 de mes textbox doivent être grisées si occupées et non grissées si libres...

J'ai par ailleurs rajouter sur mon formulaire de recherche un bouton "Nouvelle entrée" qui m'ouvre mon formulaire "frmAutoGestion" mais cette fois, celui-ci est vierge donc aucune textbox n'est grisée...

Avec ce que tu m'as donné dans ton dernier message, tout fonctionne très bien.

J'ai dû cependant ajouter quelques lignes sur le click de mon bouton "Nouvelle entrée":

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub btnOpenNewForm_Click()
    'ouverture du formulaire frmAutoGestion
    DoCmd.OpenForm "frmAutoGestion"
 
    Forms!frmAutoGestion![N° de série].Enabled = True
    Forms!frmAutoGestion![N° national].Enabled = True
 
    'Ajout d'une ligne dans la table en cours 
    DoCmd.GoToRecord , , acNewRec
End Sub

Voici le code contenu dans le Load de mon formulaire "frmAutoGestion" (ne pas faire atention au nommage de mes textbox

Code :

1
2
3
4
5
6
7
8
Private Sub Form_Load()
    If N°_de_série <> "" Then
        N°_de_série.Enabled = False
    End If
    If N°_national <> "" Then
        N°_national.Enabled = False
    End If
End Sub

Remplacer "= Empty" ou "= Null" par <> "" était effectivement LA solution

Merci encore pour l'aide, je reviendrai

[koluche]

De rien, bonne journée!
ps:n'oublie pas
A bientot.