Discussion :

[jeronimo]

Débutant
j'ai un formulaire aec un bouton pour détruire les tables si elles existent, sinon j'ouvre l'importation. Pb : lorsque que l'utilisateur importe pas de pb en revanche s'il renonce à l'importation, ce n'est pas considéré come une erreur. Commet faire ? Merci

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
Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click
 
    If ExistTable("TABLEA") Then
    DoCmd.DeleteObject acTable, "TABLEA"
    DoCmd.DeleteObject acTable, "TABLEB"
    DoCmd.RunCommand acCmdImport
    MsgBox "Les fichiers ont été importés", vbInformation
    Else
    [color=red]DoCmd.RunCommand acCmdImport
    MsgBox "Les fichiers ont été importés", vbInformation[/color]
    End If
Exit_Commande21_Click:
    Exit Sub
Err_Commande21_Click:
    MsgBox "L'importation a été abandonnée", vbInformation
 
End Sub

[illight]

ça te met quoi comme erreur ? tu as un panneau d'information qui s'affiche ?

[jeronimo]

Il ne me met pas d'erreur au contraire, il me dit que les fichiers sont importés alors qu'ils ne le sont pas. J'ai mis une gestion d'erreur sur l'existence des tables mais pas sur l'abandon de l'importation.

[Frank]

C'est pas un peu court,

Code :

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

DoCmd.RunCommand acCmdImport

:

Comment sait on ce qu'il faut importer ?

[jeronimo]

Le formulaire est dans un menu : importation
En fait il me faudrait un message après importation, mais qqch
qui vérifie la réalité l'importation, si l'utilisateur abandonne ...

[Tofalu]

Et avec la méthode docmd.TransferDatabase ?

Normalement c'est cela que l'on utilise pour l'importation

De toute façon, tu peux trés bien testé l'existence des tables avant l'importation et aprés, ceci afin d'être sûr que l'importation a eu lieu. Et dans le cas contraire, lever une erreur