Creer une base de donnée ACCESS vba

Recherche :

Sujet(s) à lire :
- Visual C++

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Creer une base de donnée ACCESS vba

mmmxtina

Bonjour à tous!

depuis 2h je tente tant bien que mal de creer une base de données access en VBA, sans succès!

je m'explique, j'ai une base de données ouverte, et j'aimerai sauvegarder cetaine table dans une autre base de données que je crée!

impossible de creer cette fichue base de données!!! :pfff:
voici le code:

Code :

Public Function CreerTable()
Dim nameTable As String
Dim i As Integer
nameTable = "C:\Documents and Settings\gf3323\Bureau\BaseDonnees\Tables-" & Replace(DateValue(Now()), "/", "" )
'je supprilme les "/" de la dates pour éviter les erreurs
Set TableAccess = DBEngine.CreateDatabase(nameTable, ";pwd='NewPassword'" )
TableAccess.Open
For i = 0 To UBound(Table)
DoCmd.CopyObject nameTable, , acTable, Table(i)
Next i
TableAccess.Close
End Function

A la ligne rouge, access me donne cette erreur :
Erreur 3424:
"Impossible de créer la base de données car le paramètre locale est incorrect"

Je ne voit pas le problème, j'ai cherché sur internet tout le monde à l'air de faire comme ça!!
help help!

merci beaucoup d'avance!

Message édité par mmmxtina le 20-07-2009 à 12:11:16

Publicité

SuppotDeSaTante

Aka dje69r

Bonjour

Perso je fais ca plus 'betement' :

Code :

DBEngine.CreateDatabase nameTable, dbLangGeneral

Ensuite :

tu veux definir TableAccess ou nameTable comme instance d'une base access... Pas tres logique tes noms de variable (Perso j'aurais mis nameBase et BaseAccess, plus facile pour relire par la suite...)
TableAccess.Open <(--- Inutile, pour exporter une table pas besoin que l'autre soit ouverte.

Pour y faire reference et par exemple la fermer a la fin :

Code :

Set accessApp = GetObject(nameTable)
accessApp.Application.quit

Mais si tu ne l'ouvres pas, pas besoin de la fermer... cqfd :whistle:

Après je regarde ta variable nameTable, elle n'a pas d'extension pour le fichier, rajoute peut etre a la fin :
Code :
nameTable = "C:\Documents and Settings\gf3323\Bureau\BaseDonnees\Tables-" & Replace(DateValue(Now()), "/", "" ) & ".mdb"

Pour finir, loin de moi l'idée de t'insulter/frustrer/rabaisser, mais on apprend pas a coder en regardant ce que font les autres sur internet...
On achete un bouquin et on potasse. Sur le net il y a autant de tout que de rien...

J'ajouterai aussi, qu'en fonction des version d'Access le code peut changer, or tu ne donnes pas la version sur laquelle tu travailles.

Cordialement

Message édité par SuppotDeSaTante le 20-07-2009 à 17:39:09

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Creer une base de donnée ACCESS vba

Sujets relatifs
Calendrier avec VBA pour Access	[Access 2003]Créer une table à partir d'une requète
Enregistrer une base de données access et gérer les erreurs	message d'erreur "can not access a member of class X"
[C#] Créer des cookie	[VBA] créer fichier excel à partir d'onglet
connecter à une base de données Mysql via ODBC à partir d'un programme	[c#] connexion base de donnée avec ADO.NET
Créer une requete SELECT a une base de donnée ACCESS
Plus de sujets relatifs à : Creer une base de donnée ACCESS vba

Page générée en 0.048 secondes