Discussion :

[bétécé]

Bonjour,

Je suis en train de tenter de perfectionner ma base access qui me sert à gérer les prêts d’une bibliothèque.
Dans cette base, j’ai trois tables :
- une table ouvrage qui recense tous les ouvrages de la bibliothèque
- une table utilisateurs qui recense les coordonnées des utilisateurs
- une table prêts qui, à chaque fois qu’un livre est emprunté, fait le lien entre l’ouvrage (grâce au numéro d’inventaire) et l’utilisateur (grâce au nom)

A ces trois tables correspondent des formulaires, qui permettent de retrouver des enregistrements dans la table concernée. Voici celui correspondant à la table « utilisateurs » en pj

Je voudrais maintenant supprimer les fiches des utilisateurs qui n’ont plus de livres en leur possession.
Pour cela, j’aimerais créer un champ compteur qui me permettrait directement, sur chaque fiche utilisateur, de dire : « cet utilisateur a encore tant de livres empruntés » ou dit autrement, « dans la table prêts, il y a tant d’enregistrements qui correspondent au nom de cet utilisateur ».
Savez vous si c’est possible et, si c’est le cas, quelle commande utiliser ?

[helas]

un exemple
Dans l'evenement Current du formulaire le champ Nb prets contiendra le nombre de prets pour le client numeroclient

Code :

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

1
2
3
4
 
Private Sub Form_Current()
 Me![nb prets] = DCount("*", "TablePrets", "[numeroclient]=" & Me![numeroclient])
End Sub

[bétécé]

Merci beaucoup pour ta réponse. J'ai appliqué le code à mon application, mais le débogueur me dit qu'il y a une erreur et je ne comprend pas pourquoi :
(J'ai crée un champ nb prets dans ma base utilisateurs et le champ commun qui relie mes tables "prets" et "utilisateurs" s'appelle "code identification" (c'est en fait le nom suivi du prénom de l'utilisateur, pour s'assurer qu'il soit unique)

Code :

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

1
2
3
4
Private Sub Form_Current()
Me![nb prets] = DCount("*", "Prets", "[code identification]=" & Me![Code identification])
 
End Sub

Qu'est ce qui cloche ?

[vodiem]

code identification étant du texte il te faut le mettre entre guillemets:

Code :

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

Me![nb prets] = DCount("*", "Prets", "[code identification]='" & Me![Code identification] & "'")

[bétécé]

Effectivement, c'était bien mon problème !
Mais maintenant, j'ai une erreur d'exécution '3058' : un index ou une clé principale ne peut contenir une valeur nulle ... et dans mon code

Code :

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

Then.Me.bookmark=rs.bookmark

se met en jaune

Code :

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

1
2
3
4
5
6
7
8
Private Sub Modifiable22_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Code identification] = '" & Me![Modifiable22] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Je n'arrive encore pas à comprendre le problème ...

[vodiem]

visiblement ton recordset ne contient pas de bookmark.
vérifie donc aussi la nullité du bookmark avant l'affectation

[bétécé]

j'ai rien compris ! Je ne maitrise vraiment pas VBA et ses termes techniques ...

Ce que je comprends, c'est que ma nouvelle zone de texte censée recueillir le nombre de prêts en cours ne permet plus au contrôle d'accéder à l'enregistrement, ce qui fait que "code identification", dont l'affichage est caché, n'est pas renseigné, et comme c'est ma clé primaire, access ne tolère pas une clé primaire vide.
Ce que je ne comprends pas (entre autres), c'est pourquoi cette nouvelle action a une incidence sur mon contrôle d'accès à l'enregistrement alors qu'il me semble que ça n'a rien à voir ...

[vodiem]

essaie plutot à la place de:

Code :

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

Not rs.EOF

Code :

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

rs.nomatch

[vodiem]

pour répondre au reste de tes interrogations:

"code identification", dont l'affichage est caché

tu utilise les recordsets: tu a donc accès à tous les champs du recordset qu'il soit affiché ou non.

Me.Bookmark = rs.Bookmark

c'est pas Me.bookmark qui est en cause c'est rs.Bookmark qui est null.

cette nouvelle action a une incidence sur mon contrôle d'accès à l'enregistrement alors qu'il me semble que ça n'a rien à voir ...

un code c'est un code... d'où il soit s'il n'est pas correct: il plante! où il veut et quand il veut

[bétécé]

Miracle ! Ca marche !
L'erreur venait du fait que je n'avais pas bien compris la réponse de helas puis vodiem : j'essayais de créer un nouveau champ dans la table utilisateurs, alors qu'il fallait simplement nommer ma zone de texte dans le formulaire "nb prets".
Et du coup, plus de messages d'erreur ! Ca marche exactement comme je le voulais, et en plus, c'est tout simple !
Merci à tous ceux qui ont répondu et spécialement Vodiem !