Problème de requête en VBA - Access 2003

Fermé

Jed - 21 avril 2008 à 14:42
jed - 22 avril 2008 à 14:08

Bonjour,

Voila je vous explique mon problème.

Je cherche à créer une table à partir de deux données rentrée dans un formulaire: une date de début et une date de fin. quand l'utilisateur clique sur "valider" la table (table2) doit se créer.

La nouvelle table (table2) doit contenir les meme données que la table1, en ne séléctionnant que les lignes dont les dates sont comprises entre la date de début et la date de fin rentrée dans le formulaire (dans table1, j'ai deux champs qui correspondent à une date de début et une date de fin (DATEEF et DATFIN))

voila le programme que j'ai testé:

Private Sub Valider_Click()
datd=DateDebut.value
datf=DateFin.value
If (datd = "" Or datf= "") Then
MsgBox ("Les champs ne doivent pas être vides")
Else: DoCmd.Runsql "CREATE TABLE table2 as select * from table1 where ...conditions sur les dates
end If
end SUb

Je sais que le select n'est pas autorisé avec le doCmd.runsql mais je vous ai mis ce bout de programme pour que ce soit plus clair.

Merci d'avance !

A voir également:

Problème de requête en VBA - Access 2003
Office 2003 - Télécharger - Bureautique
Access appdata - Guide
Acer quick access - Forum Logiciels
Excel compter cellule couleur sans vba - Guide
Acer Quick Access - affichage CapsLock, VerrNum - Forum logiciel systeme

4 réponses

Réponse 1 / 4

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 122
21 avril 2008 à 15:07

Salut,

Je pense que le problème est de SQL (pas de VBA).
Je ne sais pas pour create table as select, mais j'aurais mis:

create table table2
(colonnes)

puis:

insert into table2 (select ...)

Jed
21 avril 2008 à 15:27

tu veux dire comme ca
...
Else:
DoCmd.RunSQL "CREATE TABLE table2 (MATRIC char,CODHOP char,...) insert into table2 (select * from PAF where...)"
...

Ca fonctionne pas...

erreur d'exécution 3290
erreur de syntaxe dans l'instruction create table

merci quand meme de ton aide

Jed > Jed
21 avril 2008 à 15:56

Quelqu'un d'autre à une solution ?

Réponse 2 / 4

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 122
21 avril 2008 à 16:05

NNNOOONN,

elles sont deux requête indépendantes: il faut executer le create pui le insert into.

Jed
21 avril 2008 à 16:12

lol ok jvai voir ca.
merci

Jed
21 avril 2008 à 16:16

lol ok jvai voir ca.
merci

Si j'ai bien compri voila ce ke ca doit donné:
...
Else:
DoCmd.RunSQL "CREATE TABLE table2 (MATRIC char,CODHOP char,...)"
DoCmd.RunSQL "insert into table2 (select * from PAF where...)"
...

Et cette fois-ci: erreur dans l'instruction insert into

Réponse 3 / 4

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 122
21 avril 2008 à 16:32

J'ai fait le teste et cela pose problème.

Je dois partir, donc à demain je vous donnerez la réponse (si vous pouvez attendre)

Jed
21 avril 2008 à 16:43

c'est très gentil de votre part.
Merci beaucoup.
A demain
Bonne fin de journée

Réponse 4 / 4

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 122
22 avril 2008 à 12:08

Bonjour,

J'ai une petite base de teste qui contient la table Utilisateur, le champs CodeUtilisateur (Char(25)).
J'ai créé une nouvelle table de teste que j'ai nommé test2:

create table test2
(
code CHAR(25) primary key
);

Puis j'ai utilisé cette requête pour importer tous les code dans le champs code:

insert into test2(code)
select CodeUtilisateur
from
Utilisateur;

il fallait hier que je précise qu'il faut mettre les champs à inserer ((code)).

Pour plus d'infos:

http://sql.1keydata.com/fr/sql-insert-into.php

BonCourage :)

jed
22 avril 2008 à 14:08

merci beaucoup. ca fonctionne !!!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

C'est quoi le runtime Access ?

Bonjour,

il y a des questions que je me pose sur Access : Qu'est ce que le runtime d'Access par rapport à Access en lui-même ? Est ce que ça nécéssite une installation particulière comme Access ? Est ce que ça peut faire tourner des macros ?

Merci de vos réponses !

Configuration: Windows XP / Internet Explorer 7.0

Acer quick access

Bonjour,

Quand j'ouvre ma session, j'ai Acer quick access qui s'ouvre a droite de mon écran mais la fenêtre charge et reste noire tout le temps. Quand je veux la fermer on me dit que le programme ne répond pas.
A quoi sert cette application et est-il possible de la supprimer?
Merci d'avance.

Configuration: Windows / Chrome 54.0.2840.99

exemple base de données Access de gestion

Bonjour, je recherche tout type d'application concernant la gestion de parcs de divers types... je dois créer une base de données sous Access gérant un parc de machines (a chaque type de machine ses caractéristiques que l'utilisateur peu consulter ou ajouter) pour la maintenance d'une entreprise.
Débutant dans access je cherche donc d exemples de bases de données pour m'aider ds ma tache.

Y a t il quelqun qui pourai me donner d sites ou jeu peu trouver d application sous Access? merci davance