Discussion :

[nabildjadel]

Bonjour a tous,
voici mon probleme
j'ai cree une base sous acces qui genere un numero de ce type
BLLO 04 10 25
04 represente l'annee
10 le mois
25 un numero qui s'incremente tout seul
ce que je voudrais c 'est qu'en debut de chaque mois
l'incrementation revienne a 01

help please
nabil

[argyronet]

Bonjour,

En VBA c'est assez simple, mais je suppose que ton incrémentation est un compteur NuméroAuto Access.
Si oui, il ne faut pas t'en servir.
Ce que je te propose c'est que ton incrément soit généré par le jour du mois et la tu es pénard... Non ?
Il est certain qu'il ira de 1 à 28 ou 1 à 29 ou 1 à 30 voire 31 selon le mois et sera remis à 1 dès le debut du mois suivant.

Code :

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

MonChamp = "BLLO " & Right(Year(Now), 2) & " " & Format(Month(Now), "00") & " " & Format(Day(Now), "00")

Argy

[nabildjadel]

merci pour ta reponse, mais j'ai environ 50 a 150 demandes par mois
donc ce n'est pas suffisant, justement j'ai cree un 2e table identique qui purge les donnees dans la table principale
ce que je veux faire c'est que la numerotation soit auto incrementee
merci pour ton aide

[argyronet]

Ah ce moment là, à cahque nouvel enregistrement, tu alimentes toi-même le compteur à n+1 avec une procédure DAO tout en vérifiant quel jour et quel mois nous sommes.
C'est l'incrémement auto qui te mets dans l'embarras.
Par exemple créés une table spécifique qui contient le dernier mois sollicité avec l'année avec le dernier N° Incrmt utilisé (sur 3 champs) ce qui fait que tu peux tout contrôler:

Code :

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

1
2
3
4
5
6
7
8
9
10
If chAnnee=Year(Now)
    If chMois=Month(Now)
        Select case Day(Now)
            Case 2 to DernierJourDuMois(Now)
               Incrmt=Incrmt + 1                
            Case 1
               Incrmt=1
        End Select
    End If
End If

DernierJourDuMois est une fonction qui calcule le dernier jour du mois en cours...

Tu me suis ?

Argy

[nabildjadel]

je te remercie pour ta reponse, la ou c'est assez simple c'est qu'avec month(date) et year(date) j'obtient les 2 numeros
BLLO 04 10 ca se mets automatiquement, est ce qu'il est possible pour moi d'avoir une fonction qui va chercher date du dernier enregistrment et avec la fonction month(date) va me permettre de declencher une requete purger si celle du jour et different de celle du dernier enregistrment?

Je suis vraiment desole de t'embeter et je te remercie pour tes reponses mais je pense que cette fonction teste si j'arrive a la resoudre me simplifiera la vie .

[argyronet]

Tu ne m'embête pas...
Suis l'idée que je t'ai transmise.
A chaque nouvel enregistrement, alimente(et va chercher la valeur de...) une table (que tu nommes TBCompteur dans laquelle il y a 3 champs. Un Année, Un Mois, Un Incrément) fais un UPDATE du champ Incrément.
Lors de la création de l'enregsitrement, tu vas chercher le dernier Incrément, tu l'affectes et tu fais un nouvel UPDATE.
Enfin pour chacune de ces opérations, tu vérifies quel jour on est, si on est le 1er alors les champs Mois et Incrément changent respectivement en Mois +1 et Incrément=1. Année suit l'année en cours, tout comme Mois d'ailleurs.
Maitrise-tu les opérations DAO ?

Argy

[nabildjadel]

salut c encore moi
juste une derniere question
sais tu comment recuperer la valeur dans un champs?
nabil

[argyronet]

bonjour,

Il y a deux solutions:
En mode fonction Domaine:

Code :

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

MonChamp=RechDom("QuelChamp";"QuelleTable";"Critères")

Exemple:

Code :

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

MonChamp=RechDom("[NumeroSiret]";"TBLSociete";"[IDClient]=" & Me!listeClient)

En VBA (beaucoup + puissant)

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
Function ObtenirValeur(ByVal ClauseSelect As String, ByVal NomDuChamp As String) As Variant
Dim RS As Recordset
Dim ValeurDuChamp As Variant
 
  Set RS = CurrentDb.OpenRecordset(ClauseSelect, dbOpenDynaset)
  With RS
    If Not .EOF Then
      ValeurDuChamp = .Fields(NomDuChamp).Value
    Else
      ValeurDuChamp = vbNullString
    End If
  End With
  ObtenirValeur = ValeurDuChamp
  Set RS = Nothing
End Function
 
MonChamp=ObtenirValeur("SELECT * FROM TBLSociete WHERE IDClient =" & Me!listeClient, "NumeroSiret")

Argy

[nabildjadel]

JE TE REMERCIE BCP POUR TON AIDE PRECIEUSE
NABIL