J'ai une petite difficulté avec la fonction Transferdatabase. Voila,
j'ai un formulaire dans lequel l'usager fait une requete selection sur
une table (disons tblLidar) dont le résultat s'affiche dans un
sous-formulaire en mode feuille de données. Je voudrais que l'usager
puisse sauvegarde ce résultat en format Microsoft Access (tout
simplement) en cliquant sur un bouton qui lui demande seulement le nom
du fichier d'exportation. Voici mon code qui ne marche pas (qui bogue
apparemment sur le nom de ma table "tblLIDAR").
Dim NomFichier As String 'Nom du fichier d'exportation
NomFichier = InputBox("Quel nom voulez-vous donner au fichier exporté
?", "Nom du fichier")
DoCmd.TransferDatabase acExport, , "D:/Deborah/BD/DerBD.mdb", acTable,
"tblLIDAR", NomFichier, False
si tu veux que ça fonctionne indique le type de base.
DoCmd.TransferDatabase acExport, "microsoft access", "D:/Deborah/BD/DerBD.mdb", acTable, "tblLIDAR", NomFichier, False -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"La p'tite Deb" a écrit dans le message de news:
Bonjour !
J'ai une petite difficulté avec la fonction Transferdatabase. Voila, j'ai un formulaire dans lequel l'usager fait une requete selection sur une table (disons tblLidar) dont le résultat s'affiche dans un sous-formulaire en mode feuille de données. Je voudrais que l'usager puisse sauvegarde ce résultat en format Microsoft Access (tout simplement) en cliquant sur un bouton qui lui demande seulement le nom du fichier d'exportation. Voici mon code qui ne marche pas (qui bogue apparemment sur le nom de ma table "tblLIDAR").
Dim NomFichier As String 'Nom du fichier d'exportation NomFichier = InputBox("Quel nom voulez-vous donner au fichier exporté ?", "Nom du fichier") DoCmd.TransferDatabase acExport, , "D:/Deborah/BD/DerBD.mdb", acTable, "tblLIDAR", NomFichier, False
si tu veux que ça fonctionne indique le type de base.
DoCmd.TransferDatabase acExport, "microsoft access",
"D:/Deborah/BD/DerBD.mdb", acTable, "tblLIDAR", NomFichier, False
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"La p'tite Deb" <debdrai@hotmail.com> a écrit dans le message de
news:d2187a0e.0312080911.7382d1b6@posting.google.com...
Bonjour !
J'ai une petite difficulté avec la fonction Transferdatabase. Voila,
j'ai un formulaire dans lequel l'usager fait une requete selection sur
une table (disons tblLidar) dont le résultat s'affiche dans un
sous-formulaire en mode feuille de données. Je voudrais que l'usager
puisse sauvegarde ce résultat en format Microsoft Access (tout
simplement) en cliquant sur un bouton qui lui demande seulement le nom
du fichier d'exportation. Voici mon code qui ne marche pas (qui bogue
apparemment sur le nom de ma table "tblLIDAR").
Dim NomFichier As String 'Nom du fichier d'exportation
NomFichier = InputBox("Quel nom voulez-vous donner au fichier exporté
?", "Nom du fichier")
DoCmd.TransferDatabase acExport, , "D:/Deborah/BD/DerBD.mdb", acTable,
"tblLIDAR", NomFichier, False
si tu veux que ça fonctionne indique le type de base.
DoCmd.TransferDatabase acExport, "microsoft access", "D:/Deborah/BD/DerBD.mdb", acTable, "tblLIDAR", NomFichier, False -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"La p'tite Deb" a écrit dans le message de news:
Bonjour !
J'ai une petite difficulté avec la fonction Transferdatabase. Voila, j'ai un formulaire dans lequel l'usager fait une requete selection sur une table (disons tblLidar) dont le résultat s'affiche dans un sous-formulaire en mode feuille de données. Je voudrais que l'usager puisse sauvegarde ce résultat en format Microsoft Access (tout simplement) en cliquant sur un bouton qui lui demande seulement le nom du fichier d'exportation. Voici mon code qui ne marche pas (qui bogue apparemment sur le nom de ma table "tblLIDAR").
Dim NomFichier As String 'Nom du fichier d'exportation NomFichier = InputBox("Quel nom voulez-vous donner au fichier exporté ?", "Nom du fichier") DoCmd.TransferDatabase acExport, , "D:/Deborah/BD/DerBD.mdb", acTable, "tblLIDAR", NomFichier, False
