[AC-2003] quelqu'un peut m'expliquer les lignes d'un programme(VBA) [Résolu]

[abde17-s]

* Bonjour, *

je suis un débutant en VBA ( VBA) , j'essaie en ce moment d'optimiser un programme pour mon stage.

SVP quelqu'un peut m'expliquer les lignes de ce programme:
==========================================================

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
squery = "SELECT ADRESSEC2BIV.IDADRESSEC2, ADRESSEC2BIV.NBOLLIBRE,  
      ADRESSEC2BIV.NBOLLIBREFIN, " & _
"ADRESSEC2BIV.TS FROM LISTEADRESSEC2 INNER JOIN ADRESSEC2BIV ON 
      LISTEADRESSEC2.AdresseC2Id " & _
"= ADRESSEC2BIV.IdAdresseC2 WHERE LISTEADRESSEC2.ISLOCK = 0 AND 
      ADRESSEC2BIV.GROUPEID = " _
 & clBIV.GroupeId & " AND TYPELIGNE = " & clBIV.iTypeLigne & " AND 
       LISTEADRESSEC2.GENERALID = " & clBIV.GeneralId
Set rstAdresseC2 = CurrentDb.OpenRecordset(squery)
        If (rstAdresseC2.EOF = False) Then
            rstAdresseC2.MoveLast
            iNbC2 = rstAdresseC2.RecordCount
            rstAdresseC2.MoveFirst

==========================================================
Merci d'avance

[jpcheck]

salut,

ce code genere une requete SQL dans une chaine de caracteres.

Code :

1
2
3
4
5
6
7
8
squery = "SELECT ADRESSEC2BIV.IDADRESSEC2, ADRESSEC2BIV.NBOLLIBRE,  
      ADRESSEC2BIV.NBOLLIBREFIN, " & _
"ADRESSEC2BIV.TS FROM LISTEADRESSEC2 INNER JOIN ADRESSEC2BIV ON 
      LISTEADRESSEC2.AdresseC2Id " & _
"= ADRESSEC2BIV.IdAdresseC2 WHERE LISTEADRESSEC2.ISLOCK = 0 AND 
      ADRESSEC2BIV.GROUPEID = " _
 & clBIV.GroupeId & " AND TYPELIGNE = " & clBIV.iTypeLigne & " AND 
       LISTEADRESSEC2.GENERALID = " & clBIV.GeneralId

met son resultat dans un recordset

Code :

Set rstAdresseC2 = CurrentDb.OpenRecordset(squery)

va au dernier enregistement et retourne son numero dans la variable iNbC2

Code :

1
2
3
4
If (rstAdresseC2.EOF = False) Then
            rstAdresseC2.MoveLast
            iNbC2 = rstAdresseC2.RecordCount
            rstAdresseC2.MoveFirst

[abde17-s]

Merci