OVH Cloud OVH Cloud

Calculatrice

4 réponses
Avatar
PatCatNat's
Bonjour,

Sur le site de Raymond, j'ai télécharger la BDD de la calculatrice.
Elle fonctionne super sous 2003, mais j'en aurais besoin pour une appli
access97.

Si Raymond a çà dans son grenier c super, et si quelqu'un à un plan c bien
aussi...

Merci de votre aide

Patrice

4 réponses

Avatar
Raymond [mvp]
Bonjour.

je n'ai plus 97 sur mon poste, alors ???
la modif à faire concerne les constantes énumérées que tu n'as pas sous 97.
remplace les valeurs énumées suivantes:
Private Enum Etat_Calcul
Etat_Null = 0
Etat_Chiffres = 1
Etat_Opérateurs = 2
Etat_Effacer = 3
End Enum
par leur valeur numérique dans ton code et tu supprimes toute la
déclaration.
chaque fois que tu rencontres Etat_Opérateurs tu mets 2 à la place, chaque
fois que tu rencontres Etat_Effacer tu mets 3 à la place, ......

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


"PatCatNat's" a écrit dans le message de news:
cje7hp$sum$
Bonjour,

Sur le site de Raymond, j'ai télécharger la BDD de la calculatrice.
Elle fonctionne super sous 2003, mais j'en aurais besoin pour une appli
access97.

Si Raymond a çà dans son grenier c super, et si quelqu'un à un plan c bien
aussi...

Merci de votre aide

Patrice




Avatar
PatCatNat's
Je me réponds car j'en ai trouvé une dans mon grenier (Origine ???) mais g
besoin d'aide,

Lors de la première ouverture du formulaire "calculatrice" le débogueur
s'ouvre et bloque sur Exit Function :

Private Function checkproperty(strPropName As String) As Variant
'****** Terry's Error Handler ******
On Error GoTo MyProc_Err
'****** ErrorHandler End ******

'Returns the database property value
Dim dbMdb As Database, prp As Property
Set dbMdb = CurrentDb

checkproperty = dbMdb.Properties(strPropName)
MyProc_Err:
Exit Function 'Ligne surlignée en jaune à la première ouverture!!!
End Function

Une fois stoppé le débogueur et fermé le formulaire, il se re-ouvre
normalement sans bogue !!!!!

Merci de votre aide.

Patrice


"PatCatNat's" a écrit dans le message de
news:cje7hp$sum$
Bonjour,

Sur le site de Raymond, j'ai télécharger la BDD de la calculatrice.
Elle fonctionne super sous 2003, mais j'en aurais besoin pour une appli
access97.

Si Raymond a çà dans son grenier c super, et si quelqu'un à un plan c bien
aussi...

Merci de votre aide

Patrice




Avatar
PatCatNat's
Je vais essayer et te tiens au courant...

Merci Raymond


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

je n'ai plus 97 sur mon poste, alors ???
la modif à faire concerne les constantes énumérées que tu n'as pas sous
97.

remplace les valeurs énumées suivantes:
Private Enum Etat_Calcul
Etat_Null = 0
Etat_Chiffres = 1
Etat_Opérateurs = 2
Etat_Effacer = 3
End Enum
par leur valeur numérique dans ton code et tu supprimes toute la
déclaration.
chaque fois que tu rencontres Etat_Opérateurs tu mets 2 à la place, chaque
fois que tu rencontres Etat_Effacer tu mets 3 à la place, ......

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


"PatCatNat's" a écrit dans le message de news:
cje7hp$sum$
Bonjour,

Sur le site de Raymond, j'ai télécharger la BDD de la calculatrice.
Elle fonctionne super sous 2003, mais j'en aurais besoin pour une appli
access97.

Si Raymond a çà dans son grenier c super, et si quelqu'un à un plan c
bien


aussi...

Merci de votre aide

Patrice








Avatar
PatCatNat's
Celà fonctionne 1 P câble Raymond.

Merci encore

Patrice


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

je n'ai plus 97 sur mon poste, alors ???
la modif à faire concerne les constantes énumérées que tu n'as pas sous
97.

remplace les valeurs énumées suivantes:
Private Enum Etat_Calcul
Etat_Null = 0
Etat_Chiffres = 1
Etat_Opérateurs = 2
Etat_Effacer = 3
End Enum
par leur valeur numérique dans ton code et tu supprimes toute la
déclaration.
chaque fois que tu rencontres Etat_Opérateurs tu mets 2 à la place, chaque
fois que tu rencontres Etat_Effacer tu mets 3 à la place, ......

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


"PatCatNat's" a écrit dans le message de news:
cje7hp$sum$
Bonjour,

Sur le site de Raymond, j'ai télécharger la BDD de la calculatrice.
Elle fonctionne super sous 2003, mais j'en aurais besoin pour une appli
access97.

Si Raymond a çà dans son grenier c super, et si quelqu'un à un plan c
bien


aussi...

Merci de votre aide

Patrice