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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
| Option Compare Database
Option Explicit
' ##############################################################################
Private Sub Form_Open(Cancel As Integer)
' -----------------------------------------------------------------------------
' Ouverture du formulaire.
' -----------------------------------------------------------------------------
SetValidation (False) ' Initialisation.
'Nouvel enregistrement
DoCmd.GoToRecord , , acNewRec
End Sub
' ##############################################################################
Private Sub Form_BeforeUpdate(Cancel As Integer)
' -----------------------------------------------------------------------------
' Cette procédure est lancée quand Access tente d'ecrire la ligne dans la table.
' On ne l'autorise que si on est passé par le bouton validé (le signe de ce point
' de passage est GetValidation() = True).
' L'interêt de cette procédure est de bloquer toutes les "sauvegardes
' sauvages" de l'enregistrement (ajout d'une nouvelle ligne, tir, filtre...)
' -----------------------------------------------------------------------------
' Cancel = True rend impossible la validation.
Cancel = Not GetValidation()
' Si GetValidation = True, on est passé par la validation Bouton
' sinon, on refuse l'enregistrement.
End Sub
' ##############################################################################
Private Sub Form_Unload(Cancel As Integer)
' -----------------------------------------------------------------------------
' quand on ferme la fiche, on supprime l'enregistrement eventuellement ajouté
' sauf si il a été validé correctement (c'est à dire si GetValidation() = True)
' -----------------------------------------------------------------------------
If Not GetValidation Then
DoCmd.SetWarnings False ' Désactive les messages d'avertissment (ici le message avant suppression)
On Error Resume Next ' Masque l'erreur eventuelle "Rien à supprimer"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True ' Réactive les messages d'avertissment
End If
End Sub
' ##############################################################################
Private Sub BNouveauLabo_Click()
' -----------------------------------------------------------------------------
' Clic de l'utilisateur sur le bouton Valider.
' Test si l'enregistrement est validable (contenu des champs).
' Si OK, on sauvegarde l'enregistrement, et on ferme le formulaire.
' -----------------------------------------------------------------------------
On Error GoTo BNouveauLabo_Click_Error
' On teste les zones obligatoires :
If IsNull(Me.NomCompany) Then
MsgBox ("You have to name the lab!")
Me.NomCompany.SetFocus
Exit Sub ' Quitte la procédure
End If
If IsNull(Me.IndepCaptif) Then
MsgBox ("You have to indicate if it is about a captive or independent lab!")
Me.IndepCaptif.SetFocus
Exit Sub ' Quitte la procédure
End If
If IsNull(Me.CountryCompany) Then
MsgBox ("You have to indicate in what a country is the laboratory!")
Me.CountryCompany.SetFocus
Exit Sub ' Quitte la procédure
End If
' On mémorise l'action de valider ce formulaire (pour ne pas supprimer la ligne en fermant le formulaire)
SetValidation (True)
' Tente de sauvegarder l'enregistrement
DoCmd.RunCommand acCmdSaveRecord
SetCodeCompany (Me.CodeCompany)
DoCmd.Close ' ferme le formulaire
DoCmd.OpenForm ("COMPANY")
Exit Sub
BNouveauLabo_Click_Error:
MsgBox Err.Description
SetValidation (False) ' Rétablit cet indicateur si la sauvegarde de l'enregistrement à échoué.
End Sub
' ##############################################################################
Private Sub BAnnuler_Click()
On Error GoTo BAnnuler_Click_Error
If MsgBox("Are you sure to want to delete all the data contained in this form???", _
vbYesNo, "Confirmation") = vbYes Then
DoCmd.Close ' ferme le formulaire
End If
Exit Sub
BAnnuler_Click_Error:
MsgBox Err.Description
DoCmd.SetWarnings True ' Réactive les messages d'avertissment
End Sub
Private Sub txtARPCode_AfterUpdate()
'On ne teste la présence de doublons que si le code n'est pas Null
If Not IsNull(Me.txtARPCode) Then
With Me.RecordsetClone
.FindFirst "ARPCode =" & Me.txtARPCode
If Not .NoMatch Then
'Message d 'erreur
MsgBox "The ARP-ID " & Me.txtARPCode & " already exist!" & SL() & _
"Verify that you did not make error and that the company" & SL() & _
"which you try to create does not already exist"
Me.txtARPCode.SetFocus
End If
End With
End If
End Sub |
Vérification de données en double
Répondre avec citation
,
Envoyé par Domi2
je comprends pas bien 
Partager