Discussion :

[jclm230759]

Bonsoir à tous
Je débute dans access et je bloque sur un petit problème mais je suis certain que les experts que vous êtes allez pouvoir m'aider.

Je gère des véhicules (7 places) pour effectuer des trajets, plusieurs fois par jour, entre mon centre et la gare.

pour cela j'ai créé un formulaire ou je rentre

le nom de la personne
la date du trajet
le n° du trajet (qui correspond à l'heure de départ)

Je souhaiterais quand j'enregistre le n° du trajet il me bloque après 6 enregistrements ou me donne un message comme de quoi c'est complet car je ne peux pas avoir plus de 6 passager dans le véhicule

Merci d'avance pour votre réponse

[steps5ive]

Bonjour,

Lorsque tu enregistres, il faudrait que tu vérifies combien d'enregistrements correspondent au no de trajet avec la fonction DCount et valider la valeur retournée.

Quelque chose comme

Code :

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

1
2
3
4
5
6
 
if DCount("NoTrajet", "table", "NoTrajet =" & le no de trajet à compter) > 6 then
    msgbox "Complet"
else
    ' code d'enregistrement
end if

Bonne journée!

[jclm230759]

Merci Steps5ive,

mais il faut que j'associe avec la date

ex: pour la date 9-03-2012 je ne peux avoir que 6 enregistrements du trajet n°1

Merci et bonne soirée

[steps5ive]

Si je comprends bien, ton numéro de trajet est une date?

Tu n'as qu'à modifier la condition:

Code :

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

1
2
3
4
5
6
 
if DCount("NoTrajet", "table", "Date Trajet =" & la date de trajet à compter) > 6 then
    msgbox "Complet"
else
    ' code d'enregistrement
end if

Et si tu as une date ET un no de trajet:

Code :

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

1
2
3
4
5
6
 
if DCount("NoTrajet", "table", "Date Trajet =" & la date de trajet à compter & " and NoTrajet=" & No trajet à compter) > 6 then
    msgbox "Complet"
else
    ' code d'enregistrement
end if

[jclm230759]

Merci

Mais cela ne fonctionne pas
dans les propriétés du champs sur l'évènemeent "entré" ou "sortie" je crèe un code comme tu l'as indiqué mais rien ne se passe quand j'enregistre mon 7 éme trajet.

Petite précision max 6 trajets les mêmes pour la même date
ex:
09-03-12 > 1 trajetn°1
09-03-12 > 2 trajetn°1
09-03-12 > 3 trajetn°1

et comme cela jusque 6 trajets

au 7ème message d'erreur

Merci et bonne journée ensoleillée

[steps5ive]

Qu'est-ce que tu veux dire par ça ne fonctionne pas? Sur quel champ mets-tu ton événement? Comment s'effectue ton enregistrement? Est-ce que ton événement est appelé? Est-ce ton "Count" qui ne fonctionne pas?

[jclm230759]

Qu'est-ce que tu veux dire par ça ne fonctionne pas? Sur quel champ mets-tu ton événement? Comment s'effectue ton enregistrement? Est-ce que ton événement est appelé? Est-ce ton "Count" qui ne fonctionne pas?

Je mets l'évènement sur le champ qui correspond au n° de trajet

je tape la date dans un champs et quand j'arrive sur le champ avec le trajet il me donne une erreur. j'ai effectué un print screen et je l'annexe

encore un grand merci

[steps5ive]

Il te manque tes conditions:

Code :

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

1
2
if DCOUNT("CodDestialler","T_Recap","DateNavAller=" & ChampDate & " and CodDestialler=" & ChampNo) > 6 then

[jclm230759]

Il te manque tes conditions:

Code :

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

1
2
if DCOUNT("CodDestialler","T_Recap","DateNavAller=" & ChampDate & " and CodDestialler=" & ChampNo) > 6 then

Je vous remercie encore mais je n'y arrive pas . Je n'ai pas de message après le 6ème enregistrement

Je crois que je vais abandonner et essayer de faire autrement. Dommage c'était le dernier point de mon travail.

Bon week end et encore Merci

[steps5ive]

Et lorsque vous exécuter le code pas à pas, que vous retourne le DCount?

Puisque l'événement est avant l'ajout de l'enregistrement la comparaison devrait plutôt être =6.

[NeuroTransMetteur]

Bonjour,
Toujours entourer un champ date d'un dièse.

Code :

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

if DCOUNT("CodDestialler","T_Recap","DateNavAller=#" & ChampDate & "# and CodDestialler=" & ChampNo) > 6 then

Et si ça ne marche pas encore il faut ajouter

Code :

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

if DCOUNT("CodDestialler","T_Recap","DateNavAller=#" & Format(ChampDate,(ou ;)"m/d/yy") & "# and CodDestialler=" & ChampNo) > 6 then

a+