Utilisation de Docmd.OpenFunction

Le
RENAUD Eric
Bonjour,

J'ai crée une fonction pour importer des données dans une nouvelle table
avec une procédure enregistrée.

Je lance cette fonction à l'aide d'une macro avec l'action = ExecuterCode
et
avec Arguments = Arguments ImportDFI ("Importation-Liste des articles GIF")

Function ImportDFI(DFI)
DoCmd.DeleteObject acTable, "2006XXXX-DFI_Articles"
DoCmd.SetWarnings False
DoCmd.RunSavedImportExport (DFI)
DoCmd.SetWarnings True
Exit Function
End Function

CELA FONCTIONNE

Maintenant pour éviter d'utiliser une macro je me suis dit je vais mettre ça
en VBA

J'ai crée une procédure qui appelle ma fonction

Private Sub cmdGIF_Click()
DoCmd.OpenFunction ImportDFI("Importation-Liste des articles GIF")
End Sub

ET LA J'AI UNE ERREUR BINE QUE MA TABLE AIT ETE CREEE !!!

J'ai un message d'erreur lorsqu' arrive sur Exit Function, j'ai un message
avec l'erreur d'exécution 2495 et le libellé :
L'action ou la méthode requiert un argumenet Nom de table

Là je sèche.
D'avance merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #17873181
RENAUD Eric a écrit :
Bonjour,

J'ai crée une fonction pour importer des données dans une nouvelle table
avec une procédure enregistrée.

Je lance cette fonction à l'aide d'une macro avec l'action = ExecuterCode
et
avec Arguments = Arguments ImportDFI ("Importation-Liste des articles GIF")

Function ImportDFI(DFI)
DoCmd.DeleteObject acTable, "2006XXXX-DFI_Articles"
DoCmd.SetWarnings False
DoCmd.RunSavedImportExport (DFI)
DoCmd.SetWarnings True
Exit Function
End Function

CELA FONCTIONNE

Maintenant pour éviter d'utiliser une macro je me suis dit je vais mettre ça
en VBA

J'ai crée une procédure qui appelle ma fonction

Private Sub cmdGIF_Click()
DoCmd.OpenFunction ImportDFI("Importation-Liste des articles GIF")
End Sub

ET LA J'AI UNE ERREUR BINE QUE MA TABLE AIT ETE CREEE !!!

J'ai un message d'erreur lorsqu' arrive sur Exit Function, j'ai un message
avec l'erreur d'exécution 2495 et le libellé :
L'action ou la méthode requiert un argumenet Nom de table

Là je sèche.
D'avance merci








Bonjour,
Quelques précisions
Private Sub cmdGIF_Click()
ImportDFI("Importation-Liste des articles GIF")
End Sub
public Sub ImportDFI(DFI as string)
> DoCmd.DeleteObject acTable, "2006XXXX-DFI_Articles"
> DoCmd.SetWarnings False
> DoCmd.RunSavedImportExport (DFI)
> DoCmd.SetWarnings True
> End sub
@+
Publicité
Poster une réponse
Anonyme