Discussion :

[meryem01]

Bonjour,
voila mon code qui permet d'ajouter un enregistrement dans ma base en utilisant le contrôle ADODB :

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
Private Sub cmdajout_Click()
 
Adodc4.Recordset.AddNew
 
If Datans.Text = "" Then
 
       Reponse = MsgBox("Vous devez abselument remplir ce champ", vbOK + Apparence + TypeDeBox, "Iformation")
    Else
        Adodc4.Recordset![N°Série] = Trim$(Datans.Text)
 
        If Datalogin.Text = "" Then
 
                Reponse = MsgBox("Vous devez abselument remplir ce champ", vbOK + Apparence + TypeDeBox, "Iformation")
        Else
                Adodc4.Recordset![login] = Trim$(Datalogin.Text)
 
                If Dataproj.Text = "" Then
 
                     Reponse = MsgBox("Vous devez abselument remplir ce champ", vbOK + Apparence + TypeDeBox, "Iformation")
                 Else
                     Adodc4.Recordset![Nom_Projet] = Trim$(Dataproj.Text)
 
                    Adodc4.Recordset![Date_Affectation] = Trim$(txtdate.Text)
 
                 End If
        End If
  End If
 
End Sub

mon probléme s'agit quand je veux enregistrer un autre enregistrement qui a la même clé qu'un autre existant dans ma base, bien sur je sais que c'est une erreur mais je veux contrôler ça par un msgbox pour éviter le debugage
merci

[sovo]

tu as deux possibilite :

1: Soit tu fait d'abord une recherche sur la cle avant de l'enregistrer (c'est la methode que j'utilise perso).

2: Soit tu intercepte le message d'erreur avec on error.


PS : Pense a mettre les balise de code pour une bonne lecture.

[bricoyeye]

Salut,

Il me semble que dans ton code il manque un Update