Discussion :

[damsmut]

Bonjour,

A partir d'un formulaire, j'ai trouvé comment compter le nombre d'enregistrements d'une table :

Code :

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

=CpteDom("*";"MaTable")

ça marche pour une table, mais pas pour un formulaire ouvert...

J'ai une autre piste... mais je ne trouve pas...

Code :

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

=[Formulaire].[Recordset].[Compte]

... mais ça ne marche pas... il n'aime pas le terme Recordset dans la macro !

Comment faire ? (en VBA je sais)

merci
a+
Dams'

[fgiambelluco]

Bonjour
T'as essayé un simple =Compte([UnChampDuFormulaire])

Il tient même compte du filtre appliqué.

[damsmut]

T'as essayé un simple =Compte([UnChampDuFormulaire])

il me met le message d'erreur suivant :
"impossible d'utiliser la fonction dans cette expression
[...]
Vous avez peut-être utilisé une fonction d'agrégation, telle que Compte, dans une grille de création, un contrôle ou un champ calculé"

[damsmut]

en fait il faudrait me traduire ce code VBA en expression de macro :

Code :

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

Application.Screen.ActiveForm.Recordset.RecordCount

... ça donnerait [Formulaire].[????]

[fgiambelluco]

Re

=Compte([UnChampDuFormulaire])

Pour une fois j'avais testé
J'ai créé une zone de texte dans mon formulaire et j'ai mis cette syntaxe dans la proprité Source Control, et il m'affiche le nombre d'enregistrement du formulaire en tenant compte du filtre appliqué.

Je ne comprends d'où peut venir le message d'erreur qu'il t'as retourné

[damsmut]

exact ça ça marche.
Par contre moi je souhaite le faire via un bouton... qu'il m'affiche une messagebox.. et là ça ne marche pas

[fgiambelluco]

Re
Ce que tu peux faire, c'est masquer le controle dans le formulaire et dans ta macro tu lui demandes d'afficher la valeur de ce controle.

[damsmut]

Re
Ce que tu peux faire, c'est masquer le controle dans le formulaire et dans ta macro tu lui demandes d'afficher la valeur de ce controle.

oui c'est vrai on peut faire ça... mais j'aimerais surtout savoir comment on peut faire ça... car ce n'est ici qu'un exemple... et le fait de comprendre cela me permettrait de faire d'autres choses encore.

[fgiambelluco]

Bonjour et bonne année

est-ce que cette nouvelle année m'apportera une réponse ??

En voilà une:
Sur l'événement Sur Clic de ton bouton tu mets le code suivant (à adapter à ton champ texte)

Code :

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

Msgbox Me.MonChamp

Bon courage

[damsmut]

Bonjour et bonne année

En voilà une:
Sur l'événement Sur Clic de ton bouton tu mets le code suivant (à adapter à ton champ texte)

Code :

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

Msgbox Me.MonChamp

Bon courage

c'est pas ça que je veux... ok ça marche.. mais ce n'est pas ma question...


je souhaite pour l'exemple créer un bouton... et sur l'évenement clic --> Macro --> créer une BoîteMsg --> avec comme Message le nombre d'enregistrements

par contre je suis persuadé qu'il existe une fonction qui permet d'avoir ce résultat directement... il me faut en fait la valeur qui figure à côté des boutons de déplacements...


pour afficher la position de l'enregistrement en cours je sais qu'il faut mettre dans le champ message :

Code :

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

=[CurrentRecord]

... mais le nombre total d'enregistrement ???

[DidiKaly]

Je vous propose la solution suivante:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
    Dim intNbEnregistrement As Integer
        intNbEnregistrement = DCount("[Identite]", "TableDonneesGenerales", Filter)
            MsgBox "Le nombre d'enregistrement(s) est de: " & intNbEnregistrement
End Sub

Où, "Identite" est un champ non facultatif, "TableDonneesGenerales" est le nom de domaine de la table et "Filter" pour récupérer les éléments du filtre appliqué sur ce formulaire.

Voilà ma proposition si j'ai bien compris la question.

[bertiny]

Bonjour Didikaly.
Désolé pour la réponse que vous proposez en cette période. Ce poste date de très longtemps que la question n'est peut-être plus d'actualité.
Cordialement