Discussion :

[Mariboo]

BOnjour !

J'ai un problème qui me pose problème ...

J'effectue cette opération au chargement et sur l'événement current de mon formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form_Load()
 
Dim Nbart As Integer
Dim NumArt As Integer
Dim rst As DAO.Recordset
 
Set rst = Me.RecordsetClone
Nbart = rst.RecordCount
NumArt = Me.CurrentRecord
Me.QteArt = NumArt & "/" & Nbart
Set rst = Nothing
 
End Sub

Le but étant d'afficher une chaîne de caractère (de type 1/x) dans mon champ nommé "QteArt".
Mais il se passe quelque chose d'incroyable. Lorsque je lance mon formulaire, je vois apparaître par ex : "1/1" alors qu'il me faudrait "1/2"....Par contre, si je passe à l'enregistrement suivant, l'opération se fait correctement (j'obtiens "2/2" en faisant suivant et "1/2" en faisant précédent)
Mais le plus fabuleux dans tout ça, c'est que lorsque je fais un point d'arrêt au chargement, les données sont correctes et au final, en exécutant pas à pas, il m'affiche les bons chiffres !!

Donc mon problème viendrait au final de cette ligne, sur l'affectation du RecordCount à ma variable qui est censée m'afficher le "x" de "1/x" :

Code :

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

1
2
 
Nbart = rst.RecordCount

Peut-être est-ce un problème de type de données? j'en sais rien du tout !

[pgz]

Bonjour,

Et si tu fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
Dim Nbart As Integer
Dim NumArt As Integer
Dim rst As DAO.Recordset
 
Set rst = Me.RecordsetClone
rst.MoveLast
Nbart = rst.RecordCount
NumArt = Me.CurrentRecord
Me.QteArt = NumArt & "/" & Nbart
Set rst = Nothing
 
End Sub

Ca change qqc?

Bon courage,

PGZ

[Mariboo]

Tout à fait Thierry !

Ben oui, il suffisait juste de cerner le problème en fait.... : Access va trop vite ! il faut lui dire : "attend, pose toi là, sur le moveLast, respire un coup et calcul correctement le nombre de mes enregistrements "

MERCI pgz !!

@ + !

[pgz]

Re,

C'est plutôt qu'un Recordcount sur un RecordSet renvoie le nombre d'enregistrements auxquels ont a eu accès.
C'est moins drôle que ton explications, mais tant pis!

PGZ

[Mariboo]

Aaaaaahhh ...

Merci De M'eclairer !