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 J'ai trouvé ... la moitié d'un Champion !

J'ai trouvé ... la moitié d'un Champion !

3 réponses
Avatar
B
... il s'agit de :
Benoit Compoint !

Merci.

Voir :
- Question pour un kador !
- Références ou pas ! Cherche toujours l'As des As !
- ACCESS 2002 et Win XP vs Win 2000
- Fichiers des references:RIEN NE VA PLUS
- Etc ...

@ +
b(°!°)rbbu
Signaler un problème avec ce contenu

3 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
Avatar
Benoit Compoint [MS]
Bonsoir,

Merci pour ce titre de "demi-champion" que vous me décernez parce que j'ai
résolu la moitié de vos problèmes :-)

A propos de la seconde moitié, dans un de vos précédents posts (), j'ai
noté la phrase suivante :
"J'ai "registré" msado25.tlb après avoir constaté dans le registre quelques
"invraisemblances".

Je me demande si vous avez simplement coché la référence MSADO25.TLB ou si
vous avez aussi (ré)inscrit msado25.tlb cette bibliothèque dans la base de
registre de Windows 2000 en exécutant le programme regtlib.exe.
J'ai déjà été confronté à un message d'erreur similaire dans une combobox.
J'ai résolu ce problème en remplaçant une réference vers MSADO15.DLL par une
référence vers MSADO25.TLB.
L'application échouait (avant mon intervention) sur Windows 2000 (MDAC 2.5)
mais fonctionnait correctement sur la station Windows XP où elle avait été
créée (MDAC 2.7).

A part la vérification des références cochées dans le projet VBA, vous
pouvez aussi essayer d'utiliser le code VBA suivant.
J'ai déjà vu un cas similaire où l'usage de la propriété Text a réglé le
problème.
Je suppose que le contrôle Notation est votre contrôle ComboBox :
'------------------------------------
If Me!Copain.Value = "Toto" Then
Me!Notation.Text= 5
Else
Me!Notation.Text= 18
End if
'------------------------------------

à la place de votre code VBA :

'------------------------------------
If Me!Copain.Value = "Toto" Then
Me!Notation.Value = 5
Else
Me!Notation.Value = 18
End if
'------------------------------------

A part cela, vous pouvez essayer de remplacer la syntaxe suivante
Me!Notation.Value=5
Me!Notation.Value = 18

par une syntaxe plus explicite :
Forms!MyMainForm!MySubFormCtrl.Form!Notation.Value=5
Forms!MyMainForm!MySubFormCtrl.Form!Notation.Value
En supposant que le contrôle Notation est placé sur un contrôle
sous-formulaire nommé MySubFormCtrl dans un formulaire principal nommé
MyMainForm.
J'ai déjà vu un cas similaire où l'usage d'une syntaxe explicite a réglé le
problème.

Benoît Compoint




"" wrote in message
news:
... il s'agit de :
Benoit Compoint !

Merci.

Voir :
- Question pour un kador !
- Références ou pas ! Cherche toujours l'As des As !
- ACCESS 2002 et Win XP vs Win 2000
- Fichiers des references:RIEN NE VA PLUS
- Etc ...

@ +
b(°!°)rbbu








Avatar
B
Bonsoir,
Concernant la réf à ADO, elle était inutile et je l'ai virée !
C'était donc pas ça le problème.
Remplacer .Value par .Text, je veux bien et j'essayerai à la rentrée chez le
"patron".
Mais ce que je n'arrive pas à comprendre, personne ne semble pouvoir
l'expliquer, c'est pourquoi entre 2 configs l'une marche et l'autre plante !
! !
Y'a qq chose qui m'échappe ; genre un peu surréaliste ...
Quant au fait de remplacer Me!Etc... par Forms!NomduForm!Etc... j'ai vu de
partout qu'on préconisai l'inverse, alors faudrait savoir !
Surréalisme, je vous dit !
Enfin, on verra bien à la rentrée.
Bonne fêtes et merci à tous.

@ +
b(°!°)rbbu

"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonsoir à tous,

Dans un des précédents posts de , j'ai noté :
"J'ai "registré" msado25.tlb après avoir constaté dans le registre
quelques

"invraisemblances".

Je me demande si vous avez simplement coché la référence MSADO25.TLB ou si
vous avez aussi (ré)inscrit msado25.tlb cette bibliothèque dans la base de
registre de Windows 2000 en exécutant le programme regtlib.exe.
J'ai déjà été confronté à un message d'erreur similaire dans une combobox.
J'ai résolu ce problème en remplaçant une réference vers MSADO15.DLL par
une

référence vers MSADO25.TLB.
L'application échouait (avant mon intervention) sur Windows 2000 (MDAC
2.5)

mais fonctionnait correctement sur la station Windows XP où elle avait été
créée (MDAC 2.7).

A part la vérification des références cochées dans le projet VBA, vous
pouvez aussi essayer d'utiliser le code VBA suivant :

If Me!Copain.Value = "Toto" Then
Me!Notation.Text= 5
Else
Me!Notation.Text= 18
End if

à la place de votre code VBA :

If Me!Copain.Value = "Toto" Then
Me!Notation.Value = 5
Else
Me!Notation.Value = 18
End if

Je suppose que le contrôle Notation est votre contrôle ComboBox, mais je
ne

crois pas que vous l'ayez précisé.
J'ai déjà vu un cas similaire où cela a réglé le problème.

A part cela, vous pouvez essayer de remplacer la syntaxe suivante
Me!Notation.Value=5
Me!Notation.Value = 18

par une syntaxe plus explicite :
Forms!MyMainForm!MySubFormCtrl.Form!Notation.Value=5
Forms!MyMainForm!MySubFormCtrl.Form!Notation.Value
En supposant que le contrôle Notation est placé sur un contrôle
sous-formulaire nommé MySubFormCtrl dans un formulaire principal nommé
MyMainForm.

Benoît Compoint

"" wrote in message
news:
Bonsoir à vous tous,

Vous fâchez pas !
J'ai pas voulu vous offenser en parlant de Mr Compoint ...
De toute manière, il a pas encore trouvé la réponse à mon autre bug,
tout


ingénieur Microsoft qu'il est !
... Heu ... vous avez pas une idée par hasard ?

@ +
b(°!°)rbbu

"Pierre CFI [mvp]" a écrit dans le message de
news:
moi, ma pauvre mére n'a toujours rien compris a ce qu'elle avait crée,
parfois je me reconnais méme pas :o)))


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message
de



news:
Bonsoir Pierre.

Benoit Compoint est ingénieur Microsoft !

Cela aide ;-)))


pas obligatoirement, moi je suis bien ingénieur-chef de ma soupe
quand




je
l'ai mangée et quelquefois il est difficile de reconnaître les
ingrédients.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de
news:%
Salut,

""

PS : pour le "binding" c'est benoit compain qu'a trouvé ...



Benoit Compoint est ingénieur Microsoft !

Cela aide ;-)))
















--
@ +
b(°!°)rbbu
"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonsoir,

Merci pour ce titre de "demi-champion" que vous me décernez parce que j'ai
résolu la moitié de vos problèmes :-)

A propos de la seconde moitié, dans un de vos précédents posts (),
j'ai

noté la phrase suivante :
"J'ai "registré" msado25.tlb après avoir constaté dans le registre
quelques

"invraisemblances".

Je me demande si vous avez simplement coché la référence MSADO25.TLB ou si
vous avez aussi (ré)inscrit msado25.tlb cette bibliothèque dans la base de
registre de Windows 2000 en exécutant le programme regtlib.exe.
J'ai déjà été confronté à un message d'erreur similaire dans une combobox.
J'ai résolu ce problème en remplaçant une réference vers MSADO15.DLL par
une

référence vers MSADO25.TLB.
L'application échouait (avant mon intervention) sur Windows 2000 (MDAC
2.5)

mais fonctionnait correctement sur la station Windows XP où elle avait été
créée (MDAC 2.7).

A part la vérification des références cochées dans le projet VBA, vous
pouvez aussi essayer d'utiliser le code VBA suivant.
J'ai déjà vu un cas similaire où l'usage de la propriété Text a réglé le
problème.
Je suppose que le contrôle Notation est votre contrôle ComboBox :
'------------------------------------
If Me!Copain.Value = "Toto" Then
Me!Notation.Text= 5
Else
Me!Notation.Text= 18
End if
'------------------------------------

à la place de votre code VBA :

'------------------------------------
If Me!Copain.Value = "Toto" Then
Me!Notation.Value = 5
Else
Me!Notation.Value = 18
End if
'------------------------------------

A part cela, vous pouvez essayer de remplacer la syntaxe suivante
Me!Notation.Value=5
Me!Notation.Value = 18

par une syntaxe plus explicite :
Forms!MyMainForm!MySubFormCtrl.Form!Notation.Value=5
Forms!MyMainForm!MySubFormCtrl.Form!Notation.Value
En supposant que le contrôle Notation est placé sur un contrôle
sous-formulaire nommé MySubFormCtrl dans un formulaire principal nommé
MyMainForm.
J'ai déjà vu un cas similaire où l'usage d'une syntaxe explicite a réglé
le

problème.

Benoît Compoint




"" wrote in message
news:
... il s'agit de :
Benoit Compoint !

Merci.

Voir :
- Question pour un kador !
- Références ou pas ! Cherche toujours l'As des As !
- ACCESS 2002 et Win XP vs Win 2000
- Fichiers des references:RIEN NE VA PLUS
- Etc ...

@ +
b(°!°)rbbu
















Avatar
Anor
Bonjour,

:
| Bonsoir,
| Concernant la réf à ADO, elle était inutile et je l'ai virée !
| C'était donc pas ça le problème.

blablabla

Pourquoi postez-vous 3 fois la même chose à chaque réponse,
sur 3 fils différents ?
Les posts contiennent-ils des messages subliminaux ?

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------