Discussion :

[Eltom_octo]

Bonjour à tous gens du forum Développez.com

Je sollicite votre aide afin d'identifier, contourner ou régler mon problème. Prenez note que je débute en Access et que c'est ma première BD que je monte tout seul de A à Z. J'ai bien entendue souvent trouver mes solution à même se forum

J'ai une BD Access que je suis en train de créer. Tout mes formulaires fonctionnes et la grande majorités de mes opérations se font par code VBA.

Mon problème est le suivant : J'ai un formulaire dans lequel je sais différente données de projet (nom du client, le contact, détail du projet, remarque...). Une fois le formulaire complété, j'effectue une vérification, par code VBA, pour valider que tout les champs et zone de liste déroulante on bel et bien été saisie et qu'ils ne sont pas Null à l'aide d'un if, ElseIF. La procédure fonctionne très bien sauf rendu à un certain point Access crash systématiquement et je n'Arrive pas à trouver pourquoi.

J'aimerais savoir si vous auriez une solution à me proposer? Est-ce que quelqu'un a déjà rencontré le problème et qu'avez vous fait pour le corriger ? Avez vous des solution de "contournement" du problème comme par exemple valider mes champs d'une autre manières ?

Voici mon code d'événement Click.

Je vous remercie d'avance pour toute l'aide que vous pourriez m'apporter.

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
85
86
87
88
89
90
Private Sub But_Sauvegarder_Click()
 
'-------------------------------------------------------------------------------------------------------------------
' Validation des entré saisi dans les champs avant l'ajout des données saisi à la table T_Dossier
'-------------------------------------------------------------------------------------------------------------------
    If IsNull(Me.Mod_Compagnie) = True Then
    MsgBox "Veuillez sélectionner une compagnie."
    Exit Sub
        ElseIf IsNull(Me.Mod_Region) = True Then
        MsgBox "Veuillez sélectionner la région."
        Exit Sub
            ElseIf IsNull(Me.Txt_NoInterne) = True Then
            MsgBox "Veuillez saisir le numéro de dossier."
            Exit Sub
                ElseIf IsNull(Me.[Txt_Titre]) = True Then
                MsgBox "veuillez saisr un titre pour ce dossier."
                Exit Sub
                    ElseIf IsNull(Me.Mod_Type_Dossier) = True Then
                    MsgBox "Veuillez sélectionner un type pour ce dossier."
                    Exit Sub
                        ElseIf IsNull(Me.Txt_NoAppelOffre) = True Then
                        MsgBox "Veuillez saisir un numéro d'appel d'offre pour ce dossier."
                        Exit Sub
                            ElseIf IsNull(Me.Txt_NoExterne) = True Then
                            MsgBox "Veuillez saisir un numéro de dossier externe pour ce dossier."
                            Exit Sub
                                ElseIf IsNull(Me.Mod_Responsable) = True Then
                                MsgBox "Veuillez sélectionner un responsable pour ce dossier"
                                Exit Sub
                                    ElseIf IsNull(Me.Mod_Type_Soumission) = True Then
                                    MsgBox "Veuillez sélectionner un type de soumission pour ce dossier"
                                    Exit Sub
                                        ElseIf IsNull(Me.TXTDateOuverture) = True Then
                                        MsgBox "Veuillez choisir une date d'ouverture de dossier."
                                        Exit Sub
                                            ElseIf IsNull(Me.Mod_ChampActivite) = True Then
                                            MsgBox "Veuillez sélectionner un champs d'Avtivité pour ce dossier."
                                            Exit Sub
                                                ElseIf IsNull(Me.Mod_Client) = True Then
                                                MsgBox "Veuillez sélectionner un client pour ce dossier."
                                                Exit Sub
                                                    ElseIf IsNull(Me.Mod_Division) = True Then
                                                    MsgBox "Veuillez sélectionner une division pour ce dossier."
                                                    Exit Sub
                                                        ElseIf IsNull(Me.Mod_Contact) = True Then
                                                        MsgBox "Veuillez sélectionner un contact pour ce dossier"
                                                        Exit Sub
    End If
 If Me.Activation_simultanee = True Then
    If IsNull(Me.Mod_Statut) = True Then
    MsgBox " Veuillez sélectionner le statut du dossier."
    Exit Sub
        ElseIf IsNull(Me.Txt_Date_DebutDossier) = True Then
        MsgBox "Veuillez choisir la da de début du dossier."
        Exit Sub
    Else
    End If
 Else
 End If
 
'-------------------------------------------------------------------------------------------------------------------
' Ajout des information saisi à la table T_Dossier
'-------------------------------------------------------------------------------------------------------------------
 
    Set t = CurrentDb.OpenRecordset("T_Dossier", DB_OPEN_DYNASET)
        t.AddNew
        t("FK_T_Compagnie") = Me.[Mod_Compagnie]
        t("FK_T_Region") = Me.[Mod_Region]
        t("No_Dossier_Interne") = Me.[Txt_NoInterne]
        t("No_Dossier_Externe") = Me.[Txt_NoExterne]
        t("Titre_Dossier") = Me.[Txt_Titre]
        t("FK_T_TypeDossier") = Me.[Mod_Type_Dossier]
        t("No_Appel_offre") = Me.[Txt_NoAppelOffre]
        t("FK_T_TypeDeSoumission") = Me.Mod_Type_Soumission
        t("Date_Dépot") = Me.[DateDépot]
        t("FK_T_ChampActivite") = Me.[Mod_ChampActivite]
        t("Remarques") = Me.[Txt_Remarque]
        t("Date_Ouverture_Dossier") = Me.[TXTDateOuverture]
        t("FK_ID_T_Client") = Me.[Mod_Client]
        t("FK_T_Division") = Me.[Mod_Division]
        t("FK_T_Statut") = Me.[Mod_Statut]
        t("Date_Début") = Me.[Txt_Date_DebutDossier]
        t("Date_Fin") = Me.[Txt_Date_FinDossier]
        t("FK_T_Raison_Fermeture_Dossier") = Me.[Mod_Raison]
        t("Fk_ID_T_Contact") = Me.[Mod_Contact]
        t("FK_ID_T_Responsable") = Me.[Mod_Responsable]
        t.Update
        t.MoveLast
        Set t = Nothing
End Sub

[micniv]

Bonjour,
je crois savoir qu'il y a un nombre fini (8 ?) de if imbriqués autorisé

et dans ton cas tu n'as pas besoin de les imbriquer :

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
Private Sub But_Sauvegarder_Click()
 
'-------------------------------------------------------------------------------------------------------------------
' Validation des entré saisi dans les champs avant l'ajout des données saisi à la table T_Dossier
'-------------------------------------------------------------------------------------------------------------------
    If IsNull(Me.Mod_Compagnie)  Then                 ' inutile de renseigner = TRUE
    MsgBox "Veuillez sélectionner une compagnie."
    Exit Sub
    end if
 
        If IsNull(Me.Mod_Region)  Then
        MsgBox "Veuillez sélectionner la région."
        Exit Sub
        end if
 
        ... etc
 
 
 If Me.Activation_simultanee Then
    If IsNull(Me.Mod_Statut)  Then
        MsgBox " Veuillez sélectionner le statut du dossier."
        Exit Sub
    end if 
 
    If IsNull(Me.Txt_Date_DebutDossier)  Then
        MsgBox "Veuillez choisir la da de début du dossier."
        Exit Sub
    End If
 
 End If
 
'-------------------------------------------------------------------------------------------------------------------
' Ajout des information saisi à la table T_Dossier
'-------------------------------------------------------------------------------------------------------------------
 
    Set t = CurrentDb.OpenRecordset("T_Dossier", DB_OPEN_DYNASET)
        t.AddNew
        t("FK_T_Compagnie") = nz(Me.[Mod_Compagnie])    ' utiliser la fonction  NZ() our chaque valeur
        t("FK_T_Region") = Me.[Mod_Region]
        t("No_Dossier_Interne") = Me.[Txt_NoInterne]
        t("No_Dossier_Externe") = Me.[Txt_NoExterne]
        t("Titre_Dossier") = Me.[Txt_Titre]
        t("FK_T_TypeDossier") = Me.[Mod_Type_Dossier]
        t("No_Appel_offre") = Me.[Txt_NoAppelOffre]
        t("FK_T_TypeDeSoumission") = Me.Mod_Type_Soumission
        t("Date_Dépot") = Me.[DateDépot]
        t("FK_T_ChampActivite") = Me.[Mod_ChampActivite]
        t("Remarques") = Me.[Txt_Remarque]
        t("Date_Ouverture_Dossier") = Me.[TXTDateOuverture]
        t("FK_ID_T_Client") = Me.[Mod_Client]
        t("FK_T_Division") = Me.[Mod_Division]
        t("FK_T_Statut") = Me.[Mod_Statut]
        t("Date_Début") = Me.[Txt_Date_DebutDossier]
        t("Date_Fin") = Me.[Txt_Date_FinDossier]
        t("FK_T_Raison_Fermeture_Dossier") = Me.[Mod_Raison]
        t("Fk_ID_T_Contact") = Me.[Mod_Contact]
        t("FK_ID_T_Responsable") = Me.[Mod_Responsable]
        t.Update
        ' t.MoveLast             ' <= inutile
        Set t = Nothing
End Sub

En espérant que ça suffise.
Cordialement

[Eltom_octo]

J'essaie votre proposition tout de suite et je vous tiendrai informé du résultat.

Je vous remercie beaucoup pour la réponse rapide.

[Jean-Philippe André]

Salut,

autre approche lorsque tu as une serie de controls a tester avec le meme comportement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strControls As Variant
Dim strSelections As Variant
Dim i As Integer
 
strControls= Array ("Mod_Compagnie","Mod_Region","Txt_NoInterne")
strSelections = Array("une compagnie.","la région.","un titre pour ce dossier.")
for i = Lbound(strControls) to Ubound(strControls)
If IsNull(Me.Controls(strControls(i)) = True Then
    MsgBox "Veuillez sélectionner " & strSelections(i)
    Exit Sub
End If

a adapter et completer a ton cas de figure bien sur.

[Eltom_octo]

Re bonjour,

J'ai tester votre proposition mais Access crash au même endroit. Lors de la vérification de Me.Mod_Division.

Je met le code entier du formulaire... SI vous trouvez quelque chose qui cloche et/ou qui pourrait causer le problème je prend toute les critique constructive

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
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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
Option Compare Database
Dim t As Recordset
 
 
 
Private Sub Activation_simultanee_Click()
If Me.Activation_simultanee.Value = True Then
    Me.Statut.Visible = True
    Else
    Me.Statut.Visible = False
    End If
    Me.Refresh
End Sub
 
Private Sub But_Annuler_Click()
'-------------------------------------------------------------------------------------------------------------------
' Fermeture de tout les formulaires ouvret puis ouverture du formulaire F_Menu
'-------------------------------------------------------------------------------------------------------------------
 
    Do While Forms.Count
        DoCmd.Close acForm, Forms(0).Name
    Loop
DoCmd.OpenForm "F_Menu"
End Sub
 
Private Sub But_Sauvegarder_Click()
 
'-------------------------------------------------------------------------------------------------------------------
' Validation des entré saisi dans les champs avant l'ajout des données saisi à la table T_Dossier
'-------------------------------------------------------------------------------------------------------------------
    If IsNull(Me.Mod_Compagnie) = True Then
    MsgBox "Veuillez sélectionner une compagnie."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Region) = True Then
    MsgBox "Veuillez sélectionner la région."
    Exit Sub
    End If
 
    If IsNull(Me.Txt_NoInterne) = True Then
    MsgBox "Veuillez saisir le numéro de dossier."
    Exit Sub
    End If
    If IsNull(Me.[Txt_Titre]) = True Then
    MsgBox "veuillez saisr un titre pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Type_Dossier) = True Then
    MsgBox "Veuillez sélectionner un type pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Txt_NoAppelOffre) = True Then
    MsgBox "Veuillez saisir un numéro d'appel d'offre pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Txt_NoExterne) = True Then
    MsgBox "Veuillez saisir un numéro de dossier externe pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Responsable) = True Then
    MsgBox "Veuillez sélectionner un responsable pour ce dossier"
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Type_Soumission) = True Then
    MsgBox "Veuillez sélectionner un type de soumission pour ce dossier"
    Exit Sub
    End If
 
    If IsNull(Me.TXTDateOuverture) = True Then
    MsgBox "Veuillez choisir une date d'ouverture de dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_ChampActivite) = True Then
    MsgBox "Veuillez sélectionner un champs d'Avtivité pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Client) = True Then
    MsgBox "Veuillez sélectionner un client pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Division) = True Then
    MsgBox "Veuillez sélectionner une division pour ce dossier."
    Exit Sub
    End If
 
    If IsNull(Me.Mod_Contact) = True Then
    MsgBox "Veuillez sélectionner un contact pour ce dossier"
    Exit Sub
    End If
 
  If Me.Activation_simultanee = True Then
    If IsNull(Me.Mod_Statut) Then
        MsgBox " Veuillez sélectionner le statut du dossier."
        Exit Sub
    End If
 
    If IsNull(Me.Txt_Date_DebutDossier) Then
        MsgBox "Veuillez choisir la da de début du dossier."
        Exit Sub
    End If
 
 End If
 
'-------------------------------------------------------------------------------------------------------------------
' Ajout des information saisi à la table T_Dossier
'-------------------------------------------------------------------------------------------------------------------
 
    Set t = CurrentDb.OpenRecordset("T_Dossier", DB_OPEN_DYNASET)
        t.AddNew
        t("FK_T_Compagnie") = Me.[Mod_Compagnie]
        t("FK_T_Region") = Me.[Mod_Region]
        t("No_Dossier_Interne") = Me.[Txt_NoInterne]
        t("No_Dossier_Externe") = Me.[Txt_NoExterne]
        t("Titre_Dossier") = Me.[Txt_Titre]
        t("FK_T_TypeDossier") = Me.[Mod_Type_Dossier]
        t("No_Appel_offre") = Me.[Txt_NoAppelOffre]
        t("FK_T_TypeDeSoumission") = Me.Mod_Type_Soumission
        t("Date_Dépot") = Me.[DateDépot]
        t("FK_T_ChampActivite") = Me.[Mod_ChampActivite]
        t("Remarques") = Me.[Txt_Remarque]
        t("Date_Ouverture_Dossier") = Me.[TXTDateOuverture]
        t("FK_ID_T_Client") = Me.[Mod_Client]
        t("FK_T_Division") = Me.[Mod_Division]
        t("FK_T_Statut") = Me.[Mod_Statut]
        t("Date_Début") = Me.[Txt_Date_DebutDossier]
        t("Date_Fin") = Me.[Txt_Date_FinDossier]
        t("FK_T_Raison_Fermeture_Dossier") = Me.[Mod_Raison]
        t("Fk_ID_T_Contact") = Me.[Mod_Contact]
        t("FK_ID_T_Responsable") = Me.[Mod_Responsable]
        t.Update
        t.MoveLast
        Set t = Nothing
' Remise à zéro du formulaire
    Me.[Mod_Compagnie] = Nothing
    Me.[Mod_Region] = Nothing
    Me.[Txt_NoInterne] = Nothing
    Me.[Txt_NoExterne] = Nothing
    Me.[Txt_Titre] = Nothing
    Me.[Mod_Type_Dossier] = Nothing
    Me.[Txt_NoAppelOffre] = Nothing
    Me.[Txt_NoAppelOffre] = Nothing
    Me.[Mod_Type_Soumission] = Nothing
    Me.[DateDépot] = Nothing
    Me.[Mod_ChampActivite] = Nothing
    Me.[Txt_Remarque] = Nothing
    Me.[TXTDateOuverture] = Nothing
    Me.[Mod_Client] = Nothing
    Me.[Mod_Division] = Nothing
    Me.[Mod_Statut] = Nothing
    Me.[Txt_Date_DebutDossier] = Nothing
    Me.[Txt_Date_FinDossier] = Nothing
    Me.[Mod_Raison] = Nothing
    Me.[Mod_Contact] = Nothing
    Me.[Mod_Responsable] = Nothing
    'DoCmd.Close
 
End Sub
 
Private Sub Mod_Client_Change()
    Me.Mod_Division = Nothing
    Me.Mod_Contact = Nothing
    Me.Refresh
End Sub
 
Private Sub Mod_Client_LostFocus()
        Me.Refresh
End Sub
 
Private Sub Mod_Contact_GotFocus()
Me.Refresh
End Sub
 
Private Sub Mod_Contact_LostFocus()
    Me.Refresh
End Sub
 
Private Sub Mod_Division_Dirty(Cancel As Integer)
Me.Refresh
End Sub

[micniv]

est-ce que le nom du controle Mod_Division est bien correct ?

aussi : les réinitialisations Me.[Mod_Compagnie] = Nothing ne sont pas correctes, il faut

Code :

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

1
2
Me.[Mod_Compagnie] = null
 ... etc

cordialement

[Eltom_octo]

Bonjour à vous deux.

J'ai finalement tester la méthode avec une boucle ( et je vais la conserver ) et l'erreur c'est à nouveau produite.

J'ai donc chercher plus loin... Su mon contrôle Mod_Client, j'avais une remise à zéro des champs Mod_Division et Mod_Contact en utilisant le "= Nothing". Lorsque j'ai changer le "Nothing" pour "Null" tout est rentré dans l'ordre.

Je peux donc déduire que la mauvaise assignation à mon contrôle provoquais le problème... Je pense que cela pourra servir à d'autre.

Je vous remercie énormément pour le coup de main. Je vais pouvoir continuer ma BD.

Vous avez toute ma gratitude.

Passez une excellente fin de journée à tout les deux.