Comment paramétrer le recordset d'ACCESS
Résolu/Fermé
Mimi_25
Messages postés
31
Date d'inscription
vendredi 30 mai 2008
Statut
Membre
Dernière intervention
18 novembre 2008
-
30 mai 2008 à 19:58
Mimi_25 Messages postés 31 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 18 novembre 2008 - 4 juil. 2008 à 10:24
Mimi_25 Messages postés 31 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 18 novembre 2008 - 4 juil. 2008 à 10:24
A voir également:
- Access impossible de mettre à jour recordset
- Mettre a jour chrome - Accueil - Applications & Logiciels
- Mettre à jour ses pilotes - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
- Mettre a jour airpods - Guide
2 réponses
Mimi_25
Messages postés
31
Date d'inscription
vendredi 30 mai 2008
Statut
Membre
Dernière intervention
18 novembre 2008
1
26 juin 2008 à 09:37
26 juin 2008 à 09:37
J'ai trouvé une autre solution, pour me passer des recordset. J'utilise les tables c'est plus simple et plus pratique.
Mimi_25
Messages postés
31
Date d'inscription
vendredi 30 mai 2008
Statut
Membre
Dernière intervention
18 novembre 2008
1
3 juin 2008 à 11:56
3 juin 2008 à 11:56
Bon j'ai réussi à paramétrer deux trois trucs !! je n'ai pas d'erreur mais parcontre ma valeur "Event" n'est pas recopiée dans ma table "résulatat" dans la colonne "Event" !! on dirais que l'info se perd ou qu'il manque un bout de code !
Option Compare Database
Dim db As Database
Dim rst As Recordset
Private Sub Commande298_Click()
Set db = OpenDatabase("F:\DATABASE\demo2(en développement).mdb")
Set rst = db.OpenRecordset("Résultat")
With rst
rst.AddNew
!Event.Value = Me.Event.Value
rst.Close
db.Close
End With
MsgBox ("It's Finished !!")
End Sub
Si quelqu'un pouvait me donner un conseil ou une aide s'il vous plaît.
Je vous en remercie d'avance !!
Option Compare Database
Dim db As Database
Dim rst As Recordset
Private Sub Commande298_Click()
Set db = OpenDatabase("F:\DATABASE\demo2(en développement).mdb")
Set rst = db.OpenRecordset("Résultat")
With rst
rst.AddNew
!Event.Value = Me.Event.Value
rst.Close
db.Close
End With
MsgBox ("It's Finished !!")
End Sub
Si quelqu'un pouvait me donner un conseil ou une aide s'il vous plaît.
Je vous en remercie d'avance !!
blux
Messages postés
26491
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 316
26 juin 2008 à 10:14
26 juin 2008 à 10:14
faut juste mettre le addnew APRES avoir rempli la zone...
With rst
!Event.Value = Me.Event.Value
rst.AddNew
rst.Close
With rst
!Event.Value = Me.Event.Value
rst.AddNew
rst.Close
Mimi_25
Messages postés
31
Date d'inscription
vendredi 30 mai 2008
Statut
Membre
Dernière intervention
18 novembre 2008
1
>
blux
Messages postés
26491
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 novembre 2024
4 juil. 2008 à 10:24
4 juil. 2008 à 10:24
Je te remercie quand même Blux pour ton intervention !!