Salut à tous, comme dit le titre, je veux enregistrer plusieurs enregistrement dans une table, mais le problème que j'ai, si l'on ne remplis que deux champs lors de l'enregistrement les champs vides aussi s'enregistrent, je veux limiter seulement pour des champs qui sont renseignés. Voici le bout de code que j'ai pour le moment :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Enregistrer_Click()
Dim db As DAO.Database
Set db = CurrentDb
Dim r As DAO.Recordset
Set r = db.OpenRecordset("Table1")
Const NOMRE_LIGNE As Long = 5
 
Dim i As Long
For i = 1 To NOMRE_LIGNE
If IsNull(Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & i)) Or _
    IsNull(Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & i)) Then
    MsgBox "Champs vides"
    Exit Sub
Else
   r.AddNew
   'Ici peut être des infos comme la semaine en cours, le code de l'usager
   r![Prenom] = Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & i)
   r![Nom] = Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & i)
   r.Update
End If
Next i
MsgBox "Terminé"
Me.Prenom1.SetFocus
End Sub
Merci pour votre aide