Bonjour, voici ma situation: J'ai une table "RegistreBillet", avec les champs
NoBillet et Date, et je souhaite insérer des données en passant par vb. Je
veux qu'en cliquant sur un bouton de mon formulaire (formulaire basé sur ma
table décrite plus haut) une boite de dialogue apparaissent me disant d'entré
le premier numero de billet ainsi que le dernier numero (exemple: #billet
DE: 50 A 55) et une date, et que c'est information s'intégre dans ma table
RegistreBillet. Donc, il faudrait que les billets 50,51,52,53,54 et 55
s'intégre dans ma table avec la date donnée (boucle). Comment y parvenir en
passant par le code VB?
merci beaucoup ça fait 2 jours que je suis la-dessus et je n'y arrive pas
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ze_titi
Bonjour,
un petit bout de code (non testé) pour t'aider (peut-être)...
Dim nombreDébut As Integer, nombreFin As Integer, i As Integer Dim dateEntrée As String
nombreDébut = CInt(InputBox("Saisissez le numéro du premier billet:")) nombreFin = CInt(InputBox("Saisissez le numéro du dernier billet:")) dateEntrée = CDate(InputBox("Saissez la date:"))
For i = nombreDébut To nombreFin currentdb.Execute "INSERT INTO [Registrebillet] VALUES(" & i & ",'" & datentrée & "')" Next
Ce code est à adapter à ta situation mais il devrait te donner une bonne base
-- Cordialement,
ze_titi
Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ
Bonjour, voici ma situation: J'ai une table "RegistreBillet", avec les champs NoBillet et Date, et je souhaite insérer des données en passant par vb. Je veux qu'en cliquant sur un bouton de mon formulaire (formulaire basé sur ma table décrite plus haut) une boite de dialogue apparaissent me disant d'entré le premier numero de billet ainsi que le dernier numero (exemple: #billet DE: 50 A 55) et une date, et que c'est information s'intégre dans ma table RegistreBillet. Donc, il faudrait que les billets 50,51,52,53,54 et 55 s'intégre dans ma table avec la date donnée (boucle). Comment y parvenir en passant par le code VB?
merci beaucoup ça fait 2 jours que je suis la-dessus et je n'y arrive pas
Bonjour,
un petit bout de code (non testé) pour t'aider (peut-être)...
Dim nombreDébut As Integer, nombreFin As Integer, i As Integer
Dim dateEntrée As String
nombreDébut = CInt(InputBox("Saisissez le numéro du premier billet:"))
nombreFin = CInt(InputBox("Saisissez le numéro du dernier billet:"))
dateEntrée = CDate(InputBox("Saissez la date:"))
For i = nombreDébut To nombreFin
currentdb.Execute "INSERT INTO [Registrebillet] VALUES(" & i & ",'"
& datentrée & "')"
Next
Ce code est à adapter à ta situation mais il devrait te donner une bonne base
--
Cordialement,
ze_titi
Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ
Bonjour, voici ma situation: J'ai une table "RegistreBillet", avec les champs
NoBillet et Date, et je souhaite insérer des données en passant par vb. Je
veux qu'en cliquant sur un bouton de mon formulaire (formulaire basé sur ma
table décrite plus haut) une boite de dialogue apparaissent me disant d'entré
le premier numero de billet ainsi que le dernier numero (exemple: #billet
DE: 50 A 55) et une date, et que c'est information s'intégre dans ma table
RegistreBillet. Donc, il faudrait que les billets 50,51,52,53,54 et 55
s'intégre dans ma table avec la date donnée (boucle). Comment y parvenir en
passant par le code VB?
merci beaucoup ça fait 2 jours que je suis la-dessus et je n'y arrive pas
un petit bout de code (non testé) pour t'aider (peut-être)...
Dim nombreDébut As Integer, nombreFin As Integer, i As Integer Dim dateEntrée As String
nombreDébut = CInt(InputBox("Saisissez le numéro du premier billet:")) nombreFin = CInt(InputBox("Saisissez le numéro du dernier billet:")) dateEntrée = CDate(InputBox("Saissez la date:"))
For i = nombreDébut To nombreFin currentdb.Execute "INSERT INTO [Registrebillet] VALUES(" & i & ",'" & datentrée & "')" Next
Ce code est à adapter à ta situation mais il devrait te donner une bonne base
-- Cordialement,
ze_titi
Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ
Bonjour, voici ma situation: J'ai une table "RegistreBillet", avec les champs NoBillet et Date, et je souhaite insérer des données en passant par vb. Je veux qu'en cliquant sur un bouton de mon formulaire (formulaire basé sur ma table décrite plus haut) une boite de dialogue apparaissent me disant d'entré le premier numero de billet ainsi que le dernier numero (exemple: #billet DE: 50 A 55) et une date, et que c'est information s'intégre dans ma table RegistreBillet. Donc, il faudrait que les billets 50,51,52,53,54 et 55 s'intégre dans ma table avec la date donnée (boucle). Comment y parvenir en passant par le code VB?
merci beaucoup ça fait 2 jours que je suis la-dessus et je n'y arrive pas
