Discussion :

[aba_tarn]

Bonjour,

Lorsque je veux ajouter un nouvelle donnée par le biais de mon formulaire j'utilise la fonction suivante :

Code :

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

DoCmd.GoToRecord , , acNewRec

Ensuite j'ai crée un bouton vérifier qui vérifie si certains champs ne sont pas vides. Sur le clic du bouton j'ai mis le code suivant:

Code :

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

Form_campings.Requery

et sur le before update du formulaire j'ai mis le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Resume Next
If IsNull(CODEINSEE) Then
MsgBox "Le champ code_INSEE n'est pas rempli, veuillez le renseigner"
Cancel = True
ElseIf IsNull(Intitulés) Then
MsgBox "Le champ nom du camping n'est pas rempli, veuillez le renseigner"
Cancel = True
Else
MsgBox "les changements sont enregistrés dans la table"
End If
End Sub

Je réitère l'opération sur plusieurs formulaires, normalement ça marche mais sur un des formulaires, j'ai un problème.

En général, je clique sur mon bouton nouvel enregistrement, je vais sur un nouvel enregistrement, je rentre mes données puis clique sur mon bouton vérifier, là si j'ai oublié de renseigner un champ, j'ai un message.

Le problème que j'ai sur 2 formulaires est que lorsque je vais sur mon nouvel enregistrement, j'ai un message qui s'affiche comme quoi les changements sont enregistrés dans la table alors qu'il faudrait que rien ne s'affiche comme c'est le cas pour les autres formulaires de plus certains de mes champs sont nuls donc il devrait me dire que mes champs sont nuls.

Je ne vois pas d'où vient le problème, si quelqu'un peu m'indiquer une piste...

Merci

[francishop]

Bonsoir,

Code :

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

1
2
3
ElseIf IsNull(Intitulés) Then
MsgBox "Le champ nom du camping n'est pas rempli, veuillez le renseigner"
Cancel = True

Peut-être ce genre de "plaisanterie" qu'on peut mettre en évidence avec :IsNull(Intitulés)
On pose "" dans le champ. Par la suite nous ne verrons rien puisque nous avons inscrit vide. Si c'est vide ce n'est pas NULL pour access.(A juste titre.)
C'est pourquoi, afin d'éviter toutes équivoques je préfères :

Code :

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

ElseIf IsNull(Intitulés) Or Me!Intitulés = "" Then

Cordialement.

[aba_tarn]

merci pour votre aide, mais le problème n'est pas résolu, il m'affiche toujours le message indiquant que les changements sont enregistrés, je pense qu'en allant sur le nouvel enregistrement il doit faire un update contrairement aux autres formulaires, c'est la seule différence que je vois.

En tout cas merci pour la piste, je n'avais pas pensé que vide était différent de null.