Variable de type date

Version imprimable

14/04/2009, 09h57
Chris 81

Variable de type date
Bonjour a tous les Developezcomiens,

Voila deux jours que j'essaie de comprendre pourquoi Access m'envoie un message

Citation:

Microsoft Office Access a rencontré un problème et doit être fermé. Nous vous prions de nous excuser pour le désagrément encouru.

sur le code VBA suivant:
Code:

1 2 CountAddress = DCount("Address", "GetPictureDisplayOfferedToCustomer", "ShowroomOfferDate <= #" & Format(ActualDate, "DD/MM/YYYY") & "#")
La variable ShowroomOfferDate est de type Date.
La query fonctionne en directe ...

Y aurait-il quelqu'un qui puisse m'aiguiller ...
J'en perds mon Access ...
14/04/2009, 10h00
Chris 81

Toutes mes excuses pour la non relecture de mon message avant l'envoi...

La variable ActualDate et non ShowroomOfferDate est de type Date...
14/04/2009, 10h11
Jean-Philippe André

Bonjour,
ton format de date n'est pas le bon,
il faut utiliser #MM/DD/YYYY# :)
14/04/2009, 10h43
Chris 81

J'ai modifie le format date (est-ce le format systeme?)...
Mais j'ai toujours le meme soucis...
14/04/2009, 11h02
Jean-Philippe André

et en essayant de prévenir des bugs en mettant une fonction NZ() ?

Code:

CountAddress = Nz(DCount("Address", "GetPictureDisplayOfferedToCustomer", "ShowroomOfferDate <= #" & Format(ActualDate, "DD/MM/YYYY") & "#"),0)
15/04/2009, 10h43
Chris 81

Toutes mes excuses pour l'interruption de notre dialogue!
J'ai mis en place la fonction Nz et j'ai malheureusement toujours la meme erreur!
Par acquis de conscience j'ai relance la query en directe et elle fonctionne. Il semblerait donc que c'est la fonction Count qui poserait probleme...

Je suis sous Access 2007 mais je sauvegarde sous 2003 puisque certains utilisateurs sont encore sous 2003. Est-ce une source d'erreur possible?
Les donnees sont quant a elle sous SQL.
15/04/2009, 11h30
Chris 81

J'ai fait un test en remplacant le Dcount par un Dlookup histoire de voir si l'erreur provient de Dcount...
Toujours le meme message d'arret d'Access...

Je pense donc que l'erreur doit venir de l'appel de la query...
15/04/2009, 11h36
Tonioyo
Bonjour,

As-tu essayé d'exécuter la fonction DCount dans la fenêtre d'execution de VBE ?
Ca doit être une erreur sur l'un des paramètres ou sur la date, si tout est bon c'est peut-être la communication entre Access et l'extérieur (Base de donnée SQL). Je penche plus la dernière option car le message d'erreur indique une incapacité d'executer de la part d'access.

Voici ce qu'il faut taper dans la fenêtre d'execution :
Code:

1 2 ? DCount("Address", "GetPictureDisplayOfferedToCustomer", "ShowroomOfferDate <= #" & Format(ActualDate, "DD/MM/YYYY") & "#")
15/04/2009, 11h37
Chris 81

J'ai refait un nouveau test avec la fonction Dcount mais en supprimant les criteres de selection...
Toujours la meme erreur... :(
15/04/2009, 11h55
Chris 81

J'ai active le gestionnaire des tables liees...
J'ai lance la fenetre d'execution avec le meme resultat d'arret d'access.:(

Cette fois-ci Access m'a passer un message "il semblerait..." que je n'ai pas eu le temps de lire avant l'ecran de demande du nom de sauvegarde ne reprenne la main...

Y a-t-il moyen de figer le message ou d'arreter l'exucution de la sauvegarde pour pouvoir lire le message?
15/04/2009, 15h40
Tonioyo

Non je crois pas le message de sauvegarde signifie que ca a planté méchemment donc a ce moment là c'est déjà trop tard le processus ACCESS.EXE est déjà par terre.

As-tu essayé le DCount dans la fenêtre d'execution avec des paramètres beaucoup plus simple puis intégrer petit a petit les paramètres que tu souhaites au final ? Si ca viens des paramètres ca plantera à celui qui te pose problème.

Sinon, je viens d'y penser, as tu essayé de décompiler ta base access?

entre temps

Notre ami Bill a remarque qu'Access s'arretait souvent et a propose un diagnostique... Puis a rectifie "certaines choses"...

Entre temps par acquis de conscience j'ai active le gestionnaire des tables liees... Reduit la query dans sa plus simple expression... (sans condition)...
Et toujours le meme soucis...

Ci-dessous la query en uestion qui fonctionne en directe...

Code:

1
2
3
4
5
6
7
8
9
 
SELECT GetPictureShowroomOfferedTo.ShowroomStatus, GetPictureShowroomOfferedTo.ShowroomCustomer, GetPictureShowroomOfferedTo.ShowroomOfferDate, GetPictureShowroomOfferedTo.PictureAddress AS Address, GetPictureShowroomOfferedTo.ShowroomStyleSystem, 
(Select count(ShowroomStyleOwn) 
From GetPictureShowroomOfferedTo AS LaTable_Alias2 
Where ShowroomStyleOwn < GetPictureShowroomOfferedTo.ShowroomStyleOwn)+1 AS Rank, GetPictureShowroomOfferedTo.ShowroomStyleOwn, GetPictureShowroomOfferedTo.ShowroomSelectionDate, GetPictureShowroomOfferedTo.ShowroomDepartment, GetPictureShowroomOfferedTo.ShowroomBuyer
FROM GetPictureShowroomOfferedTo
WHERE (((GetPictureShowroomOfferedTo.ShowroomStatus)="Offered") AND ((GetPictureShowroomOfferedTo.ShowroomCustomer)=[forms]![Welcome]![WhichCustomerShowroom]) 
AND ((GetPictureShowroomOfferedTo.ShowroomPictureRank)=1))
ORDER BY GetPictureShowroomOfferedTo.ShowroomStyleOwn;

16/04/2009, 11h11
Tonioyo

Dans la clause WHERE pour le champ ShowroomStyleOwn il n'y a pas la table mais c'est pas très grave parce que cette requête est une requête générée par access (ca se voit à certaines parenthèses inutiles).

Je serai d'avis à tester la commande avec une requête de ce style pour voir si le problème viens bien de la requête :

Code:

SELECT * FROM GetPictureShowroomOfferedTo;

et prendre le champ PictureAddress au lieu de Adress (puisque le As n'est plus là)
16/04/2009, 11h12
Tonioyo

Il y a bien une erreur dans la sous requête condition WHERE

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
SELECT 
	ShowroomStatus, 
	ShowroomCustomer,
	ShowroomOfferDate,
	PictureAddress AS Address,
	ShowroomStyleSystem, 
	(
		SELECT COUNT(ShowroomStyleOwn) 
		FROM GetPictureShowroomOfferedTo
		WHERE ShowroomStyleOwn < ShowroomStyleOwn
	) +1 AS Rank, 
	ShowroomStyleOwn, 
	ShowroomSelectionDate, 
	ShowroomDepartment, 
	ShowroomBuyer
		
FROM GetPictureShowroomOfferedTo

WHERE 
	    ShowroomStatus = "Offered" 
	AND ShowroomCustomer = Forms("Welcome").WhichCustomerShowroom]
	AND ShowroomPictureRank = 1

ORDER BY 
	ShowroomStyleOwn;

19/04/2009, 10h03
Chris 81

Apres une bonne nuit de sommeil j'ai revu toute ma logique de query...

Une fois de plus l'erreur se situait entre l'ecran et le siege ...

:merci: pour votre support ...