Discussion :

[jack_1981]

salut tous le monde
voir est ce que ce code est correct car il me donner chque execution le message suivant

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
35
36
37
38
39
40
Private Sub afficher_grd()
Dim rs As New ADODB.Recordset
Dim str As String
Dim i As Integer
Dim heure
Dim jour
Dim moi
Dim annee
Dim DateReel
grid1
ouvrir_bd
jour = Month(dptDateCopi)
moi = Day(dptDateCopi)
annee = Year(dptDateCopi)
DateReel = jour & "/" & moi & "/" & annee
str = "SELECT MarcacoesCorrigidas.IdFuncionario, MarcacoesCorrigidas.Data, MarcacoesCorrigidas.[1ENT], MarcacoesCorrigidas.[1SAI], MarcacoesCorrigidas.[1EDesvio], MarcacoesCorrigidas.[1SDesvio], MarcacoesCorrigidas.Resultado From MarcacoesCorrigidas Where MarcacoesCorrigidas.Data=#" & DateReel & "# ORDER BY MarcacoesCorrigidas.IdFuncionario"
rs.Open str, cnx, adOpenDynamic, adLockOptimistic
i = 1
Do While Not rs.EOF
        heuretravail = #12:00:00 AM#
        gd1copi.TextMatrix(i, 1) = rs!IdFuncionario
        gd1copi.TextMatrix(i, 2) = rs!Data
        gd1copi.TextMatrix(i, 3) = "" & rs![1ENT]
        gd1copi.TextMatrix(i, 4) = "" & rs![1SAI]
        gd1copi.TextMatrix(i, 5) = "" & rs![1EDesvio]
        gd1copi.TextMatrix(i, 6) = "" & rs![1SDesvio]
        gd1copi.TextMatrix(i, 7) = rs!Resultado
        heuretravail = heuretravail + (rs![1SAI] - rs![1ENT])
        heuretravail = Hour(heuretravail)
        If heuretravail > 8 Then
        MsgBox i & "--> " & heuretravail & "--> sup"
        rs![1SAI] = #8:00:00 AM# + rs![1ENT]
        rs.Update
        End If
        i = i + 1
        rs.MoveNext
        gd1copi.Rows = gd1copi.Rows + 1
Loop
rs.Close
End Sub

merci en avance

[ProgElecT]

A essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
str = "SELECT * From MarcacoesCorrigidas Where Data=#" & DateReel & "# ORDER BY IdFuncionario"
On Error Resume Next
rs.Open str, cnx, adOpenDynamic, adLockOptimistic
rs.MoveFirst
If Err.Number <> 0 Then
 InfosErr Err.Number, Err.Description, Err.Source
 Exit Sub
End If
i = 1
Do While Not rs.EOF
 '.......

suposant que cela se passe dés le premier passage dans ta boucle, tu ne serais sur aucune ligne valide et/ou un champs ne se trouve pas renvoyé par le select.

Motif de l'edit
la requette plutot comme sa

Code :

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

Str = "SELECT * From MarcacoesCorrigidas Where Data=#" & DateReel & "# ORDER BY IdFuncionario"