Discussion :

[tibjedi]

Hello guys

voila je voudrais créer une macro VBA qui permettent de créer une table avec un nom spécifique selon le textfield d'un formulaire. Je pense avoir mis les bonnes fonctions pour effectuer cette action. cependant à chaque execution j'ai un message d'erreur : erreur d'execution 424 : objet requis

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function CreateTableDistance()
Dim strNewTable As Variant
Dim requete As Variant
 
strNewTable = Forms!FormLocD.contenant
requete = ("SELECT [CalculDistanceFinal].* INTO " & strNewTable & " FROM [CalculDistanceFinal];")
            With requete
            .Parameters("[Formulaires]![FormLocD]![contenant]").Value = [Forms]![FormLocD]![contenant]
            .Execute
            End With
End Function

Lors du débog, l'execution s'arrête à .Parameters...

j'ai regardé mes références, on me dit que j'ai déjà le Object Library 3.5 .

Quelqu'un peut-il m'aider ?

Merci, bonne journée

[nico84]

Bonjour,

Après la ligne 6, requete est une string. Donc requete.parameters

Une bonne syntaxe ressemblerait plutot à ceci :

Code :

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

currentDB.execute requete, dbFailOnError

Mais il me semble que la table destinatrice du select into doit être créée préalablement...

[tibjedi]

merci, j'ai rajouté une ligne pour ajouter la table à ma base de donnée.
mais quand j'execute ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function CreateTableDistance()
Dim strNewTable As Variant
Dim requete As Variant
 
strNameTable = Forms!FormLocD.contenant
Set NouvelleTable = CurrentDb.CreateTableDef(" & strNameTable & ")
 
requete = ("SELECT [CalculDistanceFinal].* INTO " & strNameTable & " FROM [CalculDistanceFinal];")
 
CurrentDb.Execute requete, dbFailOnError
 
End Function

il me dit qu'il me manque 2 paramètres, donc je dois bien utilisé requete.parameters non?

[NeuroTransMetteur]

bonjour,

Code :

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

Set NouvelleTable = CurrentDb.CreateTableDef(" & strNameTable & ")

NouvelleTable devrait être déclaré préalablement comme Tabledef
Mais NouvelleTable est inutile.
Essaye

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
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