Discussion :

[odomi1973]

Bonsoir,

J'ai un petit soucis avec l'exécution d'une requête.
En fait je veux faire un insert sur une clé déjà utilisée dans ma table mais à l'exécution de la requête rien ne se passe :
pas d'insertion bien sûr
mais pas de message d'erreur non plus

ne devrait il pas y avoir une erreur sql pour un doublon détecté ?

Voici les commandes si quelqu'un peut m'aider.

Code :

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

1
2
3
4
5
6
7
 Dim base As Database
 Dim requete As String
 
 Set base = Application.CurrentDb
 
 requete = "INSERT INTO Individu VALUES ('" & Identifiant.Value & "' , '" & Nom.Value & "' , '" & Prénoms.Value & "' , '" & date_naissance.Value & "');"
 base.Execute requete

La table individu possède comme clé primaire la zone Identifiant.



Merci par avance.

[Invité]

Bonsoir,
Si tu as mis on error, non pas d'erreur!

Il vaut mieux vérifier avant d'ajouter!

Code :

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

1
2
3
4
5
6
7
8
9
10
requete = "select * from  Individu where Identifiant='" & Identifiant.Value & "'"
Set Rs=base.OpenRecordset( requete)
If Rs.eof then
Rs.addnew
Rs("Identifiant")=Identifiant.Value 
Rs("Nom")=Nom.Value 
Rs("Prénoms")=Prénoms.Value 
Rs("date_naissance")=date_naissance.Value
Rs.update
End if

[odomi1973]

Qu'entends tu par "si tu as mis on error" ? c'est une option ?
J'ai juste codé ce que j'ai indiqué dans le message d'origine rien de plus.

[Invité]

Bonjour,
Si tu ne comprends pas ce qu'est un on error on peut partir du principe qu'il n'y en a pas! A moins que tu ais repris un code commencé par quelqu'un d'autre!

Regarde également dans les option sur la gestion des erreurs!

Maintenant ce que j'ai dis reste vrai, on ne fait pas d'ajout sens vérification de l'existant.

Comment ton code est exécuté via un bouton? Un macro (onglet macro dans Access)?

[helas]

Bonjour,
ajouter l'option dbFailOnError
et la gestion des erreurs (en rouge)

Code :

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

1
2
3
4
5
6
7
8
9
on error goto erreur
base.Execute requete, dbFailOnError
..... suite du code .....

exit sub
error:
msgbox("Erreur : " & error)
end sub

[odomi1973]

Merci helas,

Je teste çà dès ce soir...

[odomi1973]

çà fonctionne...merci beaucoup helas !!!
Merci également à dysorthographie pour ton assistance.