Discussion :

[kornkiller]

Alors j'aurais besoin l'aide de quelqu'un...

Je travaille sur un petit programme...
Pour simplifier les choses...

J'ai une Table avec 3 Champs : N°(NuméroAuto) + Date (format date XX/XX/XXXX) + Numéro (Texte 3 caractères)

Je voudrais qu'à l'aide d'un formulaire, contenant les champs "Date" et "Numéro", le champ "Numéro" se remplisse seul. C'est à dire que suivant la date tapée, il prenne une valeur.

Voila donc si on tape une date autre que le 24/12, 25/12, 31/12 ou 01/01, le champ Numéro reste vide.
Et si je rentre une de ces 4 dates, il numérote comme un NuméroAuto mais séparemment suivant ces 4 dates... C'est à dire que le premier enregistrement au 24/12 va mettre le numéro 001 dans le champs Numéro mais l'enregistrement pour une date du 25/12 (par exemple) commencera à 001...

Je pense qu'on doit pouvoir faire un code en VBA via un formulaire mais je n'ai pas assez de connaissance en VBA...

J'espère avoir été assez clair...merci pour vos réponses...

PS: désolé si y a des fautes d'orthographes

[@rkane]

Salut KornKiller,
à tout hasard essaie sur l'evenement AfterUpdate de ton champ Date un scrpit du genre :
if me.MaDate = "24/12/2006" then

[@rkane]

Salut KornKiller,
à tout hasard essaie sur l'evenement AfterUpdate de ton champ Date un scrpit du genre :
=======================
Private Sub MaDate_AfterUpdate()
if me.MaDate = "24/12/2006" then
me.Numero = "001"
end if
=======================
mais suis pas sûr d'avoir compris le sens du probleme.

[random]

SELECT DCount("dateop","matable","(month(dateop)=12 and day(dateop) in (24,25,31)) or (month(dateop)=1 and day(dateop)=1) ") AS monnombre;

[kornkiller]

Salut KornKiller,
à tout hasard essaie sur l'evenement AfterUpdate de ton champ Date un scrpit du genre :
=======================
Private Sub MaDate_AfterUpdate()
if me.MaDate = "24/12/2006" then
me.Numero = "001"
end if
=======================
mais suis pas sûr d'avoir compris le sens du probleme.

En gros c'est ca mais le problème c'est que lorsque je fais un nouvel enregistrement sur le 24 DEC je voudrais qu'il mette comme numéro "002" et ainsi de suite... Ceci séparemment suivant la date...

[kornkiller]

up

[monsurf]

Bonjour, essaye de faire un select case:

Code :

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

1
2
3
4
5
6
7
Select Case me.madate
    Case "24/12/2006"
       me.Numero = "001"
    Case "25/12/2006"
       me.Numero = "002"
    Case ....
End Select

mais je ne sais pas si le case marche avec des valeurs de type date ou texte... sinon tu dois passer un code (entier) a la place de la date: genre 1 pour 24/01, 2 pour 25/12...etc

Bonne chance