Discussion :

[kabamel]

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

[martii843]

Salut,
Si tu veux que : si prenom ou nom sont vides ça passe aux enregistrements suivants alors supprime ton premier Exit sub et ajoute un test prenom="" or nom="" en plus de tes isnull()

[kabamel]

Salut, voilà mon idée, Si aucuns champs ne sont renseignés on se limite là, par contre si quelques champs sont renseignés, il ne doit enregistrer que les champs qui sont renseignés pas les champs vides. A noté que, je suis pas encore fort en VBA. Merci

[martii843]

Peux tu me donner l'ensemble des champs du formulaire qui vont permettre l'enregistrement dans la table?

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If trim("" & Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & i))="" Or _
    trim("" & Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & i)) = "" Then
    MsgBox "Champs vides"
    Exit Sub

[kabamel]

Ok, je vous télécharge le fichier même.

[kabamel]

rdurupt, le problème avec votre code est que, s'il y a des champs qui ne sont pas renseignés pas d'enregistrement, or je veux que s'il y a au moins un champs renseigné alors on enregistre ce(s) champs.

[martii843]

Ce code fonctionne

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!("Prenom" & i) & _
    Forms!F_Saisie_plusieur_enregistrement!("Nom" & i)) Or _
    Forms!F_Saisie_plusieur_enregistrement!("Prenom" & i) & _
    Forms!F_Saisie_plusieur_enregistrement!("Nom" & i) = "" Then
Else
   r.AddNew
   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

Le test se fait sur Isnull(Prenom & Nom) ou Prenom & Nom =""

[kabamel]

Hé, oui, ça y est
Maintenant, je veux que si un champ renseigné existe dans la table, on arrête l'enregistrement et le curseur se positionne sur le champ en question et après enregistrement on remet tous les champs à vides. Merci pour votre aide.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Else
r.filter ="[Prenom]='" & Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & i) & "' and [Nom]= '" & Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & i) & "'"
set r2= R.OpenRecordset
if r2.eof=false then exit sub
   r.AddNew
   r![Prenom] = Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & i)
   r![Nom] = Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & i)
   r.Update
End If

[kabamel]

Il y a une erreur qui surgite à ce niveau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

r.Filter = "[Prenom]='" & Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & i) & "' and [Nom]= '" & Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & i) & "'"

Erreur d'exécution : "3251"
Opération non autorisée pour ce type d'objet

[Invité]

j'avais fait un test chez moi mais c'est pas grave on va le faire à l'ancienne!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Else
SQL = "Select * from Table1 where [Prenom]='" & Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & I) & "' and [Nom]= '" & Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & I) & "'"
Set R2 = db.OpenRecordset(SQL)
If R2.EOF = False Then r2.close: Exit Sub
    r2.close
   R.AddNew
   R![Prenom] = Forms!F_Saisie_plusieur_enregistrement.Form("Prenom" & I)
   R![Nom] = Forms!F_Saisie_plusieur_enregistrement.Form("Nom" & I)
   R.Update
End If

[kabamel]

Ok, pour le moment on arrive à contrôler les doublons, mais le curseur n'indique pas le champs en question, il faut que le curseur revient sur l'élément qui est déjà dans la table.