Bonjour, voila j'ai une application qui gère des associations.Pour ajouter une association dans une listview, il faut cliquer sur le bouton Nouveau qui raz tous les champs.Ensuite , je renseigne ces champs et j'appuie sur valider pour enregistrer:Le problème c'est qu'il m'affiche toujours "la référence existe déjà"Je ne sais pas pourquoi.
Voici le code que j'ai tapé:
Code :
- Private Sub cmdValider_Click()
- On Error GoTo erreur
- 'si nom et prénom non spécifier message et annulation de la procédure
- If Trim(txtnum) = "" Then
-
- msg1 = MsgBox("Vous devez renseigner le champ 'Numéro'!", vbInformation + vbOKOnly)
- txtnum.SetFocus
-
- 'sinon ajout des données dans la B.D
- Else
-
- 'ajout dans la table
- tb.AddNew
-
- tb.Fields(0) = txtnum.Text
- tb.Fields(1) = txtasso.Text
- tb.Fields(2) = txtTitre.Text
- tb.Fields(3) = txtnom.Text
- tb.Fields(4) = txtprenom.Text
- tb.Fields(5) = txtad1.Text
- tb.Fields(6) = txtad2.Text
- tb.Fields(7) = txtville.Text
- tb.Fields(8) = txtcp.Text
- tb.Fields(9) = txtfixe.Text
- tb.Fields(10) = txtmail.Text
- 'mise à jour de la table
- tb.Update
-
- 'chargement de la listview avec les nouvelles données de la table
- 'Call load_list
-
- msg1 = MsgBox("Données enregistrées !", vbInformation + vbOKOnly)
-
- erreur:
- Select Case Err.Number
- Case -2147217887
- MsgBox "La référence existe déja", vbCritical
- tb.CancelUpdate
- End Select
-
- 'initialisation des boutons
- cmdModifier.Enabled = False
- cmdSupprimer.Enabled = False
- End If
-
- End Sub
|
