Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Bibliotheque d'objets

Bibliotheque d'objets

19 réponses
Avatar
nenelle
Bonjour,

Je cherche quelle bibliotheque d'objets je dois ajouter=20
pour que je puisses utiliser la propri=E9t=E9 suivante :=20
MonControl.BackColor

Merci d'avance
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
nenelle
Private Sub Form_Load()

Dim Champs As Control
For Each Champs In Me.Controls
If Me.Status.Value >= 3 Then
Champs.BackColor = 0
End If
Next Champs

End Sub

Sachant que Status c'est un champs du formulaire, en
nombre.

-----Message d'origine-----
ah ???
bon...
et où as-tu mis ce code et surtout comment le lance tu ?

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"nenelle" a écrit dans le
message news:

41c001c37b93$605d92e0$
Ben non, c'est pas ca le probleme !
J'avais deja essaye sans les guillemets au debut, mais ca
marchait pas, c'est pour ca que j'en avais mis, mais ca
marche pas non plus.


.



Avatar
Jessy SEMPERE
Bon ben raymond a tout dit...
faut que je reparte en congé... ;-)))

Essais ce qui suit :
Private Sub Form_Load()
Dim Champs As Control
If Me.Status.Value >= 3 Then
For Each Champs In Me.Controls
If Champs.ControlType = acTextBox Or _
Champs.ControlType = acListBox Or _
Champs.ControlType = acComboBox Then
Champs.BackColor = 0
End If
Next Champs
End If
End Sub

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"nenelle" a écrit dans le message news:
098301c37b95$818e3530$
Private Sub Form_Load()

Dim Champs As Control
For Each Champs In Me.Controls
If Me.Status.Value >= 3 Then
Champs.BackColor = 0
End If
Next Champs

End Sub

Sachant que Status c'est un champs du formulaire, en
nombre.

-----Message d'origine-----
ah ???
bon...
et où as-tu mis ce code et surtout comment le lance tu ?

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"nenelle" a écrit dans le
message news:

41c001c37b93$605d92e0$
Ben non, c'est pas ca le probleme !
J'avais deja essaye sans les guillemets au debut, mais ca
marchait pas, c'est pour ca que j'en avais mis, mais ca
marche pas non plus.


.



Avatar
Jessy SEMPERE
Salut
Jessy tu vieillis. il va falloir prévoir ton remplacement rapidement.
rajoute un On Error Resume Next en début de sub.

le backcolor ne fonctionne pas pour les boutons, les cases à cocher ......
et provoque une erreur


Autant pour moi... ;-)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
nenelle
C'est pas ca le probleme, car je n'ai aucun bouton, ni cas
à cocher ! Je n'ai que des champs texte.
J'ai quand meme essaye, et le seul controle sur lequel ca
marche, c'est le premier de mon formulaire !


-----Message d'origine-----
Jessy tu vieillis. il va falloir prévoir ton remplacement
rapidement.

rajoute un On Error Resume Next en début de sub.

le backcolor ne fonctionne pas pour les boutons, les
cases à cocher ......

et provoque une erreur.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Jessy SEMPERE" a écrit dans
le message de

news:bk4hip$qbv$
ah ???
bon...
et où as-tu mis ce code et surtout comment le lance tu ?




.




Avatar
Raymond
Faut partir sur autre chose.

Status est un mot réservé ado. renomme-le pour voir.
essaie le on error resume next pour voir si tu as d'autres champs qui
passent en noir.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"nenelle" a écrit dans le message de
news:336501c37b97$b91a90f0$
C'est pas ca le probleme, car je n'ai aucun bouton, ni cas
à cocher ! Je n'ai que des champs texte.
J'ai quand meme essaye, et le seul controle sur lequel ca
marche, c'est le premier de mon formulaire !
Avatar
nenelle
Meme si j'enleve ma condition if (donc sans le status), ca
marche pas. J'ai toujours le meme message d'erreur.
Il bloque vraiment sur Champs.BackColor = 0

-----Message d'origine-----
Faut partir sur autre chose.

Status est un mot réservé ado. renomme-le pour voir.
essaie le on error resume next pour voir si tu as
d'autres champs qui

passent en noir.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"nenelle" a écrit dans le
message de

news:336501c37b97$b91a90f0$
C'est pas ca le probleme, car je n'ai aucun bouton, ni cas
à cocher ! Je n'ai que des champs texte.
J'ai quand meme essaye, et le seul controle sur lequel ca
marche, c'est le premier de mon formulaire !



.



Avatar
Raymond
Bonsoir.

ce serait possible d'avoir ton formulaire avec sa table et/ou sa requête
avec 1 ou 2 enregistrements significatifs, par mail ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"nenelle" a écrit dans le message de
news:428001c37b9a$c3115960$
Meme si j'enleve ma condition if (donc sans le status), ca
marche pas. J'ai toujours le meme message d'erreur.
Il bloque vraiment sur Champs.BackColor = 0
Avatar
nenelle
C'est fait.
Mais il faut ouvrir la table en mode création car il
manque beaucoup trop d'éléments.


-----Message d'origine-----
Bonsoir.

ce serait possible d'avoir ton formulaire avec sa table
et/ou sa requête

avec 1 ou 2 enregistrements significatifs, par mail ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"nenelle" a écrit dans le
message de

news:428001c37b9a$c3115960$
Meme si j'enleve ma condition if (donc sans le status), ca
marche pas. J'ai toujours le meme message d'erreur.
Il bloque vraiment sur Champs.BackColor = 0



.



Avatar
Raymond
Bonjour.

Tu n'avais pas dit que tes champs sont en style de fond transparent et que
tu avais un champ farbe-1 ( ne jamais utiliser un -)qui fait la dimension de
la section détail (je pense qi'il est là pour la mise en forme
conditionnelle ? A voir).

J'ai testé ta fonction en rajoutant on error resume next et ça fonctionne
très bien. J'ai supprimé tout ce qui ne fonctionnait pas par manque de
données et le fond des contrôles est bien passé à la couleur voulue. Quand
tu dis que tu n'as que des champs texte, tu as des champs ligne tel linie14
qui bloquent tout le système.

Il suffit de mettre On Error resume Next pour solutionner tout ton problème.
Le fond des contrôles n'est visible que lorsqu'ils ont le focus car le fond
est transparent.

(réponse donnée par mail en réponse à la réception de la base)

PS. Vérifier les références car chez moi c'est ado qui était coché et tu
utilises dao.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"nenelle" a écrit dans le message de
news:3dc501c37c23$c1ad3740$
C'est fait.
Mais il faut ouvrir la table en mode création car il
manque beaucoup trop d'éléments.
1 2