Discussion :

[Femtozaza]

Bonjour,

Ma BDD Optique a bien avancé et je découvre maintenant la création d'Etat, mais j'ai un problème que je ne comprends pas:

Sur l'ouverture de mon état je crée le code suivant:

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
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim oRst As DAO.Recordset
Dim oRst2 As DAO.Recordset
Dim oRst3 As DAO.Recordset
Dim oString As String
Dim oCaracteristique() As String
Dim oChamps As String
Dim oNumeroCaracteristique As Long
Dim TailleTableau As Integer
Dim j As Integer
 
Set oDb = CurrentDb
Set oTbl = oDb.TableDefs("Tbl_ChampOptique")
oString = "Select * FROM Tbl_ChampOptique"
Set oRst = oDb.OpenRecordset(oString, dbOpenDynaset)
Debug.Print oTbl.RecordCount
Debug.Print oRst.RecordCount
.
.
.

J'ai ajouté des lignes et supprimé le filtre de ma requête car je pense que les problèmes que j'ai ensuite viennent de là.
Contrairement à ce qu'on pourrait penser, le nombre d'enregistrements de oTbl est de 15, et le nombre d'enregistrement de oRst est de 1.
Je ne comprends pas pourquoi. Je tourne en rond depuis le début de l'aprèm et je ne vois pas ce qui cloche. Si vous avez une idée...
Merci d'avance.

[marot_r]

Bonjour.

C'est une attrape classique.

Pour les objets DAO.Recordset, le nombre d'enregistrements n'est connu que quand TOUS les enregistrements on été parcourus, sinon il indique 1.

Une solution possible est juste après l'ouverture du recordset de mettre :

Code :

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

1
2
3
4
if not monRecordset.eof() then
   monRecordset.movelast 'Force Access à parcourir tous les enregistrements
   monRecordset.movefirst 'Revient au début
end if

A+

[Invité]

Bonjour

Rajoutes ceci après le Set oRst et avant les comptages.

Code :

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

1
2
oRst.MoveLast
oRst.MoveFirst

Cela devrait fonctionner.

Philippe

[JOHN14]

Bonjour.

Le réponse qui me vient immédiatement en regardant tes définitions

Dim oRst As DAO.Recordset

est que tu as instancier un objet et non une collection. Évidemment l'objet est seul.

Cordialement.

[Femtozaza]

Merci à vous
Ce n'est pourtant pas la première fois que j'utilise ce recordcount sans avoir ce genre de problème.

En tout cas ça marche et j'ai perdu une demi journée pour rien ^^
Merci encore!!