Ajouter une série d'enregistrements dans une table en VBA
medbo
Messages postés
551
Date d'inscription
Statut
Membre
Dernière intervention
-
medbo Messages postés 551 Date d'inscription Statut Membre Dernière intervention -
medbo Messages postés 551 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai une petite base de données access qui est composée de :
un formulaire qui contient :
un champ de saisie "texte1" pour la saisie de numéro de série1 (disons 100)
un champ de saisie "texte2" pour la saisie de numéro de série2 (disons 150)
la différence entre les deux valeurs est le nombre d'enregistrement que je souhaite réaliser.
un bouton de validation pour ajouter d'un seul clic dessus tout les enregistrements en question (ici 150-100 = 50) et qui commencent par 100 et ce terminent par 150 dans une table qui contient les numéros de série de 100 à 150
je ne sais pas comment faire ça par un code VBA que je vais associer au clic sur le bouton de validation.
j'ai une petite base de données access qui est composée de :
un formulaire qui contient :
un champ de saisie "texte1" pour la saisie de numéro de série1 (disons 100)
un champ de saisie "texte2" pour la saisie de numéro de série2 (disons 150)
la différence entre les deux valeurs est le nombre d'enregistrement que je souhaite réaliser.
un bouton de validation pour ajouter d'un seul clic dessus tout les enregistrements en question (ici 150-100 = 50) et qui commencent par 100 et ce terminent par 150 dans une table qui contient les numéros de série de 100 à 150
je ne sais pas comment faire ça par un code VBA que je vais associer au clic sur le bouton de validation.
A voir également:
- Ajouter une série d'enregistrements dans une table en VBA
- Table ascii - Guide
- Table des matières word - Guide
- Ajouter une signature sur word - Guide
- Ajouter une liste déroulante excel - Guide
- Ajouter une application au démarrage - Guide
1 réponse
Voici un code que j'ai utiliser mais il ne fonctionne pas.
Private Sub Commande4_Click()
Dim DBTemp As DAO.Database
Dim Rec As DAO.Recordset
Set DBTemp = CurrentDb
Set Rec = DBTemp.OpenRecordset("Feuil1")
req = "SELECT MAX(nn) FROM feuil1"
Set rs = DBTemp.OpenRecordset(req)
If IsNull(rs.Fields(0).Value) Then
last = Me.Texte1.Value
Else
last = rs.Fields(0).Value + 1
End If
If (last < Me.Texte2.Value) Then
last = Me.Texte2.Value & last
End If
Rec.AddNew
Rec.Update
End Sub
dites mois s'il est juste ou ce que je dois faire.
merci pour votre aide
Private Sub Commande4_Click()
Dim DBTemp As DAO.Database
Dim Rec As DAO.Recordset
Set DBTemp = CurrentDb
Set Rec = DBTemp.OpenRecordset("Feuil1")
req = "SELECT MAX(nn) FROM feuil1"
Set rs = DBTemp.OpenRecordset(req)
If IsNull(rs.Fields(0).Value) Then
last = Me.Texte1.Value
Else
last = rs.Fields(0).Value + 1
End If
If (last < Me.Texte2.Value) Then
last = Me.Texte2.Value & last
End If
Rec.AddNew
Rec.Update
End Sub
dites mois s'il est juste ou ce que je dois faire.
merci pour votre aide