Vérification des enregistrements d'un formulaire continu.

**fifidibosco** · 18/07/2018, 11h16

Bonjour,

j'ai un formulaire en mode continu dans le quel il est possible de modifier certains champs.
J'aimerais que tous les enregistrements soient vérifiés à la fermeture du formulaire afin d'éviter les erreurs dues aux modifications.
La cerise sur le gâteau serait d'indiquer le champ incriminé dans la liste des enregistrements.
Est-ce possible ?

Par avance merci,
fifi

**dok flint** · 18/07/2018, 11h52

Bonjour,
En fait tu voudrais tester la valeur de chaque champs et renvoyer un message d'erreur, ou passer par la mise en forme conditionnelle.
Quel type d'errur de modification il s'agit?
A+

**fifidibosco** · 18/07/2018, 15h29

Bonjour doc flint

pour l'instant j'ai mis ce code sur le bouton qui ferme le formulaire :

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
Private Sub Commande18_Click()
 
DoCmd.GoToRecord , , acFirst   >>> atteindre le premier enregistrement du formulaire
 
Conditions à vérifier du type if then else pour les champs modifiables
 
 
SuIvant:
 
On Error GoTo ErRe >>>>> pour empêcher l'affichage du message d'erreur lorsqu'on a atteint le dernier enregistrement
 
DoCmd.GoToRecord , , acNext >>> atteindre l'enregistrement suivant
 
Condition à vérifier dans les enregistrements suivants, les mêmes que pour le premier enregistrement
 
GoTo SuIvant  >>>> pour créer la boucle
 
ErRe:
 
 
End Sub

ça fonctionne bien, même si ce n'est pas trop "académique"

Ce que je voudrais bien maintenant, en effet, c'est que la ligne de l'enregistrement concerné par l'erreur passe en surbrillance, ou d'une autre couleur.

J'ai fait des essais avec la mise en forme conditionnelle, mais pour l'instant je bute sur la façon provoquer cette mise en forme conditionnelle sur un seul enregistrement.

Fifi

**dok flint** · 19/07/2018, 17h01

Bonjour,
Regarde un peu cette discussion :
https://www.developpez.net/forums/d1...tionnelle-vba/
A+

**fifidibosco** · 20/07/2018, 02h35

bonsoir doc flint

en fait ce que je cherchais c'était de mettre en surbrillance, dans un enregistrement, dans une ligne donc, uniquement les champs qui sont concernés par l'erreur.
J'ai ajouté un champ dans la table que j'ai appelé sejourerror avec la tetxtbox correpondante dans le formulaire, txt_sejourerror.
La procédure qui vérifie les enregistrements, lorsqu'elle rencontre une erreur, en plus de signaler l'erreur par une msgbox, écrit un code dans ce champ txt_sejourerror. Par exemple, si la date de début n'est pas renseignée elle écrit errdeb dans ce champ, ou errfin pour la date de fin ou errdates s'il y a un problème de compatibilité entre les dates comme par exemple une date de fin antérieure à une date de début.
Ensuite il suffit de faire des mises en forme conditionnelles des champs date avec des expressions sur le champ txt_sejourerror.
Pour le champ date de début, s'il y a errdeb dans txt_sejourerror, le fond devient rouge...

La procédure complète donne ça :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
 
Private Sub bt_CloseForm_Click()
 
 
DoCmd.GoToRecord , , acFirst
 
txt_SejourError.Value = ""
 
 
If txt_DebutSejour.Value = "" Or IsNull(txt_DebutSejour) Then
MsgBox "La date du début du séjour de  " & txt_IdClient.Value & "  doit être renseignée.", vbCritical, "Saisie manquante."
txt_SejourError.Value = "errdebut"
txt_DebutSejour.SetFocus
Exit Sub
End If
 
If txt_finSejour.Value = "" Or IsNull(txt_finSejour) Then
MsgBox "La date de la fin du séjour de  " & txt_IdClient.Value & "  doit être renseignée.", vbCritical, "Saisie manquante."
txt_SejourError.Value = "errfin"
txt_finSejour.SetFocus
Exit Sub
End If
 
If txt_finSejour.Value - txt_DebutSejour.Value < 1 Then
MsgBox "Les dates de début et de fin du séjour de  " & txt_IdClient.Value & "  sont incompatibles." & vbCr & "Un séjour dure, au moins, une nuit." & vbCr & vbCr & "Vérifiez et corrigez.", vbCritical, " Erreur sur les dates de séjour."
txt_SejourError.Value = "errdates"
txt_RmkSejour.SetFocus
Exit Sub
End If
 
If lt_StatutSejour.Value = "Séjour annulé" And (txt_RmkSejour.Value = "" Or IsNull(txt_RmkSejour)) Then
MsgBox "Si le séjour de  " & txt_IdClient.Value & "  est annulé, indiquez les conditions de l'annulation dans le champ ''Remarques''", vbCritical, "Saisie manquante."
txt_SejourError.Value = "errAnnul"
txt_RmkSejour.SetFocus
Exit Sub
End If
 
 
SuIvant:
On Error GoTo ErRe
 
 
DoCmd.GoToRecord , , acNext
 
txt_SejourError.Value = ""
 
 
If txt_DebutSejour.Value = "" Or IsNull(txt_DebutSejour) Then
MsgBox "La date du début du séjour de  " & txt_IdClient.Value & "  doit être renseignée.", vbCritical, "Saisie manquante."
txt_SejourError.Value = "errdebut"
txt_DebutSejour.SetFocus
Exit Sub
End If
 
If txt_finSejour.Value = "" Or IsNull(txt_finSejour) Then
MsgBox "La date de la fin du séjour de  " & txt_IdClient.Value & "  doit être renseignée.", vbCritical, "Saisie manquante."
txt_SejourError.Value = "errfin"
txt_finSejour.SetFocus
Exit Sub
End If
 
If txt_finSejour.Value - txt_DebutSejour.Value < 1 Then
MsgBox "Les dates de début et de fin du séjour de  " & txt_IdClient.Value & "  sont incompatibles." & vbCr & "Un séjour dure, au moins, une nuit." & vbCr & vbCr & "Vérifiez et corrigez.", vbCritical, " Erreur sur les dates de séjour."
txt_SejourError.Value = "errdates"
txt_finSejour.SetFocus
Exit Sub
End If
 
If lt_StatutSejour.Value = "Séjour annulé" And (txt_RmkSejour.Value = "" Or IsNull(txt_RmkSejour)) Then
MsgBox "Si le séjour de  " & txt_IdClient.Value & "  est annulé, indiquez les conditions de l'annulation dans le champ ''Remarques''", vbCritical, "Saisie manquante."
txt_SejourError.Value = "errAnnul"
txt_RmkSejour.SetFocus
Exit Sub
End If
 
 
GoTo SuIvant
 
ErRe:
 
DoCmd.Close
 
End Sub