For i = 1 To 18Résolu

Question

Y a t-il une possibiliter de faire ceci, j' ai une erreur car rs!bouton & i ne fonctionne pas.

Merci

If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF = True

If rs!bouton = "bouton" & nu Then
For i = 1 To 18
If IsNull(rs!article & i) Then
MSFlexGrid6.Row = 1
MSFlexGrid6.col = 1
MSFlexGrid6.Text = "*"
Else
MSFlexGrid6.Row = 1
MSFlexGrid6.col = 1
MSFlexGrid6.Text = rs!article1
End If

Next i
End If

cs_DARKSIDIOUS · Accepted Answer

Salut,

Sujet déjà abordé sur le forum récement : passe pas la notation "classique" pour accèder à ton champ qui, au passage, est bien plus lisible que l'opérateur "!" qui est loin d'être standard :

rs!article & i devient : rs.fields("article" & i).value
______________________________________
DarK Sidious

cs_Exploreur · Answer

Salut,

Explique un peu plus ce que tu veux faire...I représente quoi dans ta table ?
"Nu" c'est quoi ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

petiflamand · Answer

Bonjour , le nu représente 18 champs dans une table
j'ai une table nomé groupe et dans cette table j'ai 18 champ
donc le nom est
 nu est un numero de 1 a 11 
j'ai 18 champs et a la place de faire des ligne et ligne je fait une boucles
mais comme les champs sont nommé
rs!article1
rs!article2
rs!article3
rs!article4 
ect.......
donc je voulais avoir un nom de champs automatique
je mes rs!article et la boucle me fournis le numero

petiflamand · Answer

C'est pour le IsNull sa ne marche pas avec rs.fields("article" & i).value

chaibat05 · Answer

Salut, essayes avec ceci: For i = 0 To 17 If IsNull(rs.Fields(i)) Or IsEmpty(rs.Fields(i)) Then MSFlexGrid6.Row = 1 MSFlexGrid6.col = 1 MSFlexGrid6.Text = "*" Else MSFlexGrid6.Row = 1 MSFlexGrid6.col = 1 MSFlexGrid6.Text = rs.Fields(i) End If Next i

I LIKE TO BE HERE WHEN I CAN

petiflamand · Answer

Merci

For i = 1 To 18

6 réponses

Votre réponse

Discussions similaires