ajouter une série d'enregistrements dans une table en VBA Fermé

Question

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.



Configuration: Windows 7 / Firefox 11.0

medbo · Answer

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

Ajouter une série d'enregistrements dans une table en VBA

1 réponse

Discussions similaires