Discussion :

[imeys]

bonjour, pouvez vous me dire cmt on trouve le nombre de lignes d'un sous formulaire par programmation?

[micniv]

Et bien tu n'es pas curieux.
Dans dans la base de nos échanges précédents, on comptait le nb d'achats pour une carte : en fait je compte le lignes du ssf "f_carte_sf_achat" via un mécanisme que tu trouves dans la FAQ de ce site :

• en pied du ssf, tu crées un controle qui compte le nombre de clés primaires dans les enregistrements du ssf
• puis depuis le frm principal, tu vas lire la valeur de ce contrôle.

[loufab]

Bonjour,

Dans le sous form :

Code :

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

me.recordset.count

dans le form

Code :

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

1
2
3
4
 
Forms.nomform.nomsouform.Form.recordset.count
ou
Me.nomsouform.Form.recordset.count

Cordialement,

[Faw]

Il me semble que c'est plutot recordset.recordcount

[micniv]

On donne dans l'élégance !

[loufab]

Il me semble que c'est plutot recordset.recordcount

+1

[imeys]

oui je sais qu'on peux le faire comme sur les faq mais ce n'est pas fait via la programmation.
C'est fait via les sources des items.

[Faw]

Loufab t'a donné la syntaxe vba, il a seulement fait un lapsus avec Count...
Merci de relire depuis le début.

[imeys]

oui je l'ai vu etant donné que j'ai répondu au 1e message.

[Faw]

oui je l'ai vu etant donné que j'ai répondu au 1e message.

et tu as essayé?

[imeys]

oui j'ai essayer et ca ne va pas.
Donc finallement je me suis dit que j'allais mettre une zone de texte comme expliquer dans les FAQ .
Donc j'ai fait un champs nbachat qui s'appelle compteur ou va le nombre d'enregistrement
et un champs dans le sous formulaire compte qui permet de calculer les enregistrement.

j'ai essayer en faisant: if me.compteur.value>12 then
msgbox"carte remplie"
ais ca ne donne rien non plus, il me permet tjs d'ajouter un 13 achat.

[Faw]

Si t'es au niveau du sous-form

Code :

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

1
2
3
if me.recordset.recordcount >12 then
msgbox"carte remplie"
endif

[loufab]

oui j'ai essayer et ca ne va pas.

j'ai essayer en faisant:

Code :

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

1
2
if me.compteur.value>12 then
msgbox"carte remplie"

ais ca ne donne rien non plus, il me permet tjs d'ajouter un 13 achat.

Qu'est ce qui ne va pas ? il ne te donne pas le nombre d'enregistrements ?
Avec le code fourni il ne va pas t'interdire d'ajouter un nouvel enregistrement (13ème ou 12 miliardième...) Si le compteur est supérieur à 12 (donc qu'il a atteint 13 enregistrement il t'affiche le message. Et c'est tout.

Si tu nous expliquais ce que tu souhaite faire exactement au lieu de demander des bribes on pourrait surement te guider, sans perte de temps...

[vodiem]

imeys, je n'avais pas vu que tu avais ouvert une discution là dessus.

ce serait aimable d'informer et de remercier ceux qui t'on aidé avant de cloturer

elle avait besoin de ca:

Code :

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

If [T_achat sous-formulaire].Form.Recordset.RecordCount = 12 Then

ben oui, ce code sert à arreter l'ajout (qui suit) pour le 13ieme.