Ajouter une série d'enregistrements dans une table en VBA
medbo
Messages postés
570
Statut
Membre
-
medbo Messages postés 570 Statut Membre -
medbo Messages postés 570 Statut Membre -
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.
--
c'est en s'entre-aidons que nous réussirons
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.
--
c'est en s'entre-aidons que nous réussirons
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
