Discussion :

[bartimeus35]

Bonsoir,
J'ai un requête qui fait un insert ds une table, mais je n'arrive pas a récupérer une info pour savoir si l'insert s'est bien passé :

Code :

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

CurrentDb.Execute (ma_requete_d_INSERT_SQL)

Une idée?
Merci,
@+

[User]

Bonjour,

Il faut ajouter dbFailOnError :

Cette option génère une erreur et annule toutes les modifications accomplies dans le cas où certains enregistrements affectés sont verrouillés et ne peuvent pas être mis à jour ou supprimés.

Code :

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

1
2
3
CurrentDb.Execute ma_requete_d_INSERT_SQL, dbFailOnError
 
MsgBox("Opération résussie !")

Cdlt,

[bartimeus35]

OK, mais si je veux avoir un message que si il y a un problème ?

[User]

Dans ce cas il faut ajouter une gestion d'erreur :

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
Private Sub bouton_insert_Click()
 
On Error GoTo gestion_erreur
 
    ma_requete_d_INSERT_SQL = "insert...';"
 
    CurrentDb.Execute ma_requete_d_INSERT_SQL, dbFailOnError
 
    MsgBox ("Opération résussie !")
 
    Exit Sub
 
gestion_erreur:
 
    MsgBox (Err.Description)
 
End Sub

[bartimeus35]

Génial, merci