Discussion :

[servtech2]

Bonjour,

A partir d'une base A, je lance la création d'une base B mensuellement dans un répertoire différent de A.
Le nom de B est basé sur une date (ex: 2010_02.mdb)

Dans cette base B, il y a une table tbl_mdb_date avec un champ mdbdate.

Je voudrai à partir de la base A et après la création de B, insérer dans le champ mdbdate la valeur de la variable qui correspond au nom de la base B sans le .mdb (ex:2010/02)

Voici mon code qui ne fonctionne pas au niveau de la requête Sql, une erreur de syntaxe dont je n'arrive pas à me dépatouiller:

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
16
17
18
19
MDB_VIDE = "C:\Base\PBR\Structure\MDB_VIDE.mdb" 
MDB_DEFAUT = "PBR_" + Format$(Date - 28, "yyyy") + "_" + Format$(Date - 28, "mm")
MSG3 = "Donnez le nom de la base mensuelle à créer." & Chr$(13) & Chr$(13) & "Exemple : PBR_2010_02 pour la base Février 2010." & Chr$(13) & Chr$(13) & "Ne mettez pas d'extension de fichier."
MDB_ENTREE = InputBox(MSG3, "Choix du nom du fichier", MDB_DEFAUT) 
If MDB_ENTREE = "" Then
GoTo FIN_MDB_MOIS
End If
 
MDB_MOIS = "C:\Bases\PBR\Mdbs\" + MDB_ENTREE + ".mdb"
DBEngine.CompactDatabase MDB_VIDE, MDB_MOIS
MsgBox "Base mensuelle créée ! Le fichier " & MDB_MOIS & " a été créé", 64, "Fin de procédure"
FIN_MDB_MOIS:
 
' pour avoir le nom de la base créée sous forme de date:
DATE_MDB_1 = Left$(MDB_ENTREE, 8)
DATE_MDB = Right$(DATE_MDB_1, 4) & "/" & Right$(MDB_ENTREE, 2)
 
SQL_DATE_MDB = "INSERT INTO tbl_mdb_date (mdbdate) IN MDB_MOIS VALUES (DATE_MDB);"
DoCmd.RunSQL (SQL_DATE_MDB)

Merci par avance de votre aide.

[LedZeppII]

Bonjour,

La valeur à insérer étant une chaîne de caractère il faut qu'elle soit encadrée par des guillemets simples ou doubles.

Exemple avec des guillemets simples :

Code :

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

SQL_DATE_MDB = "INSERT INTO tbl_mdb_date (mdbdate) IN MDB_MOIS VALUES ('" & DATE_MDB & "');"

Si DATE_MDB contient par exemple 2010/02, SQL_DATE_MDB contiendra

Code :

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

INSERT INTO tbl_mdb_date (mdbdate) IN MDB_MOIS VALUES ('2010/02');

A+

[servtech2]

Merci beaucoup, on approche mais:

j'ai encore une erreur d'exécution 3024 dans le Sql:
fichier 'c:\Documents & Settings\Administrateur\Mes Documents\MDB_MOIS' introuvable.

Que va-t-il chercher là alors que j'ai bien défini le chemin d'accès du fichier ?

[LedZeppII]

J'avais pas fait attention qu'il y avait le chemin de la base externe.
Même principe : on sort la variable de la chaîne de caractères pour la concaténer.
Le chemin vers la base externe (après IN) doit être encadré par des guillemets simples.

Code :

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

SQL_DATE_MDB = "INSERT INTO tbl_mdb_date (mdbdate) IN '" & MDB_MOIS & "' VALUES ('" & DATE_MDB & "');"

+A

[servtech2]

Chapeau, ça fonctionne!
Je te remercie beaucoup, je croyais avoir compris les tutos sql, apparament non.
Je n'aurais jamais pensé à utiliser les ' et " ensemble, persuadé que les " n'étaient que pour le texte.

Encore merci, je continue mon petit développement...