1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Private Sub btnEnregistrer_Click()
Dim lngMaxID As Long
Dim lngNBRecordToCreate As Long
Dim R As Long
Dim SQL As String
Dim DB As DAO.Database
'On prend la valeur max (éviter les doublons)
lngMaxID = Nz(DMax("[Id]", "T_Gestion"), 0)
'on vérifie la valeur de nombre à créer
lngNBRecordToCreate = Nz(Me!txtNbRecord, 0)
If lngNBRecordToCreate Then
Set DB = CurrentDb
For R = 1 To lngNBRecordToCreate
'On incrément l'ID avec le max de ce qui existe
SQL = "INSERT INTO T_Gestion (Id, Constr, Modèle) VALUES ( " & R + lngMaxID & ", '" & Nz(Me!Constr, "") & "', '" & Nz(Me!Modèle, "") & "')"
DB.Execute SQL, dbFailOnError
Next
Me.lstResults.Requery
MsgBox "Modifications enregistrés", vbOKOnly, "Confirmation enregistrement"
If Not DB Is Nothing Then DB.Close
Set DB = Nothing
Me!txtNbRecord = 1
Me!Constr = ""
Me!Modèle = ""
Else
MsgBox "Si c'est 0 que tu entres, comment veux-tu que je créé des enregistrements !!!", vbExclamation, "Pffft"
End If
End Sub |
Partager