Ajout d'enregistrement table access en VBA

Résolu

medbo Messages postés 551 Date d'inscription Statut Membre Dernière intervention -
pfe - 1 mars 2016 à 22:13

Bonjour,

je suis entrain de faire une petite application en access. je suis coincé devant un problème que j'explique comme ceci :

dans l'application il y a un formulaire qui contient 02 champs de texte (texte1 et texte2)

et il y a une table (table1) qui reçois les valeurs que je vais saisir dans "texte1" et "texte2" dans la colonne "série" ( les valeurs sont de "texte1.value" à "texte2.value" ). exemple :

si je met dans texte1 la valeur 10 et dans texte2 la valeur 15, alors les valeurs qui vont être enregistrées dans la table1 dans la colonne série sont 10, 11, 12, 13, 14, 15 (soit 16 enregistrements)

je ne sais pas comment faire cela en VBA.

si quelqu'un sais comment s y prendre alors sont aide m'est très précieuse. J'ai besoin de votre aide.

merci à tout ceux qui m'aideront.

Afficher la suite

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
Hns-self-wan-access-ipv6 ✓ - Forum Réseau

1 réponse

Réponse 1 / 1

blux Messages postés 27153 Date d'inscription Statut Modérateur Dernière intervention 3 362

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.

medbo Messages postés 551 Date d'inscription Statut Membre Dernière intervention 29

Merci blux, c'est gentille de m'avoir répondu.

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.

blux Messages postés 27153 Date d'inscription Statut Modérateur Dernière intervention 3 362

je vous informe que je suis novice en VBA;
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 Sub

Le truc va quand même être de s'assurer que les insertions dans 'table1' sont correctement gérées au niveau clé primaire.

Discussions similaires

access - récupérer la valeur d'un champ

transférer les données d'une table vers une autre

Importer des données d'une table à une autre table

Mise à jour d'une table avec un requête

Récupération/insertion valeurs Access VBA

Modification champs table à partir d'un formulaire access 2013

Votre réponse

Discussions similaires