Discussion :

[papafigus]

Bonjour,

J'imagine que le sujet à du être déjà traité quelque part mais vu mon niveau je n'arrives même pas à trouver l'info que je cherche...
En fait je dois reprendre une base de donnée existante et incrémenter une clé primaire ayant déjà 1468 enregistrements à chaque ouverture du formulaire de saisie.
Du coup mes compétences en VBA étant proche de zéro, je voulais voir si l'un d'entre vous n'aurait pas un petit code sous le coude pour me sortir de cette impasse !!
Le format de ma clé primaire est le suivant : 123XXXXXX0000 ("3 chiffres" puis "6 caractères" texte (cette partie ne varie pas) puis 4 chiffres incrémentés à partir du dernier enregistrement + 1 soit "1469")
J'espère avoir au moins réussi à expliquer mon problème de façon intelligible !!

Merci d'avance à ceux qui me répondrons !!

[User]

Bonjour,

Il faudrait essayer de mettre un code de ce genre sur l'événement avant insertion du formulaire :

Code :

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

1
2
3
4
5
6
 
Private Sub Form_BeforeInsert(Cancel As Integer)
 
Me.clePrimaire = "123XXXXXX" & (nz(DMax("Right([clePrimaire],4)","LaTable"),0)+1)
 
End Sub

Ici, je suppose que le champ clé primaire se nomme clePrimaire et la table source LaTable.

Cdlt,

[papafigus]

Bonjour et merci pour cette réponse !
J'ai remplacé le nom de ma table et de ma clé primaire mais le texte deviens rouge et ça ne semble pas marcher... Une idée?

[papafigus]

Apparemment il y avait un problème d'utilisation de point-virgules que j'ai remplacé par des virgules.
Par contre ça ne m'affiche toujours pas le résultat dans mon formulaire... ça ne crée pas de nouvelle ligne non plus dans ma table.
Je dois avoir un bug quelque part !

[User]

Si le formulaire est ouvert en mode ajout, vous pouvez mettre ce code sur ouverture :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.ClePrimaire = "123XXXXXX" & (Nz(DMax("Right([clePrimaire],4)", "LaTable"), 0) + 1)
End Sub

Pour l'autre code il faut saisir quelque chose dans le formulaire...

Cdlt,

[papafigus]

Bon effectivement je m'étais juste trompé de champs dans l'application de ma procédure évenementielle...
J'avais activé le code sur "avant maj" et non "sur entrée".
du coup ça marche maintenant !
Merci beaucoup !!!

[User]

Tant mieux !

Le code ne s'exécute que si vous êtes sur un nouvel enregistrement.

Cdlt,