Discussion :

[sim911]

Bonjour à tous,

J'utilise cette fonction dans un champ d'un formulaire :

Code :

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

1
2
3
4
5
Private Sub Calculer_CodeRef()
  If Not IsNull(Me.text_Date) Then
    Me.text_CodeRef = Format([date], "yymmdd") & "000"
  End If
End Sub

Je veux en faire ma clé primaire. J'aimerais que "000" s'incrémente tout seul... j'ai fais plusieurs recherches sur le forum et sur la FAQ, sans succès... je trouve pas.


Merci beaucoup!

[Dolphy35]

Salut,

pourtant dans la il y a la réponse

Comment créer son propre numéroAuto ?


Dolphy

[sim911]

C'est gênant ça lol... J'avais vraiment les yeux fermés alors... Merci pour m'avoir éclairé... J'y jete un coup d'oeil tout de suite.

Merci beaucoup

[sim911]

J'ai finalement réussi à faire quelque chose... Cependant, je me demandais à quoi sert cette fonction qui se trouve dans la FAQ :

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
Public Function Init_numeroAuto()
Dim rs As DAO.Recordset
Dim i As Long
 
On Error Resume Next
 
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
 
i = 1
 
   While Not (rs.EOF)
   rs.Edit
   rs!num = i
   rs.Update
 
   rs.MoveNext
   i = i + 1
   Wend
 
rs.Close
Set rs = Nothing
 
End Function

Il est écrit :

et pour réinitialiser les numéroAuto :

Mais je comprends pas où installer ce code et l'utilité? Merci de m'éclairer, je suis nouveau dans le domaine d'acces et de VBA.

Merci encore.

[Dolphy35]

Salut,

Le premier code parcours la table pour récupérer la valeur de Num du dernier enregistrement, il lui donne au nouvel enregistrement la valeur + 1.
Prend par exemple une table avec 20 enregistrements tu efface la 10ème, lorsque tu exécute ce code il te donne pour le nouvel enregistrement 21 alors que tu n'as que 20 enregistrements.
C'est là qu'intervient le deuxième code, il parcourt toute ta table et réaffecte la valeur de Num en partant de 1.
Attention tout de même car si tu as des liaisons ton enregistrements 11 devient alors 10.

Dolphy

[sim911]

Merci beaucoup Dolphy35 pour les détails.

Maintenant que je comprends bien cette FAQ et le fonctionnement de son code, je ne vois pas et n'arrive pas à trouver comment je serais capable d'arriver à ce que mon Code_Réf soit composé de la date de la réservation (yy/mm/jj) + un numéro de 3 chiffres (000) incrémenter de 1 à chaque nouvelle réservation enregistrer pour la meme date.

Mon code de référence ressemblerait à ceci: yymmjj001, etc.

Merci d'avance.

[Dolphy35]

Salut,

pour la date, tu peux utiliser Format :

Code :

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

Format(Now,"ddmmyyyy")

Ensuite tu peux utiliser Mid pour extraire les numéro et ajouter +1

Dolphy

[sim911]

Merci beaucoup Dolphy35.

Après quelques recherches et essais-erreurs, j'en suis venu à la conclusion d'utiliser pour mon cas une requête. J'ai penser faire une requête (Requête1) qui pour l'instant est:

Code :

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

1
2
3
SELECT num
FROM Table1
WHERE LEFT([num], LEN([num])-3) = [para_date];

Cette requête affiche donc tout les Code_Réf du champ num de table1 qui sont égals à la date de la réservation sous forme "ddmmyyyy". Et c'est là que je voudrais donc utiliser requête1 à la place de table1.

Le code qui suit, est le code utiliser dans la FAQ d'access qui fonctionne avec une table... j'aimerais le modifier pour qu'il fonctionne avec une requête qui est dans mon cas requête1. Le but est que la requête soit exécutée, si elle est vide, ça veut donc dire qu'il n'y a pas d'enregistrement pour la même date que celle en cours, donc la date de la réservation+001 forment donc mon Code_Ref pour l'enregistrement en cours. Sinon il va à la fin de la requête et ajouter +1 au champ num (Code_Ref) de table1 au dernier enregistrement pour former le Code_Ref pour l'enregistrement en cours.

Voici le code utiliser dans la FAQ, lequel j'ignore comment modifier pour le rendre fonctionnel avec ma requête.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim rs As DAO.Recordset
 
Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
 
   If rs.EOF Then
   Me!Num = 1
   Else
   rs.MoveLast
   Me!Num = rs!Num + 1
   End If
 
rs.Close
Set rs = Nothing

Tout ça semble compliquer... j'espère avoir été assez précis dans mes explications.

Joyeuses fêtes à tous,
Merci d'avance
Sim.