Entrer/Sortir plusieurs donnees

Question

Bonjour,

Novice en VB, je desirerais envoyer plusieurs données de meme type(que je recupère sous forme textbox, genre date1, date2,...) vers une table access et inversement, je voudrais ressortir ces informations dans des zone de texte...
Je bloque car je ne sais pas comment affecter à ces zones de textes des identifiants me permettant de boucler.
Si vous pouvez me donner un coup de main, merci.
Exemple

Sub affichGarde()
Dim ann As String
Dim jeu As adodb.Recordset
Dim critere As String
Dim i As Integer

ann =  ConsultGarde.Txt_Année

critere = "select * from garde"critere critere & " where annee_garde " & ann
'MsgBox critere
Set jeu = New adodb.Recordset
jeu.Open critere, connec, adOpenDynamic, adLockBatchOptimistic
jeu.MoveFirst
i = 1
While i <= 4
    ConsultGarde.Txt_Date1 = jeu.Fields("date").Value
 en fait c'est ici car j'ai plusiseurs Txt_Date... 
    jeu.MoveNext
    i  = i + 1
jeu.Close

End Sub

Merci encore, si besoin de plus d'infos mailez moi sans hesitation.

KC62 · Answer

Salut ! 
Hum a premiere vu je ne vois qu'un seul moyen !

Sé de créer un groupe de controle pour tes textbox
créer en une et fait un copier il va te demandé si tu veux créer un groupe de controle, tu accepte evidemment.

la pour appelé té textbox une boucle For i suffit : 
for i = 1 to 4 
TExt(i).text = MaVar
next i 

par contre pour tes champs la C plus dure ( fin C different ) !
il faut donc les nommé date1, date2 etc etc .... 
et donc dans ta requete sa donne 

For i = 1 to 4 
Champ = "date" & i SQL "INSERT INTO TABLE SET " & Champ & " " & Text(i).text"
next i 

et linverse pour ressortir tes données ... 

Voila jespere tavoir dépanné  ! 

KC62 

On a pas toutes les solutions de tous les probleme mais chaque probleme à ses solutions ...

Entrer/Sortir plusieurs donnees

1 réponse

Discussions similaires