Discussion :

[nadia123456]

s'il vous plait je veux la traduction de cette requet en VB

Code SQL :

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

1
2
select last dure-dep , Njr_sans_prise .....
from delacement

et merci

[Jean-Philippe André]

bonjour,
il me semble que ce que tu cherches se trouve dans la http://access.developpez.com/faq/?pa...s#UtilReqExist

[nadia123456]

merci
mais j'ai rien trouve !!

[basshero816]

Salut,

En VB, tu peux faire comme ceci :

Code :

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

1
2
3
4
5
6
 
Dim sql As String            
Dim rs As RecordSet
 
sql = "SELECT LAST dure-dep, Nrj_sans_prise FROM delacement;"
Set rs = CurrentDb.OpenRecordSet (sql)

Ainsi, tu ouvres l'ensemble de tes enregistrements.
Tu peux ensuite les utiliser, par exemple en utilisant ceci :

Code :

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

1
2
3
4
5
6
While rs.EOF <> True
         --
         -- suite d'instructions --
         --
         rs.MoveNext
End While

Ainsi, tu parcours chaque enregistrement, et tu effectues les opérations que tu désires.

@+

[nadia123456]

qu'est ce que ca veut dire

Code :

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

1
2
3
While rs.EOF <> True
rs.MoveNext
End While ?

et ou est la faute ici ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sql = "SELECT LAST nomage , dure_dep , Nbj_sans_prise, inden_j_nom , Nbj_avec_prise ,inden_j_nom FROM delacement;"
Set rs = CurrentDb.OpenRecordset(sql)
While rs.EOF <> True
fonction frais ( dure_dep As Integer, Nbj_sans_prise As Integer
, inden_j_nom As Integer
, Nbj_avec_prise As Integer
,inden_j_nom AS Integer , frais As Integer ,classe As String , nomage As String )
iif namage = "*" then frais <- ((dure_dep - Nbj_sans_prise .....
end iif
rs.MoveNext
End While
 
End Sub

et merci !!

[Tonioyo]

bonjour,

La traduction de

Code :

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

1
2
3
While rs.EOF <> True
rs.MoveNext
End While

rs.EOF (End Of File) => détecte la fin d'un recordset

Tant que rs.EOF est différent de vrai
Passer à l'enregistrement suivant
Fin tant que.

Une autre manière beaucoup plus rapide et efficace pour atteindre le même but :

Code :

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

rs.Movelast

Ce bout de code te place directement au dernier enregistrement.