Discussion :

[breza9]

Bonjour,

Dans ma base de données Access 2010, j'utilisais d'habitude la fonction "SetWarnings false" pour éviter que le message d'alerte "vous allez ajouter x lignes. Êtes-vous sûr" s'affiche avec les requêtes ajout/update.

Cependant la je voudrais avertir l'utilisateur sur le nombre de ligne qu'il va ajouter et le message de base n'est pas le plus explicite, je voudrais donc le personnaliser, en l'avertissant du nombre de ligne qu'il ajoute et en lui laissant la possibilité d'annulé le cas échéant.

Est-ce que c'est possible ?

Cordialement

[3ug3n]

Bonjour,
Avez-vous essayé cette méthode ?

[breza9]

ok merci, ça fonctionne parfaitement même si idéalement j'aurais préféré intercepter l'information avant l’exécution de la requête pour pouvoir l'annuler en cas de problème.

Merci beaucoup 3ug3n.

[3ug3n]

ok merci, ça fonctionne parfaitement

Bonne nouvelle !

même si idéalement j'aurais préféré intercepter l'information avant l’exécution de la requête pour pouvoir l'annuler en cas de problème.

Dans ce cas précis, je pense que vous devriez creuser du côté de la gestion de transaction, et particulièrement des méthodes : begintrans, committrans et rollback
L'annulation étant la méthode rollback

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Sub TransferFunds()
    Dim wrk As DAO.Workspace
    Dim dbC As DAO.Database
    Dim dbX As DAO.Database
 
    Set wrk = DBEngine(0)
    Set dbC = CurrentDb
    Set dbX = wrk.OpenDatabase("e:\books\acc2007vba\myDB.accdb")
 
    On Error GoTo trans_Err
 
    'Begin the transaction
 
    wrk.BeginTrans
 
    'Withdraw funds from one account table
    dbC.Execute "INSERT INTO tblAccounts ( Amount, Txn, TxnDate ) SELECT -20, 'DEBIT', Date()", dbFailOnError
 
    'Deposit funds into another account table
    dbX.Execute "INSERT INTO tblAccounts ( Amount, Txn, TxnDate ) SELECT 20, 'CREDIT', Date()", dbFailOnError
 
    'Commit the transaction
    wrk.CommitTrans dbForceOSFlush
 
trans_Exit:
    'Clean up
    wrk.Close
    Set dbC = Nothing
    Set dbX = Nothing
    Set wrk = Nothing
    Exit Sub
 
trans_Err:
    'Roll back the transaction
    wrk.Rollback
    Resume trans_Exit
 
End Sub

Comme je ne l'ai pas implémentée moi-même, je passe la main en cas de pépin

[breza9]

Merci, effectivement ça l'air d'être très intéressant comme méthode (qui pourrait d'ailleurs être aussi utilisé dans d'autre partie de mon programme).

Je vais tester (il y a pas mal d'info donc je devrais pouvoir me débrouiller)