Discussion :

[T'chab]

bonjour

j'ai un peu de mal a coder sur visual basic et la syntaxe m'est un peu inconnu
voila mon problème. je souhaite créer une fonction qui fasse la difference une date présent dans un formulaire et la date d'aujourd'hui!!!!
c'est surement un jeu d'enfant pour vous!!!!!!
comment ecrire cela sous visual basic


ps: je travaille en access 97

[Maxence HUBICHE]

ben... disons que la fonction existe déjà dans Access, sans avoir à la coder.

DateDiff !
(ou DiffDate en suivant que tu es en français ou en US)

[T'chab]

oui et je la place ou?
excuse moi mais ce matin, "j'ai rien dans le sac"



merci

[Tofalu]

Dans la source de ton controle par exemple

[Maxence HUBICHE]

oui et je la place ou?

ben ... là où t'en as besoin !
Comment veux-tu que je te réponde à une question pareille ?
Tu ne dis pas ce que tu veux faire, pourquoi, comment, etc..

[T'chab]

ok
je dispose d'un formulaire qui represente des fiches véhicules
pour chaque véhicule, il y a une date de controle technique

a l'ouverture de l'application, un msg box doit apparaitre pour prevenir l'utilisateur de la date de controle qui arrive à echance.
en fait il faut que je passe par une condition "si"

si diff_date_écheance<=7 then
msgbox:"attantion: le véhicule "0000 gg 75 doit passer au controle avant le "00/00/2006"
fin si

[Maxence HUBICHE]

bouèf !

Si jamais tu as plusieurs véhicules simultanément en retard ?
Tu fais autant de msgbox ?
Franchement ...


Tu devrais plutôt faire une requête qui liste ces véhicules (avec un critère tout simple, c'est facile)
Faire un état basé sur cette requête
Dans ton formulaire d'accueil, une simple fonction CompteDom qui te dis combien de rappels il y a, et un petit bouton à côté pour ouvrir l'état.

C'est plsu simple non ?

[T'chab]

ok j'ai essayé ta tchnique voici mon code en sql

Code :

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

1
2
3
4
5
6
7
8
9
 
SELECT [CATALOGUE VEHICULE].Id_véhicule, 
[CATALOGUE VEHICULE].Immatriculation,
[CATALOGUE VEHICULE].Parc, [CATALOGUE VEHICULE].[Contrôle technique  (mines)], 
Date() AS [Date du jour],
[Contrôle technique  (mines)]-[date du jour] AS [Jours restants]
FROM [CATALOGUE VEHICULE]
WHERE (( [Jours restants]<8));

pour le calcul du nombre de jour restant pas de souci, mais il ne prend pas en compte mon critère!!!!!!!
PQ?

[Maxence HUBICHE]

et comme ça ?

Code :

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

1
2
3
4
5
6
7
SELECT [CATALOGUE VEHICULE].Id_véhicule, 
[CATALOGUE VEHICULE].Immatriculation,
[CATALOGUE VEHICULE].Parc, [CATALOGUE VEHICULE].[Contrôle technique  (mines)], 
Date() AS [Date du jour],
[Contrôle technique  (mines)]-Date() AS [Jours restants]
FROM [CATALOGUE VEHICULE]
WHERE ([Contrôle technique  (mines)]-Date())<8;

Tu t'es pas servi de l'éditeur (la grille) pour faire cette requête, n'est-ce pas ?

[T'chab]

oui c'est à peu près ca mais t'inkiete pas, je vais m'y faire à cette logique SQL,
donc la requete marche bien à présent, j'ai donc créer une zone de texte dans mon formulaire.
en fait, il faut que je fasse executer la requete dans ma fonction, pour qu'elle soit à jour!!! et oui!!
donc j'aurai un peu de code à faire logiquement

Code :

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

1
2
3
4
5
 
function date_echeance
excecute requete "controle vehicule"
countdom 
end function

es tu d'accord avec moi?

[Tofalu]

Pour le comptedom, tu n'as pas besoin d'éxecuter la requête. N'oublie pas que la majorité des infos se trouvent dans l'aide

[T'chab]

Merci a a tous

j'ai trouvé la fonction...
je la place dans la source controle de ma zone texte
voici ma syntaxe:

Code :

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

1
2
3
 
 
=CpteDom("*";[id_véhicule];[CONTROLE TECHNIQUES])

hors je repasse en mode formulaire, ma zone de texte m'affiche #nom?

quelle est l'erreur?

[Tofalu]

Les trois paramètres sont de type texte.

A priori je dirai que Controle Technique est la requete.

ça sera donc

=CpteDom("*";"[CONTROLE TECHNIQUES]")

[T'chab]

Merci aux boss d'access!!!!

ca fontionne très bien