Discussion :

[citadelle33]

Bonjour à toutes et tous,

Je débute avec MS ACCESS. Je reprends une base de données que j'utilisais par ailleurs avec PHP/MYSQL pour l'utiliser avec MS ACCESS.

Après quelques jours de découvertes, j'ai réussi à importer mes données, créer des formulaires, des champs calculés, etc.. bref je m'éclate.

Mon problème du jour, c'est que j'ai rajouté un bouton assez classique "nouvel enregistrement" sur un formulaire. Le nouvel enregistrement est créé mais je voudrais que le champs "PATIENT_ID" qui est ma clef primaire soit automatiquement mis à jour en prenant la valeur de ce champs dans l'enregistrement précédent et en ajoutant 1....

J'ai pas mal cherché sans succès...

Merci d'avance

Citadelle33

[citadelle33]

Je galère avec l'outil de macros en essayant de définir la valeur du champs PATIENT_ID par rapport à l'enregistrement précédent....

[citadelle33]

Voici l'état de ma réflexion....

J'ai tenté :

- en passant par la création d'une macro associée à la table, après insertion. Dans la macro, je sélectionne "ModiferEnregistrement", puis "DéfinirChamp", puis il me faut indiquer le nom du champ et sa valeur. Là, je ne sais pas comment mentionner le champ PATIENT_ID auquel je veux accéder, et comment définir une expression pour la valeur pour indiquer d'incrémenter de 1 par rapport à la valeur du champ précédent.

- en modifiant le type de champ en "numerotation auto" mais j'ai vite arrêté car je ne veux surtout pas qu'il me renumérote tous les enregistrements de 1 en 1 car ce champs me sert à faire le lien avec une autre table

- via le bouton "nouvel enregistrement" sur le formulaire concerné, pour venir modifier la valeur du champ lors de la création du nouvel enregistrement.

Dur dur...

[tee_grandbois]

bonjour,
en général, on laisse Access gérer la numérotation en utilisant le type de champ Numéro Auto mais ce n'est possible que lorsque la table est vide.
Si elle est déjà remplie, il faut copier la structure de la table en un nouvelle table, ajouter le champ Numéro Auto à cette nouvelle table puis copier les enregistrements de l'ancienne vers la nouvelle avec une requête INSERT. Comme son nom l'indique, le Numéro Auto s'incrémente automatiquement à chaque nouvel enregistrement inséré.

Il faut savoir aussi que le Numéro Auto est perdu si jamais, au cours d'une saisie, on abandonne l'enregistrement (appui sur la touche Échap, par exemple).
Sinon, il y a la solution de générer sa propre numérotation, ce qui est déconseillé en général dans ce forum, surtout dans un environnement multi-utilisateurs. Sur l'évènement Si modification (Dirty) du formulaire en VBA après avoir choisi "procédure événementielle", insérer le code en bleu:

Code :

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

1
2
3
4
5
Private Sub Form_Dirty(Cancel As Integer)
If Me.NewRecord Then
    Me.PATIENT_ID = Nz(DMax("PATIENT_ID", "NomDeMatable"), 0) + 1
End If
End Sub

Si tu ne connais pas le VBA, en macro, il faut faire apparaitre le catalogue d'actions complet en cliquant sur le bouton "Afficher toutes les actions".
Ensuite ajouter une condition Si , puis ajouter l'action "Définir Valeur" :

Code Macro :

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

1
2
3
4
Si: EstNull([PATIENT_ID]) Alors
Définir Valeur
Elément: [PATIENT_ID]
Expression: =Nz(MaxDom("PATIENT_ID";"NomDeMatable");0)+1

[citadelle33]

J'ai opté () pour la seconde solution, la base étant mono-utilisateur, et ça fonctionne !

Un gros gros merci, j'ai galéré 2 heures là-dessus ce matin.

Pour tout dire, j'ai voulu tester la première solution, en passant en mode création dans ma table, je crée un champ type "numérotation auto", il me numérote mes enregistrements mais je ne parviens pas ensuite à corriger cette numérotation pour les enregistrements existants.

La seconde solution fonctionne même si je comprends qu'elle est "moins classe"...

Merci encore

[tee_grandbois]

il me numérote mes enregistrements mais je ne parviens pas ensuite à corriger cette numérotation pour les enregistrements existants.

oui, ce n'est pas modifiable et il vaut mieux que cela soit ainsi. Si ce numéro était déjà utilisé dans plusieurs tables de l'ancienne base, il vaut mieux en effet utiliser la seconde solution.

[citadelle33]

Merci encore !