Discussion :

[NiKoTiNe]

Bonjour,

Je débute en VBA et j'ai tenté d'écrire un fonction qui vide la table entrée en paramètre :

Function Delete(strSource As String)

Dim db As DAO.Database

Set db = CurrentDb()
db.Execute "DELETE * FROM [strsource];"

End Function

Malheureusement ça ne fonctionne pas. Il ne considère pas strsource comme une variable mais comme le nom d'une table qui devrait exister.

J'ai essayé plusieurs variantes sans succès. Si quelqu'un peut m'explique mon erreur ce serait super.

Merci beaucoup

[Kloun]

Code :

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

1
2
3
4
5
6
7
8
Function Delete(strSource As String)
 
Dim db As DAO.Database
 
Set db = CurrentDb()
db.Execute "DELETE FROM " & strsource, dbfailonerror
 
End Function

[pgz]

Bonjour.

Peut-être :

Code :

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

1
2
3
4
5
6
7
8
Function Delete(strSource As String)
Dim db As DAO.Database
 
Set db = Application.CurrentDb
db.Execute "DELETE * FROM " & db.TableDefs(strsource).name & ";"
Set db = Nothing
 
End Function

ou a peu-près...
Bon courage,

PGZ

[NiKoTiNe]

Super ça marche!

Il suffisait de concatener en fait, j'y avais pas pensé

Merci pour vos réponses rapides!