CompteurRésolu

Question

Salut,

Je veux réaliser un compteur des enregistrements mais j'ai un problème avec, voici mon code :

conn = New Connection
With conn
   .Provider = "Microsoft.Jet.oledb.4.0"
   .Open("data source=" & Application.StartupPath & "\BASE\BASE.mdb")
End With
rs = New Recordset
With rs
   .ActiveConnection = conn
   .Open("SELECT Demandes.N_demande FROM Demandes", , CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockPessimistic)
End With
If rs.EOF Then
   ndemande.Text = Format(Now, "yyyy/MM/dd") & "/" & 1
Else
   ndemande.Text = Format(Now, "yyyy/MM/dd") & "/" & rs.RecordCount + 1
End If

Quand la table est vide, tout marche très bien, mais quand je la rempli avec un seul enregistrement je reçoi ce résultat : "2008/10/02/0". Quelqu'un pourrait-il m'expliquer pourquoi ?

Merci beaucoup.

spamito · Accepted Answer

Bon voici la solution :

conn = New Connection
        With conn
            .Provider = "Microsoft.Jet.oledb.4.0"
            .Open("data source=" & Application.StartupPath & "\BASE\BASE.mdb")
        End With
        rs = New Recordset
        With rs
            .ActiveConnection = conn
            .CursorLocation = CursorLocationEnum.adUseClient
            .Open("SELECT Demandes.N_demande FROM Demandes", , CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
        End With
        If rs.EOF Then
            ndemande.Text = Format(Now, "yyyy/MM/dd") & "/" & 1
        Else
            ndemande.Text = Format(Now, "yyyy/MM/dd") & "/" & rs.RecordCount + 1
        End If

Il fallait juste ajouter la ligne " .CursorLocation = CursorLocationEnum.adUseClient" que j'ai oublié de la mettre.
Merci Casy pour ton soutien.

cs_casy · Answer

Avant ta condition If essaye peut-etre de faire 
rs.MoveLast
rs.MoveFirst

pour réinitialiser le compteur

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

spamito · Answer

Non, j'ai déjà essayé rs.MoveLast et rs.MoveFirst, mais ça ne marche pas.

Compteur

3 réponses

Votre réponse

Discussions similaires