Discussion :

[yieiii]

Bonjour, je viens de trouver dans les Faqs ceci :

Code :

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

1
2
3
4
With Forms("Mon Form Principal").Controls("Mon Sous-formulaire").Form.RecordsetClone
  .MoveLast
  debug.print .RecordCount
End with

qui permet de compter le nombre d'enregistrements dans un sous formulaire.

Par contre je ne vois pas ou mettre ce code ? Il est à placer en source dans une zone de texte ??? j'imagine que non !

[rjamin]

Bonjour,

Voyez le lien suivant vous y trouverez peut être une solution.


http://access.developpez.com/faq/?pa...#CompterRecord

[yieiii]

merci mais c'est de ce lien que vient le code copier plus haut, j'ai trouvé une solution à l'aide d'une autre façon ! merci

[kan630]

un pti deterrage pour une petite amélioration...

Pour eviter le plantage si pas de data...

Remplacez ça

Code :

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

1
2
3
4
With Forms("Mon Form Principal").Controls("Mon Sous-formulaire").Form.RecordsetClone
  .MoveLast
  debug.print .RecordCount
End with

Par ça

Code :

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

1
2
3
4
With Forms("Mon Form Principal").Controls("Mon Sous-formulaire").Form.RecordsetClone
  .MoveLast
  debug.print .RecordCount
End with

Et merci pour cet élégant bout de code au passage !

[kan630]

un pti deterrage pour une petite amélioration...

Pour eviter le plantage si pas de data...

Remplacez ça

Code :

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

1
2
3
4
With Forms("Mon Form Principal").Controls("Mon Sous-formulaire").Form.RecordsetClone
  .MoveLast
  debug.print .RecordCount
End with

Par ça

Code :

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

1
2
3
4
With Forms("Mon Form Principal").Controls("Mon Sous-formulaire").Form.RecordsetClone
  if not .eof then .MoveLast
  debug.print .RecordCount
End with

Et merci pour cet élégant bout de code au passage !