Discussion :

[AgriPhilou]

bonsoir,

Comment bloquer dans un code VBA les messages d'Access ?
éventuellement au profit d'un personnalisé.
Si vous avez un exemple.
Merci.

[Invité]

Bonjour

Peux-tu indiquer le type de messages car il sont nombreux. Messages d'erreurs ? Messages de mise à jour de requêtes ?

En attendant un peu de FAQ : http://access.developpez.com/faq/?page=SQL#Warning

Cette FAQ est à lire sans modération.

Philippe

[AgriPhilou]

Bonjour,
Ce message est en complément de celui que j'ai posté plus bas.

Avec ce code on vérifie qu'il y a pas de doublon, ça fonctionne bien si le formulaire est unique, mais s'il est en mode feuille de données je reçois le message suivant.

Code :

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

1
2
3
4
5
6
7
Private Sub National_BeforeUpdate(Cancel As Integer)
If Not IsNull(Dlookup("[IDNAT]", "MesAnimaux", "[IDNAT]='" & Me.National & "'"))  Then
         MsgBox "Cet animal existe déjà.", , "Saisie d'un doublon"
            Me.Undo
          Cancel = True
        End If
  End Sub

"Aucun enregistrement en cours"
je pense que l'on doit pouvoir réaliser la même chose dans un formulaire unique et en mode feuille de données ?

En fait il faudrait enregistrer l'enregistrement avant si j'ai bien compris.

Merci pour votre aide, je ne suis pro dans ce domaine.

[domibigoudi]

Bonjour,

J'ai retesté ton code dans une base vide et elle fonctionne sans message d'erreur.

Peut-être devrais-tu créer une nouvelle base et tester le code.

Je sais que j'ai déjà eu le problème d'erreur dans une base et en créant une nouvelle base, le code fonctionnait.

Bonne journée

[AgriPhilou]

Merci domibigoudi, ça fonctionne même en mode feuille de données ?
En sous formulaire ?

J'ai également retesté dans une nouvelle base, le code fonctionne mais lorsque le processus est terminé j'ai toujours une boite qui me dit :

Aucun enregistrement en cours, avec un triangle jaune "attention"
je n'arrive pas à comprendre ce qui se passe, en mode unique je n'ai pas ce problème
Merci.