1 2 3 4 5
| TexteSQL_liste_feuille_atdec = "SELECT [date_création],[produit],[lignes],[ref],[lot],[description défaut],[Nbre_pièces_ATDEC],[cloture],[action ligne] ,[action qualité 1],[résultat qualité 1],[action qualité 2],[résultat qualité 2],[action qualité 3],[résultat qualité 3],[action qualité 4],[résultat qualité 4],[action qualité 5],[résultat qualité 5],[action qualité 6],[résultat qualité 6],[N°feuille_atdec],[Palette1 lot],[Palette2 lot],[Palette3 lot],[Palette4 lot],[Palette5 lot],[Palette6 lot],[Palette7 lot],[Palette8 lot],[Palette9 lot],[Palette10 lot],[Palette11 lot],[Palette12 lot],[Palette13 lot],[Palette14 lot],[Palette15 lot],[Palette16 lot],[Palette17 lot],[Palette18 lot],[Palette19 lot],[Palette20 lot]FROM [feuille atdec] WHERE [produit] IS NOT NULL and [cloture] IS NULL "
Set rst = cn.Execute(TexteSQL_liste_feuille_atdec)
a = rst.GetRows
Me.L_liste_feuille_atdec.Column = a ' Il n'y a pas de problème s'il n'y a qu'une ligne |
Partager