Discussion :

[leeloo35]

Bonjour,

J'ai une requête en VBA access qui marche...presque ! Mon seul problème est que je n'arrive pas à trouver comment écrire ceci :

Code :

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

1
2
3
If la table est vide Then
Supprime la table
End If

Je pense que ça ne doit pas être bien sorcier, mais je débute !

Merci d'avance pour votre aide

[LedZeppII]

Bonjour,

je ferai comme ça

Code vb :

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

1
2
3
If DCount("*", "La Table") = 0 Then
   DoCmd.RunSQL "DROP TABLE [La Table]"
End If

A+

[leeloo35]

Bonjour LedZeppII,

Merci beaucoup pour cette réponse mais je voulais éviter d'utiliser du SQL afin de ne pas avoir de messages d'erreur à la suppression (cela ferait trop peur aux futurs utilisateurs !)

En fin de compte, j'ai eu une illumination !

J'ai mis ça :

Code :

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

1
2
3
4
5
6
7
If Table.EOF = False Then
    Do Until Table.EOF
        Table.MoveFirst
        Table.Delete
        Table.MoveNext
    Loop
End If

Je ne sais pas si cette solution est optimale mais en tout cas cela fonctionne sur ma base !

@+

[LedZeppII]

Ah tu voulais vider la table et non pas la supprimer.

Voila ce que j'utilise

Code vb :

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

1
2
3
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM [La Table]"
DoCmd.SetWarnings True

Lorsque SetWarning est à False il n'y a pas de message d'avertissement.
Bien penser à remettre SetWarnings à True comme dans mon exemple pour éviter les mauvaises surprises.

A+