Variable de type date

**Chris 81** · 14/04/2009, 09h57

Bonjour a tous les Developezcomiens,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

**Chris 81** · 14/04/2009, 10h00

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

La variable ActualDate et non ShowroomOfferDate est de type Date...

**Jean-Philippe André** · 14/04/2009, 10h11

Bonjour,
ton format de date n'est pas le bon,
il faut utiliser #MM/DD/YYYY#

**Chris 81** · 14/04/2009, 10h43

J'ai modifie le format date (est-ce le format systeme?)...
Mais j'ai toujours le meme soucis...

**Jean-Philippe André** · 14/04/2009, 11h02

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CountAddress = Nz(DCount("Address", "GetPictureDisplayOfferedToCustomer", "ShowroomOfferDate <= #" & Format(ActualDate, "DD/MM/YYYY") & "#"),0)

**Chris 81** · 15/04/2009, 10h43

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.

**Chris 81** · 15/04/2009, 11h30

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...

**Tonioyo** · 15/04/2009, 11h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
? DCount("Address", "GetPictureDisplayOfferedToCustomer", "ShowroomOfferDate <= #" & Format(ActualDate, "DD/MM/YYYY") & "#")

**Chris 81** · 15/04/2009, 11h37

J'ai refait un nouveau test avec la fonction Dcount mais en supprimant les criteres de selection...
Toujours la meme erreur...

**Chris 81** · 15/04/2009, 11h55

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?

**Tonioyo** · 15/04/2009, 15h40

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?

**Chris 81** · 16/04/2009, 10h35

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 sql :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Tonioyo** · 16/04/2009, 11h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM GetPictureShowroomOfferedTo;

et prendre le champ PictureAddress au lieu de Adress (puisque le As n'est plus là)

**Tonioyo** · 16/04/2009, 11h12

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

**Tonioyo** · 16/04/2009, 11h18

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Chris 81** · 19/04/2009, 10h03

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 ...

pour votre support ...

Variable de type date [AC-2007]

VBA Access

Discussions similaires

Partager

Partager