Discussion :

[bb62]

Bonjour à tous,

J'ai un petit souci d'enregistrement des données dans une Base Access.

Bon je m'explique : J'ai une TABLE Evenement avec :
Code_Evenement -> numero_automatique
Libellé_Evenement -> texte
Heure_Evenement -> Date/Heure


Dans Un formulaire de Visual Basic 6.0, J'ai deux TextBox (Text1(0) Qui correspond à l'heure de l'evenement, Text2(0) qui correspond au Libellé Evenement.
Comme vous l'avez remarquer se sont des groupes de controles
et j'aimerai que par exemple si j'ai Text1(0), Text1(1), Text1(2), Text2(0), Text2(1) et Text2(2) dans ma table Evenement, j'aimerai avoir :

Code_Evenement Libellé_Evenement Heure_Evenement 1 Val(Text2(0)) Val(Text1(0))
2 Val(Text2(1)) Val(Text1(1))
3 Val(Text2(2)) Val(Text1(2))

J'ai fais le code suivant mais cela ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With rstEvenement
.ActiveConnection = connexion
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Evenement"
.AddNew
!Libellé_Evenement = Text2(i).Text
!Heure_Evenement = Text1(i).Text
.Update
.Close
End With

Pouvez-vous m'aider?

Merci d'avance.

[jacma]

Code :

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

1
2
3
...
!Libellé_Evenement = Text2(i).Text
...

A la volée,

Code :

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

rstEvenement.fields("Libellé_Evenement") = ...

devrait fonctionner (ou avec l'index du champ en place de son nom). Je n'ai pas bien regardé le reste, mais essaies déjà celà.

[bb62]

J'ai essayé ton code mais cela ne fonctionne pas.

J'ai fais un exemple :

Heure_Evenement Libellé_Evenement

Texte1(0) = 10:10 Texte2(0) = essai1
Texte1(1) = 11:11 Texte2(1) = essai2
Texte1(2) = 12:12 Texte2(2) = essai3

Quand je click sur le bouton enregistrer, j'enregistre.
Je vais voir dans ma table Evenement sous Access 2003 et je vois apparaître ça :

Code_Evenement Libellé_Evenement Heure_Evenement
1 essai3 12:12

Alors que moi je voudrais avoir :

Code_Evenement Libellé_Evenement Heure_Evenement
1 essai1 10:10
2 essai2 11:11
3 essai3 12:12


J'espere avoir été le plus clair possible.

Merci d'avance.

[ThierryAIM]

elle est ou la boucle For i = 0 to 2 ?

ton code n'ajoute qu'un seul enregistrement

[bb62]

J'avais fais un for :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
With rstEvenement
.ActiveConnection = connexion
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Evenement"
.AddNew
 
For i = 0 To Text2.Count
For j = 0 To Text1.Count
 
.Fields("Libellé_Evenement") = Text2(i).Text
.Fields("Heure_Evenement") = Text1(j).Text
!Code_MC = recup
.Update
 
Next
Next
.Close
End With

Mais il y a une erreur sur:
.Fields("Heure_Evenement") = Text1(j).Text

Il me dit le type ne correspond pas.

Nb : Pour info Text1(j).Text est sous la forme "hh:mm"

[ThierryAIM]

quel est le format du champ Heure_Evenement dans la base ?

[bb62]

le format est : Heure, abrégé
et le masque de saisi est : 00:00;0;_