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
Partager