Windows 7 - access 2007 et win 7, erreur d'affichage des champs calculés.

Asked By Alain Bourgeois on 18-Sep-10 11:41 AM
Bonjour,

J'ai un formulaire avec un champs calculé, c'est à dire dont la propriété
controlSource vaut:
=DCount("[Scéance prestée]";"ReqCountSéanceD").

Sous windows 7 il faut appuyer sur F9 pour forcer le calcul et voir la
valeur s'afficher correctement, sinon aucune valeur n'est affichée.
Sous windows xp et vista, pas de souci. Les versions antérieures d'access
sous win 7 / vista ne posent aucun problème non plus à ma connaissance.

Ce problème s'est produit avec access 2007 et windows vista et a été corrigé
dans un service pack de windows vista.
Etonnant que access n'aie pas été testé sous windows 7, à se demander si
c'est écrit par la même société.

Je présume qu'à par attendre un patch on ne peut rien faire?
On ne peut pas échanger access 2007 contre un access 2003?


Alain Bourgeois




James A. Fortune replied to Alain Bourgeois on 19-Sep-10 09:29 PM
i=E9t=E9
ss
e.
=E9 corrig=E9
nder si

Question translated from http://translate.google.com and modified:

I have a form with a calculated field with a ControlSource of:

DCount =3D ("[Meeting worked]"; "ReqCountMeetingD").

Under Windows 7, I must press F9 to force the calculation and see the
value display properly, otherwise no value is displayed.  Under the
Windows XP and Vista operating systems, no worries. Earlier versions
of Access under Win 7 / Vista have no problem either to my knowledge.

This problem occurred with Access 2007 and Windows Vista and has been
corrected in a service pack for Windows Vista.  Surprisingly Access
has not been tested on Windows 7, even though both were written by the
same company.

Is my assumption true that I must wait for a patch before anything can
be done?  Can I access Exchange 2007 with an access 2003 database?



Answer translated using http://translate.google.com:

Essayez une contourner. Utilisez le code suivant dans un module:

Public Function ReturnSQLResult(strSQL As String) As Variant
Dim MyDB As Database
Dim MyRS As Recordset

Set MyDB =3D CurrentDb
Set MyRS =3D MyDB.OpenRecordset(strSQL, dbOpenSnapshot)
If MyRS.RecordCount <> 0 Then
MyRS.MoveFirst
ReturnSQLResult =3D MyRS(0)
Else
ReturnSQLResult =3D Null
End If
MyRS.Close
Set MyRS =3D Nothing
Set MyDB =3D Nothing
End Function

Alors, pour la ControlSource:

=3DReturnSQLResult("SELECT [Sc=E9ance prest=E9e] FROM ReqCountS=E9anceD;")

Si cela ne fonctionne pas, essayez le SQL par lui-m=EAme dans une
requ=EAte.

Bonne Nuit,

James A. Fortune
MPAPoster@FortuneJames.com
James A. Fortune replied to James A. Fortune on 19-Sep-10 09:38 PM
LOL.  I see he meant "Can I replace Access 2007 with Access 2003?"

James A. Fortune
MPAPoster@FortuneJames.com
rumku replied to James A. Fortune on 20-Sep-10 06:52 AM
Thanks Google a billion.
Now God can send her orders in any language - except in vba.