problème de code

**jujujulien** · 14/05/2007, 20h38

Voila le but recherché est de saisir la valeur se trouvant dans une base de donnée.
Voici mon code, le problème vien de la ligne strReferenceNow = Fields("fldReference").Value, cette ligne marchait quand je l'utilisait pour remplir une listbox, mais pour remplir la variable ca n'est plus ca.

Code :

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

1
2
3
4
5
6
7
Do While Not .EOF
            strReferenceNow = Fields("fldReference").Value
            If intReferenceNow = Val(Mid(strReferenceNow, 2, Len(strReferenceNow))) > intReferenceLast Then
                intReferenceLast = intReferenceNow
            End If
            .MoveNext
        Loop

merci d'avance a tous ceux qui pouront m'apporter leur aide cela m'aidera fortement

mes salutation, un débutant

**LeXo** · 14/05/2007, 20h52

Code :

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

1
2
3
4
5
6
7
Do While Not .EOF
            strReferenceNow = Fields("fldReference").Value
            If intReferenceNow = Val(Mid(strReferenceNow, 2, Len(strReferenceNow))) > intReferenceLast Then
                intReferenceLast = intReferenceNow
            End If
            .MoveNext
        Loop

.EOF ?? et Fields ?

si t'as un with plus haut et prkoi t'as le .Fields ?

**jujujulien** · 14/05/2007, 20h54

avec le .Fields ca ne marche pas non plus

**LeXo** · 14/05/2007, 20h57

si tu pouvais poster le code depuis le début du traitement de ta requete ça serait mieux pour voir l'erreur

as tu penser a faire un recordcount et a afficher ta requete en debug.print ou msgbox

**jujujulien** · 14/05/2007, 21h12

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
27
28
29
30
31
32
33
34
Dim oADOReference   As ADODB.Connection
Dim oRSReference    As ADODB.Recordset
Dim strSQLReference As String
Set oADOReference = New ADODB.Connection
With oADOReference
.Provider = "Microsoft.jet.oledb.4.0"
.Mode = adModeShareDenyNone
.ConnectionString = "C:\qualif pc mag\MagPc.mdb"
.Open
End With
    Set oRSReference = New ADODB.Recordset
    strSQLReference = "SELECT fldReference FROM tblCarteMere ORDER BY fldReference"
    intReferenceNow = 0
    strReferenceNow = ""
    intReferenceLast = 0
    With oRSReference
        .CursorLocation = adUseClient
        .Open strSQLReference, oADOReference, adOpenForwardOnly, adLockOptimistic
        .Properties.Refresh
        .MoveLast
        .MoveFirst
        Do While Not .EOF
            strReferenceNow = Fields("fldReference").Value
            If intReferenceNow = Val(Mid(strReferenceNow, 2, Len(strReferenceNow))) > intReferenceLast Then
                intReferenceLast = intReferenceNow
            End If
            .MoveNext
        Loop
        LblReference.Caption = intReferenceLast
        .Close
    End With
    oADOReference.Close
    Set oRSReference = Nothing
    Set oADOReference = Nothing

voila le code et excusez moi pour le pitoyable débutan que je suis