Discussion :

[Tatoine]

re-bonjour,

petite question:

Comment éviter d'ajouter des donnés issues des champs d'un formulaire dans un table, si ces données existent déjà dans cette même table.

la réponse doit déjà avoir été donnée...mais je n'ai pas trouvé dans la FAQ ni sur le forum.

avec un if? ou une gestion d'erreur? ou d'autres idées issues de votre savoir ...peu importe

merci

[gerald2545]

mets une contrainte d'unicité sur ta table, quitte à utiliser plusieurs champs dans cette contrainte.
ensuite si tu essayes d'insérer des données existantes, il t'enverra bouler

[Tatoine]

La contrainte est déjà là...et access m'envoit déjà boulet.
mais ce n'est pas très propre.

d'autant plus qu'il m'envoit boulet, mais je peux forcer l'ajout.

Alors je ne veux pas que ca soit access qui m'envoit boulet, mais qu'un joli message box me dise: "Bonjour, je suis désolé, mais cette donnée existe déjà dans la table. Au revoir, bonne journée, sincere salutation...."
et hop, l'utilisateur comprend de quoi il retourne..

[willis]

Bonjour,
1) il faut que tu supprimes les messages automatiques dans le menu outils, options, onglet modifier-rechercher, rubrique confirmer ;
2) il faut que dans la macro d'import des données tu créés une boite message qui va contenir le message que tu veux afficher
3) paramètre l'affichage de ta boite message en fonction d'une condition liée au résultat de l'import des données

[Tatoine]

Merci pour ses infos.
je savais pas comment faire pour supprimer les messages automatiques.
Cependant, je ne souhaite pas les suppimer partout.
juste dans le formulaire concerné.
donc je ne privilégie pas cette option.

3) paramètre l'affichage de ta boite message en fonction d'une condition liée au résultat de l'import des données

il s'agit d'un ajout a partir d'un formulaire et non d'un import à partir d'un fichier.
Donc, je ne sais pas trop comment m'y prendre pour vérifier cette condition.

avec un requête sql, ca doit pouvoir se faire.
mais peut etre qu'il existe des conditions Access toutes faites... (mais dont j'ignore la syntaxe et même l'existence) (programation DAO ? c'est ça?)

[marot_r]

Il faut que tu fasse du code pour attraper l'erreur et substituer ton message au message standard.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Const ERR_DOUBLON = 3022
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case ERR_DOUBLON
            MsgBox "Vous ne pouvez pas choisir deux fois le même numéros", vbInformation
            Response = acDataErrContinue
        Case Else
            'Affiche le message standard
    End Select
End Sub

[Tatoine]

bon, j'ai trouvé la solution:

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
 
Private Sub ajouter_Click()
On Error GoTo Err_ajouter_Click
Dim strFiltre As String
Dim strSQL As String
Dim stLinkCriteria As String
'Dim strSQL2 As String
 
' Construction du filtre sur la clé primaire
strFiltre = "Nz([IDUC]) LIKE '*" & Nz(Me.IDUC) & "*'"
 
 
'  ********* test si l'UC est déjà référencée ******************
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select [IDUC] from [UC]")
rst.MoveFirst
 
While rst.EOF = False
If Me.IDUC = rst![IDUC] Then
MsgBox "Cette Unité Centrale est déjà référencée", vbOKOnly
Exit Sub
End If
rst.MoveNext
Wend
 
'***** insert l'UC dans la table UC ***********
strSQL = "Insert Into UC" _
& "(IDUC, AdresseIp, RamTailleMo, Processeur, OS, ecranResolution)" _
& " Values ('" & Me.IDUC & "','" & Me.AdresseIp & "','" & Me.RamTailleMo & "','" & Me.proc & "','" & Me.OS & "','" & Me.ecranResolution & "')"
DoCmd.RunSQL strSQL
 
' Ouvrir le formulaire ref_UC avec le filtre appliqué
DoCmd.OpenForm "ref_UC_ajout", acNormal, , strFiltre
Exit_ajouter_Click:
 
    Exit Sub
 
Err_ajouter_Click:
    MsgBox Err.Description
    Resume Exit_ajouter_Click
 
End Sub