Ajout d'enregistrement table access en VBA
Résolu/Fermé
medbo
Messages postés
551
Date d'inscription
lundi 18 avril 2005
Statut
Membre
Dernière intervention
24 mars 2019
-
6 mars 2013 à 16:07
pfe - 1 mars 2016 à 22:13
pfe - 1 mars 2016 à 22:13
A voir également:
- Ajouter un enregistrement dans une table access vba
- Table ascii - Guide
- Table des matières word - Guide
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Table des annexes word ✓ - Forum Word
- Ajouter une signature sur word - Guide
1 réponse
blux
Messages postés
26814
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 avril 2025
3 335
6 mars 2013 à 17:01
6 mars 2013 à 17:01
Salut,
tu peux regarder ça et t'en inspirer pour commencer.
Ensuite, il suffit de mettre une boucle pour générer les numéros entre les deux bornes.
tu peux regarder ça et t'en inspirer pour commencer.
Ensuite, il suffit de mettre une boucle pour générer les numéros entre les deux bornes.
6 mars 2013 à 19:58
voici le code que j'ai utilisé :
Private Sub Commande4_Click()
Dim rst As Recordset
Dim DBTemp As DAO.Database
Set DBTemp = CurrentDb
Set rst = DBTemp.OpenRecordset("table1")
With rst
rst.AddNew
rst("série").Value = Me.Texte1.Value
If rst("série").Value < Me.Texte2.Value Then
Do While rst("série").Value + 1
Loop
End If
End With
MsgBox ("c'est fait !!")
End Sub
ça ne rajoute que la valeur de texte1
je vous informe que je suis novice en VBA;
je ne sais pas comment mettre une boucle.
Modifié par blux le 7/03/2013 à 08:58
Tu as déjà fait un truc qui tient la route, c'est tout à fait encrourageant !
Pour la suite, on peut faire un truc comme ça (à corriger en fonction des erreurs de syntaxe qui j'aurais pu commettre) :
Private Sub Commande4_Click() Dim rst As Recordset Dim DBTemp As DAO.Database Set DBTemp = CurrentDb Set rst = DBTemp.OpenRecordset("table1") With rst for i = Me.Texte1.Value to Me.Texte2.Value rst("série").Value = i rst.AddNew next End With MsgBox ("c'est fait !!") End SubLe truc va quand même être de s'assurer que les insertions dans 'table1' sont correctement gérées au niveau clé primaire.