[ACCESS] Gestion erreur doublon VBA

Gestion erreur doublon VBA [ACCESS] - VB/VBA/VBS - Programmation

Marsh Posté le 24-09-2006 à 19:40:02    

Bonjour, cela fait 2 jours que jetourne en rond, :fou:  :fou:  :fou:  :fou:  
je n'arrive pas a saisir le code exacte  :pfff: pour controler si le mot "CHAINE" que je veux ajouté dans ma base y est deja , soite pas de reponce et plantage ou message erreur  
comment puis-je controler dans ma table et sortir si le mot existe deja  
 
Merci  
voici le module a bidoullier
 
'Sauvegarde  mot fichier
    Set MaTable = CurrentDb.OpenRecordset("TableSuivi" )
    MaTable.AddNew
    MaTable("NomFichier" ) = Chaine
    MaTable.Update
    MaTable.Close

Reply

Marsh Posté le 24-09-2006 à 19:40:02   

Reply

Marsh Posté le 24-09-2006 à 20:40:33    

Bonsoir,
un truc comme cela ?
(si Chaine est bien la variable qui contient le "mot" à ajouter)
 
quot = "'"
crt = "NomFichier=" + quot + Chaine+ quot
Set MaTable = CurrentDb.OpenRecordset("TableSuivi" )  
 
With MaTable
  .FindFirst crt
  If .NoMatch Then
   .AddNew
   !NomFichier = Chaine
   .Update
   .Close
  end if
End With


Message édité par seniorpapou le 25-09-2006 à 06:45:43
Reply

Marsh Posté le 25-09-2006 à 09:25:23    

Si tu veux contrôler que le mot ajouté est déjà présent, il suffit de gérer l'erreur d'ajout d'un doublon dans ta table.
Cela implique que celle-ci a un index primaire.

Reply

Sujets relatifs:

Leave a Replay

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