VB:Problème d'ajout d'un tuple

VB:Problème d'ajout d'un tuple - VB/VBA/VBS - Programmation

Marsh Posté le 26-04-2007 à 14:21:58    

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 :
  1. Private Sub cmdValider_Click()
  3. On Error GoTo erreur
  5.     'si nom et prénom non spécifier message et annulation de la procédure
  6.     If Trim(txtnum) = "" Then
  7.    
  8.         msg1 = MsgBox("Vous devez renseigner le champ 'Numéro'!", vbInformation + vbOKOnly)
  9.         txtnum.SetFocus
  10.        
  11.     'sinon ajout des données dans la B.D
  12.     Else
  13.    
  14.         'ajout dans la table
  15.         tb.AddNew
  16.        
  17.         tb.Fields(0) = txtnum.Text
  18.         tb.Fields(1) = txtasso.Text
  19.         tb.Fields(2) = txtTitre.Text
  20.         tb.Fields(3) = txtnom.Text
  21.         tb.Fields(4) = txtprenom.Text
  22.         tb.Fields(5) = txtad1.Text
  23.         tb.Fields(6) = txtad2.Text
  24.         tb.Fields(7) = txtville.Text
  25.         tb.Fields(8) = txtcp.Text
  26.         tb.Fields(9) = txtfixe.Text
  27.         tb.Fields(10) = txtmail.Text
  28. 'mise à jour de la table
  29.         tb.Update
  30.        
  31.         'chargement de la listview avec les nouvelles données de la table
  32.         'Call load_list
  33.        
  34.         msg1 = MsgBox("Données enregistrées !", vbInformation + vbOKOnly)
  35.        
  36. erreur:
  37.         Select Case Err.Number
  38.         Case -2147217887
  39.         MsgBox "La référence existe déja", vbCritical
  40.         tb.CancelUpdate
  41.         End Select
  42.        
  43.         'initialisation des boutons
  44.         cmdModifier.Enabled = False
  45.         cmdSupprimer.Enabled = False
  46.     End If
  47.    
  48. End Sub

Reply

Marsh Posté le 26-04-2007 à 14:21:58   

Reply

Marsh Posté le 26-04-2007 à 14:43:42    

Bonjour,
comme pour L3LADE, sortir avant l'étiquette Erreur:
Cordialement

Reply

Marsh Posté le 27-04-2007 à 12:49:37    

Il faut en effet mettre un "Exit sub" juste après :
 
msg1 = MsgBox("Données enregistrées !", vbInformation + vbOKOnly)
 
sinon, ton programme lit, quoi qu'il arrive, ce qui se trouve après "erreur:"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed