Discussion :

[jack_1981]

j'ai un probléme qui m'a géné
merci de lire ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
strSelectT3 = "SELECT * FROM Marcacoes WHERE Marcacoes.Data =#" & DateReel & "# ORDER BY Marcacoes.IdMarcacao"
rsselectT3.Open strSelectT3, cnx, adOpenDynamic, adLockOptimistic '''
 
                        For i = 1 To gd1copi.Rows - 2 '''
                            If rsselectT3!IdMarcacao = gd1copi.TextMatrix(i, 1) Then
                            rsselectT3!Hora = gd1copi.TextMatrix(i, 5)
                            rsselectT3.Update
                            End If
                            rsselectT3.MoveNext
                        Next i
                        ProgressBar2.Value = ProgressBar2.Max
                        ProgressBar2.Visible = False
rsselectT3.Close

il m'a donnée que l'enregistrement est déja modifié je sais pas pq
priére de me donner un coup d 'aide le plus urgent possible .. je suis bloqué
merci en avanve

[sovo]

D'apres ton code tu fait une modification tu code. C pas ce que tu voulais faire ??

Sinon que voulais tu faire ??

[ProgElecT]

j'ai un probléme qui m'a géné
...
priére de me donner un coup d 'aide le plus urgent possible

Moi ce qui me géne un peu c'est,
jack_1981, Inscrit le mardi 06 décembre 2005, Total message: 162, discussions ouvertes: 60, Nbr.de TAGs utilisés: 12, moyenne: 20/100, ma partitipation jusqua ce post: 2 (ma participation a ton post d'Hier 12h09 pb au niveau du code VB , la proposition que je t'ais indiqué à 12h36, sa donne quoi ?)

malgré tout

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 1 To gd1copi.Rows - 2 '''
 '''''If rsselectT3!IdMarcacao = gd1copi.TextMatrix(i, 1) Then
 If rsselectT3!IdMarcacao = gd1copi.TextMatrix(i, 1) And _
  rsselectT3!Hora <> gd1copi.TextMatrix(i, 5) Then
     rsselectT3!Hora = gd1copi.TextMatrix(i, 5)
     rsselectT3.Update
     DoEvents
 End If
 rsselectT3.MoveNext
Next i