Discussion :

[SnakeCharmer]

Bonjour ter'tous

Voilà j'ai un sous-formulaire lié a une table. Evidemment, lorsque je rentre pour 2 enregistrements sur la clé primaire une même valeur, access m'affiche la msgbox d'erreur (3022) sur les doublons.
Comment faire pour remplacer cet msgbox par une personnalisée (du type : "ce numéro existe déja" par exemple) ?

J'ai une petite idée : éxecuter une requête sur la perte focus, mais je ne m'en sors pas... :/ et je sais encore moins si ça serait une solution.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_LostFocus()
Dim SQL As String
Dim Rs0 As DAO.Recordset
SQL = "SELECT [Informations Article].[Numéro Article] FROM [Informations Article] WHERE ((([Informations Article].[Numéro Article])=[forms]![elaboration devis]![Articles selon devis sous-formulaire]![Numéro article]))"
DoCmd.RunSQL SQL
Rs0 = CurrentDb.QueryDefs("SQL").OpenRecordset
If Rs0.RecordCount <> 0 Then
    MsgBox = "Ce numéro d'article existe déja."
End Sub

[SnakeCharmer]

Et voici la solution, pour information :

Private Sub Form_Error(DataErr As Integer, Response As Integer)

If DataErr = "numéro de l'erreur" Then
MsgBox "erreur liste" -> Texte que l'on veut voir afficher à la place de celui par défaut
Response = acDataErrContinue
End If

End Sub

dsl pour la mise en forme (pour starec qui corrige derrière notamment), mais j'ai une vieille version d'internet explorer et j'ai pas accés aux balises... merci Mr l'administrateur réseau qui a bloqué toute possibilité de mise a jour...

[mikeGo20]

Autre possibilité:

valider l'entré du numéro sur l'événement Avant MAJ (BeforeUpdate) du champ en question ...