Discussion :

[adelsunwind]

Bonsoir encore à tous et vive le forum et ceux qui le maintiennent.
J ai encore un souci mais cette fois sur un recordset. J aimerais compter le nombre d 'enregistrement dans un recordset. 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
 
SQL = " select * from [calibrations disponibles]where [calibrations disponibles].[en_cours]=true ;"
 
 
Set rs = db.OpenRecordset(sSQL)
With rs
rs.MoveLast
 
nbr = rs.RecordCount
Me.Texte35 = nbrEnd With
 
rs.Close
End Sub

Tout se passe bien mais quand mon recordset est vide j aurais aimé avoir nbr =0 mais là j ai un message d'erreur d'execution 3021. Aucun enregistrement en cours.
Quelqu un a t il rencontré cette situation?

Merci encore.

[LedZeppII]

Bonjour,

Après ouverture du recordset ne fais le MoveLast que si EOF est faux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim sSQL As String, rs As DAO.Recordset, db As DAO.Database
Dim nbr As Long
 
sSQL = "select * from [calibrations disponibles]where [calibrations disponibles].[en_cours]=true ;"
Set db = CurrentDb
Set rs = db.OpenRecordset(sSQL)
If Not rs.EOF Then rs.MoveLast
nbr = rs.RecordCount
rs.Close
 
Me.Texte35 = nbr

A+

[adelsunwind]

Merci beaucoup ca marche comme sur des roulettes