problème de code

Version imprimable

problème de code

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:

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

Code:

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 ?

14/05/2007, 20h54
jujujulien

avec le .Fields ca ne marche pas non plus
14/05/2007, 20h57
LeXo

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

Code:

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

14/05/2007, 21h15
SfJ5Rpw8

Citation:

Envoyé par bbil

...
que ce passe-t'il lorsque tu exécute ce code ..?
14/05/2007, 21h25
jujujulien

sry

VB me dit: erreur de compilation: sub ou function non définie
et ce dernier m'entoure le Fields
14/05/2007, 21h29
SfJ5Rpw8

et avec .fields
14/05/2007, 21h33
jujujulien

ca ne change rien

Code:

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

ta eu raison avec le point ..... déso
maintenant la valeur affichée dans le label qui sui est zéro alors que dans ma table les référence sont :CM1, CM2, ....

14/05/2007, 21h39
jujujulien

j'ai trouver la solution y suffisait de mettre un 3 a la place du 2
Grand merci a tous pour vos réponses