bonjour,
Set NouvelleTable = CurrentDb.CreateTableDef(" & strNameTable & ")
NouvelleTable devrait être déclaré préalablement comme Tabledef
Mais NouvelleTable est inutile.
Essaye
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Function CreateTableDistance()
Dim strNewTable As string
strNameTable = nz(Forms!FormLocD.contenant,"")
If strNameTable ="" then
msgbox "..."
Exit Function
Else
strNameTable = "[" & strNameTable & "]"
'[] nécessaire si strNameTable contient un espace
end If
CurrentDb.Execute "SELECT [CalculDistanceFinal].* INTO " & strNameTable & " FROM [CalculDistanceFinal];", dbFailOnError
End Function |
Alain
Partager