Discussion :

[adelsunwind]

Bonsoir à tous,
voilà j ai une table liée sur laquelle j aimerai compté le nombre de ligne avec une valeur de champs en particulier. J ai insérer dans mon formulaire une zone de texte pour récupérer le résultat numérique et pourtant même si j ai des enregistrements mon résultat est toujours 0.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Form_Load()
Dim db As DAO.Database
 
Dim rec As DAO.Recordset
Dim rs As DAO.Recordset
Dim nbr As Integer
Dim sSQL As String
 
 
 
Set db = Application.CurrentDb
sSQL = " select * from [calibrations disponibles] where [calibrations disponibles].[en_cours] = true ;"
 
 
 
Set rs = db.OpenRecordset(sSQL)
With rs
nbr = rs.RecordCount
Me.Texte31.Value = nbr
end with

Merci d'avance pour votre aide

[Invité]

Bonjour

Essayes un

Code :

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

 rs.MoveLast

avant de compter pour voir, et avant un peu de lecture de la http://access.developpez.com/faq/?pa...es#Recordcount

Philippe