Bonjour,

Je commence à étre un habitué de ce forum tant je rencontre de difficulté, heureusement que vous êtes là.

Alors là je me retrouve avec un problème et je ne comprends vraiment pas pourquoi. J'ai le code suivant dans un formulaire Access, la table est sur le serveur:
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
22
23
24
25
26
 
Private Sub Form_Open(Cancel As Integer)
    Dim rs As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    Dim conn As String
    Dim val As Variant
 
 
    conn = "Provider=sqloledb; Data Source=SQLserv; Initial Catalog=PyraSQL; User ID=Moi "
 
    cnn.Open conn
 
    rs.Source = "SELECT a.tt_libelle, a.St_Atraiter FROM Tbl3CalMetierAtraiter as a WHERE a.st_clas =1 ORDER BY a.tt_libelle"
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenKeyset
    rs.Open , cnn
    rs.MoveFirst
    rs.MoveLast
    val = rs.RecordCount
    Set Me.Recordset = rs
 
    Set rs = Nothing
 
    Set cnn = Nothing
 
End Sub
or ce code ne fonctionne pas car la valeur retournée par le recordcount est égale à -1, ce que je ne comprends pas car il y a bien des valeurs et quand je lance la requête seule dans l'analyseur de requêtes SQL j'ai bioen des enregistrements. Le problème semble venir de la table car le même code sur une autre table fonctionne très bien.

Quelqu'un aurait une idée??ou une piste??